* Gnus v5.4.47 is released
@ 1997-04-27 10:37 Lars Magne Ingebrigtsen
1997-04-27 17:57 ` Matt Simmons
0 siblings, 1 reply; 3+ messages in thread
From: Lars Magne Ingebrigtsen @ 1997-04-27 10:37 UTC (permalink / raw)
Bug fixes.
Get it from <URL:http://www.gnus.org/gnus.tar.gz> or
"ftp.gnus.org:/pub/emacs/gnus/". The patch is available as
<URL:http://www.gnus.org/patches/gnus-5.4.46-5.4.47.diff.gz>
ChangeLog since last release:
Sun Apr 27 12:32:13 1997 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Gnus v5.4.47 is released.
Sun Apr 27 10:42:08 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* gnus-cache.el (gnus-cache-move-cache): Allow entering directory
name.
* nntp.el (nntp-telnet-command, nntp-telnet-switches): New
variables.
* gnus-score.el (gnus-summary-increase-score): Refuse illegal
match types.
Fri Apr 25 06:16:05 1997 Arne Georg Gleditsch <argggh@ifi.uio.no>
* gnus-sum.el (gnus-summary-refer-article): Go to article when
expunged.
Wed Apr 23 19:48:43 1997 Per Abrahamsen <abraham@dina.kvl.dk>
* gnus-ems.el (gnus-article-x-face-command): Removed bogus
declaration.
Mon Apr 21 16:44:00 1997 Paul Franklin <paul@cs.washington.edu>
* nnmail.el (nnmail-move-inbox): fewer (0?) file calls on inbox if
popmail.
Thu Apr 24 14:04:31 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* message.el (message-font-lock-keywords): Be more conservative in
determining headers.
* nnmh.el (nnmh-request-list-1): Use truenames.
* gnus-undo.el (gnus-undo-mode): Don't infest
gnus-summary-exit-hook.
* gnus-sum.el (gnus-update-read-articles): Force an undo
boundary.
* nnweb.el (nnweb-fetch-url): Don't rely on return values from
url-insert-file-contents.
--
(domestic pets only, the antidote for overdose, milk.)
larsi@ifi.uio.no * Lars Magne Ingebrigtsen
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Gnus v5.4.47 is released
1997-04-27 10:37 Gnus v5.4.47 is released Lars Magne Ingebrigtsen
@ 1997-04-27 17:57 ` Matt Simmons
1997-04-27 18:59 ` Steven L Baur
0 siblings, 1 reply; 3+ messages in thread
From: Matt Simmons @ 1997-04-27 17:57 UTC (permalink / raw)
Cc: ding-patches
Am I the only one who had 5.4.47 blow up on make? On anything past
earcon (inclusive), it complains that it can't find various gnus-*
files (earcon complains about gnus-ems). A truss reveals that XEmacs
is finding the .el files, but when it tries to open them, it gets an
EMFILE. I next tried upping the maximum file descriptors to 128, and
got the same behavior. At 1024, XEmacs bails out, complaining that
the nesting level is too deep.
On a side note, when I try to access nndoc groups (with any command),
I get "Wrong type argument: listp, all". Has anybody else seen this
before?
Thanks
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Gnus v5.4.47 is released
1997-04-27 17:57 ` Matt Simmons
@ 1997-04-27 18:59 ` Steven L Baur
0 siblings, 0 replies; 3+ messages in thread
From: Steven L Baur @ 1997-04-27 18:59 UTC (permalink / raw)
Matt Simmons <simmonmt@cs.purdue.edu> writes:
> Am I the only one who had 5.4.47 blow up on make?
Of course not. There's a circular dependency in gnus-xmas.el
introduced by the (require 'gnus-art) added between 5.4.46 and 5.4.47.
gnus-art.el requires gnus-ems.el which defines two autoloads for
functions in gnus-xmas.el (gnus-xmas-define and gnus-xmas-redefine)
and uses them. The ugly brute-force solution is to move the
definitions of gnus-xmas-define and gnus-xmas-redefine above the
(require 'gnus-art). No doubt there's a better way to do this.
===================================================================
RCS file: RCS/ChangeLog,v
retrieving revision 1.45
diff -u -r1.45 ChangeLog
--- ChangeLog 1997/04/27 18:07:18 1.45
+++ ChangeLog 1997/04/27 18:41:35
@@ -1,3 +1,9 @@
+Sun Apr 27 11:40:57 1997 Steven L Baur <steve@altair.xemacs.org>
+
+ * gnus-xmas.el (gnus-art): (require 'gnus-art) introduces a
+ circular dependency on gnus-xmas-define and gnus-xmas-redefine.
+ Brute force it away.
+
Sun Apr 27 12:32:13 1997 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Gnus v5.4.47 is released.
===================================================================
RCS file: RCS/gnus-xmas.el,v
retrieving revision 1.17
diff -u -r1.17 gnus-xmas.el
--- gnus-xmas.el 1997/04/27 18:07:18 1.17
+++ gnus-xmas.el 1997/04/27 18:37:55
@@ -28,7 +28,126 @@
(require 'text-props)
(defvar menu-bar-mode (featurep 'menubar))
(require 'messagexmas)
-(require 'gnus-art)
+
+(defun gnus-xmas-redefine ()
+ "Redefine lots of Gnus functions for XEmacs."
+ (fset 'gnus-summary-set-display-table 'gnus-xmas-summary-set-display-table)
+ (fset 'gnus-visual-turn-off-edit-menu 'identity)
+ (fset 'gnus-summary-recenter 'gnus-xmas-summary-recenter)
+ (fset 'gnus-extent-start-open 'gnus-xmas-extent-start-open)
+ (fset 'gnus-article-push-button 'gnus-xmas-article-push-button)
+ (fset 'gnus-article-add-button 'gnus-xmas-article-add-button)
+ (fset 'gnus-window-top-edge 'gnus-xmas-window-top-edge)
+ (fset 'gnus-read-event-char 'gnus-xmas-read-event-char)
+ (fset 'gnus-group-startup-message 'gnus-xmas-group-startup-message)
+ (fset 'gnus-tree-minimize 'gnus-xmas-tree-minimize)
+ (fset 'gnus-appt-select-lowest-window
+ 'gnus-xmas-appt-select-lowest-window)
+ (fset 'gnus-mail-strip-quoted-names 'gnus-xmas-mail-strip-quoted-names)
+ (fset 'gnus-character-to-event 'character-to-event)
+ (fset 'gnus-mode-line-buffer-identification
+ 'gnus-xmas-mode-line-buffer-identification)
+ (fset 'gnus-key-press-event-p 'key-press-event-p)
+ (fset 'gnus-region-active-p 'region-active-p)
+
+ (add-hook 'gnus-group-mode-hook 'gnus-xmas-group-menu-add)
+ (add-hook 'gnus-summary-mode-hook 'gnus-xmas-summary-menu-add)
+ (add-hook 'gnus-article-mode-hook 'gnus-xmas-article-menu-add)
+ (add-hook 'gnus-score-mode-hook 'gnus-xmas-score-menu-add)
+
+ (add-hook 'gnus-pick-mode-hook 'gnus-xmas-pick-menu-add)
+ (add-hook 'gnus-topic-mode-hook 'gnus-xmas-topic-menu-add)
+ (add-hook 'gnus-tree-mode-hook 'gnus-xmas-tree-menu-add)
+ (add-hook 'gnus-binary-mode-hook 'gnus-xmas-binary-menu-add)
+ (add-hook 'gnus-grouplens-mode-hook 'gnus-xmas-grouplens-menu-add)
+ (add-hook 'gnus-server-mode-hook 'gnus-xmas-server-menu-add)
+ (add-hook 'gnus-browse-mode-hook 'gnus-xmas-browse-menu-add)
+
+ (add-hook 'gnus-group-mode-hook 'gnus-xmas-setup-group-toolbar)
+ (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar)
+
+ (add-hook 'gnus-summary-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off)
+
+ (when (and (<= emacs-major-version 19)
+ (<= emacs-minor-version 13))
+ (setq gnus-article-x-face-too-ugly (when (eq (device-type) 'tty)
+ "."))
+ (fset 'gnus-highlight-selected-summary
+ 'gnus-xmas-highlight-selected-summary)
+ (fset 'gnus-group-remove-excess-properties
+ 'gnus-xmas-group-remove-excess-properties)
+ (fset 'gnus-topic-remove-excess-properties
+ 'gnus-xmas-topic-remove-excess-properties)
+ (fset 'gnus-mode-line-buffer-identification 'identity)
+ (unless (boundp 'shell-command-switch)
+ (setq shell-command-switch "-c"))))
+
+(defun gnus-xmas-define ()
+ (setq gnus-mouse-2 [button2])
+
+ (unless (memq 'underline (face-list))
+ (and (fboundp 'make-face)
+ (funcall (intern "make-face") 'underline)))
+ ;; Must avoid calling set-face-underline-p directly, because it
+ ;; is a defsubst in emacs19, and will make the .elc files non
+ ;; portable!
+ (unless (face-differs-from-default-p 'underline)
+ (funcall (intern "set-face-underline-p") 'underline t))
+
+ (cond
+ ((fboundp 'char-or-char-int-p)
+ ;; Handle both types of marks for XEmacs-20.x.
+ (fset 'gnus-characterp 'char-or-char-int-p))
+ ;; V19 of XEmacs, probably.
+ (t
+ (fset 'gnus-characterp 'characterp)))
+
+ (fset 'gnus-make-overlay 'make-extent)
+ (fset 'gnus-overlay-put 'set-extent-property)
+ (fset 'gnus-move-overlay 'gnus-xmas-move-overlay)
+ (fset 'gnus-overlay-end 'extent-end-position)
+ (fset 'gnus-extent-detached-p 'extent-detached-p)
+ (fset 'gnus-add-text-properties 'gnus-xmas-add-text-properties)
+ (fset 'gnus-put-text-property 'gnus-xmas-put-text-property)
+
+ (require 'text-props)
+ (if (and (<= emacs-major-version 19)
+ (< emacs-minor-version 14))
+ (fset 'gnus-set-text-properties 'gnus-xmas-set-text-properties))
+
+ (when (fboundp 'turn-off-scroll-in-place)
+ (add-hook 'gnus-article-mode-hook 'turn-off-scroll-in-place))
+
+ (unless (boundp 'standard-display-table)
+ (setq standard-display-table nil))
+
+ (defvar gnus-mouse-face-prop 'highlight)
+
+ (unless (fboundp 'encode-time)
+ (defun encode-time (sec minute hour day month year &optional zone)
+ (let ((seconds
+ (gnus-xmas-seconds-since-epoch
+ (timezone-make-arpa-date
+ year month day (timezone-make-time-string hour minute sec)
+ zone))))
+ (list (floor (/ seconds (expt 2 16)))
+ (round (mod seconds (expt 2 16)))))))
+
+ (defun gnus-byte-code (func)
+ "Return a form that can be `eval'ed based on FUNC."
+ (let ((fval (symbol-function func)))
+ (if (compiled-function-p fval)
+ (list 'funcall fval)
+ (cons 'progn (cdr (cdr fval))))))
+
+ (fset 'gnus-x-color-values
+ (if (fboundp 'x-color-values)
+ 'x-color-values
+ (lambda (color)
+ (color-instance-rgb-components
+ (make-color-instance color))))))
+
+(require 'gnus-art) ;; Circular
(defgroup gnus-xmas nil
"XEmacsoid support for Gnus"
@@ -406,125 +525,6 @@
(* (nth 1 ttime) 60)
(* (float (nth 0 ttime)) 60 60)
(* (float tday) 60 60 24))))
-
-(defun gnus-xmas-define ()
- (setq gnus-mouse-2 [button2])
-
- (unless (memq 'underline (face-list))
- (and (fboundp 'make-face)
- (funcall (intern "make-face") 'underline)))
- ;; Must avoid calling set-face-underline-p directly, because it
- ;; is a defsubst in emacs19, and will make the .elc files non
- ;; portable!
- (unless (face-differs-from-default-p 'underline)
- (funcall (intern "set-face-underline-p") 'underline t))
-
- (cond
- ((fboundp 'char-or-char-int-p)
- ;; Handle both types of marks for XEmacs-20.x.
- (fset 'gnus-characterp 'char-or-char-int-p))
- ;; V19 of XEmacs, probably.
- (t
- (fset 'gnus-characterp 'characterp)))
-
- (fset 'gnus-make-overlay 'make-extent)
- (fset 'gnus-overlay-put 'set-extent-property)
- (fset 'gnus-move-overlay 'gnus-xmas-move-overlay)
- (fset 'gnus-overlay-end 'extent-end-position)
- (fset 'gnus-extent-detached-p 'extent-detached-p)
- (fset 'gnus-add-text-properties 'gnus-xmas-add-text-properties)
- (fset 'gnus-put-text-property 'gnus-xmas-put-text-property)
-
- (require 'text-props)
- (if (and (<= emacs-major-version 19)
- (< emacs-minor-version 14))
- (fset 'gnus-set-text-properties 'gnus-xmas-set-text-properties))
-
- (when (fboundp 'turn-off-scroll-in-place)
- (add-hook 'gnus-article-mode-hook 'turn-off-scroll-in-place))
-
- (unless (boundp 'standard-display-table)
- (setq standard-display-table nil))
-
- (defvar gnus-mouse-face-prop 'highlight)
-
- (unless (fboundp 'encode-time)
- (defun encode-time (sec minute hour day month year &optional zone)
- (let ((seconds
- (gnus-xmas-seconds-since-epoch
- (timezone-make-arpa-date
- year month day (timezone-make-time-string hour minute sec)
- zone))))
- (list (floor (/ seconds (expt 2 16)))
- (round (mod seconds (expt 2 16)))))))
-
- (defun gnus-byte-code (func)
- "Return a form that can be `eval'ed based on FUNC."
- (let ((fval (symbol-function func)))
- (if (compiled-function-p fval)
- (list 'funcall fval)
- (cons 'progn (cdr (cdr fval))))))
-
- (fset 'gnus-x-color-values
- (if (fboundp 'x-color-values)
- 'x-color-values
- (lambda (color)
- (color-instance-rgb-components
- (make-color-instance color))))))
-
-(defun gnus-xmas-redefine ()
- "Redefine lots of Gnus functions for XEmacs."
- (fset 'gnus-summary-set-display-table 'gnus-xmas-summary-set-display-table)
- (fset 'gnus-visual-turn-off-edit-menu 'identity)
- (fset 'gnus-summary-recenter 'gnus-xmas-summary-recenter)
- (fset 'gnus-extent-start-open 'gnus-xmas-extent-start-open)
- (fset 'gnus-article-push-button 'gnus-xmas-article-push-button)
- (fset 'gnus-article-add-button 'gnus-xmas-article-add-button)
- (fset 'gnus-window-top-edge 'gnus-xmas-window-top-edge)
- (fset 'gnus-read-event-char 'gnus-xmas-read-event-char)
- (fset 'gnus-group-startup-message 'gnus-xmas-group-startup-message)
- (fset 'gnus-tree-minimize 'gnus-xmas-tree-minimize)
- (fset 'gnus-appt-select-lowest-window
- 'gnus-xmas-appt-select-lowest-window)
- (fset 'gnus-mail-strip-quoted-names 'gnus-xmas-mail-strip-quoted-names)
- (fset 'gnus-character-to-event 'character-to-event)
- (fset 'gnus-mode-line-buffer-identification
- 'gnus-xmas-mode-line-buffer-identification)
- (fset 'gnus-key-press-event-p 'key-press-event-p)
- (fset 'gnus-region-active-p 'region-active-p)
-
- (add-hook 'gnus-group-mode-hook 'gnus-xmas-group-menu-add)
- (add-hook 'gnus-summary-mode-hook 'gnus-xmas-summary-menu-add)
- (add-hook 'gnus-article-mode-hook 'gnus-xmas-article-menu-add)
- (add-hook 'gnus-score-mode-hook 'gnus-xmas-score-menu-add)
-
- (add-hook 'gnus-pick-mode-hook 'gnus-xmas-pick-menu-add)
- (add-hook 'gnus-topic-mode-hook 'gnus-xmas-topic-menu-add)
- (add-hook 'gnus-tree-mode-hook 'gnus-xmas-tree-menu-add)
- (add-hook 'gnus-binary-mode-hook 'gnus-xmas-binary-menu-add)
- (add-hook 'gnus-grouplens-mode-hook 'gnus-xmas-grouplens-menu-add)
- (add-hook 'gnus-server-mode-hook 'gnus-xmas-server-menu-add)
- (add-hook 'gnus-browse-mode-hook 'gnus-xmas-browse-menu-add)
-
- (add-hook 'gnus-group-mode-hook 'gnus-xmas-setup-group-toolbar)
- (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar)
-
- (add-hook 'gnus-summary-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off)
-
- (when (and (<= emacs-major-version 19)
- (<= emacs-minor-version 13))
- (setq gnus-article-x-face-too-ugly (when (eq (device-type) 'tty)
- "."))
- (fset 'gnus-highlight-selected-summary
- 'gnus-xmas-highlight-selected-summary)
- (fset 'gnus-group-remove-excess-properties
- 'gnus-xmas-group-remove-excess-properties)
- (fset 'gnus-topic-remove-excess-properties
- 'gnus-xmas-topic-remove-excess-properties)
- (fset 'gnus-mode-line-buffer-identification 'identity)
- (unless (boundp 'shell-command-switch)
- (setq shell-command-switch "-c"))))
-
;;; XEmacs logo and toolbar.
> On a side note, when I try to access nndoc groups (with any command),
> I get "Wrong type argument: listp, all". Has anybody else seen this
> before?
Probably because of the above problem. They work for me once I got
5.4.47 bytecompiled.
--
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~1997-04-27 18:59 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1997-04-27 10:37 Gnus v5.4.47 is released Lars Magne Ingebrigtsen
1997-04-27 17:57 ` Matt Simmons
1997-04-27 18:59 ` Steven L Baur
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).