*** pub/rgnus/lisp/gnus-group.el Sun Apr 6 21:51:36 1997 --- rgnus/lisp/gnus-group.el Sun Apr 6 23:24:40 1997 *************** *** 523,529 **** "r" gnus-group-sort-groups-by-rank "m" gnus-group-sort-groups-by-method) ! (gnus-define-keys (gnus-group-sort-map "P" gnus-group-group-map) "s" gnus-group-sort-selected-groups "a" gnus-group-sort-selected-groups-by-alphabet "u" gnus-group-sort-selected-groups-by-unread --- 523,529 ---- "r" gnus-group-sort-groups-by-rank "m" gnus-group-sort-groups-by-method) ! (gnus-define-keys (gnus-group-sort-selected-map "P" gnus-group-group-map) "s" gnus-group-sort-selected-groups "a" gnus-group-sort-selected-groups-by-alphabet "u" gnus-group-sort-selected-groups-by-unread *************** *** 2184,2190 **** (defun gnus-group-sort-flat (func reverse) ;; We peel off the dummy group from the alist. (when func ! (when (equal (car (gnus-info-group gnus-newsrc-alist)) "dummy.group") (pop gnus-newsrc-alist)) ;; Do the sorting. (setq gnus-newsrc-alist --- 2184,2190 ---- (defun gnus-group-sort-flat (func reverse) ;; We peel off the dummy group from the alist. (when func ! (when (equal (gnus-info-group (car gnus-newsrc-alist)) "dummy.group") (pop gnus-newsrc-alist)) ;; Do the sorting. (setq gnus-newsrc-alist *** pub/rgnus/lisp/gnus-start.el Wed Apr 2 14:21:05 1997 --- rgnus/lisp/gnus-start.el Sun Apr 6 23:24:40 1997 *************** *** 1467,1472 **** --- 1467,1473 ---- (while alist (gnus-sethash (caar alist) + ;; Preserve number of unread articles in groups. (cons (and ohashtb (car (gnus-gethash (caar alist) ohashtb))) prev) gnus-newsrc-hashtb) *** pub/rgnus/lisp/gnus-xmas.el Sun Apr 6 21:51:40 1997 --- rgnus/lisp/gnus-xmas.el Sun Apr 6 23:24:41 1997 *************** *** 182,192 **** (select-window selected)))))) (defun gnus-xmas-summary-set-display-table () - ;; Setup the display table -- like gnus-summary-setup-display-table, ;; Setup the display table -- like `gnus-summary-setup-display-table', ;; but done in an XEmacsish way. (let ((table (make-display-table)) - ;; Nix out all the control chars... (default-table (specifier-instance current-display-table)) (i 32)) ;; Nix out all the control chars... --- 182,190 ---- *************** *** 199,209 **** ;; We nix out any glyphs over 126 that are not set already. (let ((i 256)) (while (>= (setq i (1- i)) 127) - ;; Only modify if the entry is nil. - (or (aref table i) ;; Only modify if the default entry is nil. ! (or (aref default-table i) ! (aset table i [??])))) ;; Can't use `set-specifier' because of a bug in 19.14 and earlier (add-spec-to-specifier current-display-table table (current-buffer) nil))) --- 197,206 ---- ;; We nix out any glyphs over 126 that are not set already. (let ((i 256)) (while (>= (setq i (1- i)) 127) ;; Only modify if the default entry is nil. ! (when (or (not default-table) ! (not (aref default-table i))) ! (aset table i [??])))) ;; Can't use `set-specifier' because of a bug in 19.14 and earlier (add-spec-to-specifier current-display-table table (current-buffer) nil))) *** pub/rgnus/lisp/gnus.el Sun Apr 6 21:51:42 1997 --- rgnus/lisp/gnus.el Sun Apr 6 23:24:41 1997 *************** *** 226,232 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.41" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 226,232 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.42" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *** pub/rgnus/lisp/message.el Wed Apr 2 14:21:10 1997 --- rgnus/lisp/message.el Sun Apr 6 23:24:42 1997 *************** *** 1194,1203 **** (kill-all-local-variables) (make-local-variable 'message-reply-buffer) (setq message-reply-buffer nil) ! (set (make-local-variable 'message-send-actions) nil) ! (set (make-local-variable 'message-exit-actions) nil) ! (set (make-local-variable 'message-kill-actions) nil) ! (set (make-local-variable 'message-postpone-actions) nil) (set-syntax-table message-mode-syntax-table) (use-local-map message-mode-map) (setq local-abbrev-table message-mode-abbrev-table) --- 1194,1203 ---- (kill-all-local-variables) (make-local-variable 'message-reply-buffer) (setq message-reply-buffer nil) ! (make-local-variable 'message-send-actions) ! (make-local-variable 'message-exit-actions) ! (make-local-variable 'message-kill-actions) ! (make-local-variable 'message-postpone-actions) (set-syntax-table message-mode-syntax-table) (use-local-map message-mode-map) (setq local-abbrev-table message-mode-abbrev-table) *** pub/rgnus/lisp/ChangeLog Sun Apr 6 21:51:32 1997 --- rgnus/lisp/ChangeLog Sun Apr 6 23:24:39 1997 *************** *** 1,3 **** --- 1,20 ---- + Sun Apr 6 23:17:21 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.42 is released. + + Sun Apr 6 23:13:50 1997 Lars Magne Ingebrigtsen + + * gnus-xmas.el (gnus-xmas-summary-set-display-table): There isn't + always a default table, it seems. + + Sun Apr 6 22:45:52 1997 Aaron M. Ucko + + * gnus-xmas.el (gnus-xmas-summary-set-display-table): Typo. + + Sun Apr 6 22:26:52 1997 Lars Magne Ingebrigtsen + + * gnus-group.el: All the sorting commands were shadowed. + Sun Apr 6 21:46:05 1997 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.4.41 is released. *** pub/rgnus/texi/gnus.texi Sun Apr 6 21:51:48 1997 --- rgnus/texi/gnus.texi Sun Apr 6 23:24:45 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.41 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.42 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 287,293 **** @tex @titlepage ! @title Gnus 5.4.41 Manual @author by Lars Magne Ingebrigtsen @page --- 287,293 ---- @tex @titlepage ! @title Gnus 5.4.42 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 323,329 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.41. @end ifinfo --- 323,329 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.42. @end ifinfo *** pub/rgnus/texi/message.texi Sun Apr 6 21:51:48 1997 --- rgnus/texi/message.texi Sun Apr 6 23:24:45 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.41 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.42 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 39,45 **** @tex @titlepage ! @title Message 5.4.41 Manual @author by Lars Magne Ingebrigtsen @page --- 39,45 ---- @tex @titlepage ! @title Message 5.4.42 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 79,85 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.41. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 79,85 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.42. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *** pub/rgnus/texi/widget.texi Sun Apr 6 21:51:48 1997 --- rgnus/texi/widget.texi Sun Apr 6 23:24:45 1997 *************** *** 1,6 **** \input texinfo.tex ! @c $Id: widget.texi,v 1.98 1997/04/02 16:26:18 abraham Exp $ @c %**start of header @setfilename widget --- 1,6 ---- \input texinfo.tex ! @c $Id: widget.texi,v 3.65 1997/04/06 19:49:32 larsi Exp $ @c %**start of header @setfilename widget