*** pub/rgnus/lisp/gnus-sum.el Tue Nov 19 19:05:15 1996 --- rgnus/lisp/gnus-sum.el Wed Nov 20 03:19:18 1996 *************** *** 8425,8431 **** `(progn (gnus-info-set-marks ',info ',(gnus-info-marks info)) (gnus-info-set-read ',info ',(gnus-info-read info)) ! (gnus-get-unread-articles-in-group ,info (gnus-active ,group)))) ;; Enter this list into the group info. (gnus-info-set-read info (if (> (length read) 1) (nreverse read) read)) --- 8425,8431 ---- `(progn (gnus-info-set-marks ',info ',(gnus-info-marks info)) (gnus-info-set-read ',info ',(gnus-info-read info)) ! (gnus-get-unread-articles-in-group ',info (gnus-active ,group)))) ;; Enter this list into the group info. (gnus-info-set-read info (if (> (length read) 1) (nreverse read) read)) *** pub/rgnus/lisp/gnus.el Tue Nov 19 16:42:31 1996 --- rgnus/lisp/gnus.el Wed Nov 20 01:59:00 1996 *************** *** 42,48 **** "Score and kill file handling." :group 'gnus ) ! (defconst gnus-version-number "0.65" "Version number for this version of Gnus.") (defconst gnus-version (format "Red Gnus v%s" gnus-version-number) --- 42,48 ---- "Score and kill file handling." :group 'gnus ) ! (defconst gnus-version-number "0.66" "Version number for this version of Gnus.") (defconst gnus-version (format "Red Gnus v%s" gnus-version-number) *** pub/rgnus/lisp/message.el Tue Nov 19 21:41:14 1996 --- rgnus/lisp/message.el Wed Nov 20 02:45:21 1996 *************** *** 3283,3294 **** (funcall ask question)) (funcall ask question))) ! (defun message-flatten-list (&rest list) ! (message-flatten-list-1 list)) ! (defun message-flatten-list-1 (list) (cond ((consp list) ! (apply 'append (mapcar 'message-flatten-list-1 list))) (list (list list)))) --- 3283,3295 ---- (funcall ask question)) (funcall ask question))) ! (defun message-flatten-list (list) ! "Return a new, flat list that contains all elements of LIST. ! \(message-flatten-list '(1 (2 3 (4 5 (6))) 7)) ! => (1 2 3 4 5 6 7)" (cond ((consp list) ! (apply 'append (mapcar 'message-flatten-list list))) (list (list list)))) *** pub/rgnus/lisp/nnheader.el Tue Nov 19 20:50:20 1996 --- rgnus/lisp/nnheader.el Tue Nov 19 23:00:37 1996 *************** *** 743,755 **** --- 743,767 ---- find-file-hooks, etc. This function ensures that none of these modifications will take place." (let ((format-alist nil) + (auto-mode-alist (nnheader-auto-mode-alist)) (after-insert-file-functions nil)) (insert-file-contents filename visit beg end replace))) (defun nnheader-find-file-noselect (&rest args) (let ((format-alist nil) + (auto-mode-alist (nnheader-auto-mode-alist)) (after-insert-file-functions nil)) (apply 'find-file-noselect args))) + + (defun nnheader-auto-mode-alist () + "Return an `auto-mode-alist' with only the .gz (etc) thingies." + (let ((alist auto-mode-alist) + out) + (while alist + (when (listp (cdar alist)) + (push (car alist) out)) + (pop alist)) + (nreverse out))) (defun nnheader-directory-regular-files (dir) "Return a list of all regular files in DIR." *** pub/rgnus/lisp/nnmail.el Tue Nov 19 21:15:36 1996 --- rgnus/lisp/nnmail.el Wed Nov 20 05:04:13 1996 *************** *** 943,949 **** (message "Error in `nnmail-split-methods'; using `bogus' mail group") (sit-for 1) ! '("bogus")))))' (unless (equal group-art '(junk)) ;; `nnmail-split-methods' is a function, so we just call ;; this function here and use the result. --- 943,949 ---- (message "Error in `nnmail-split-methods'; using `bogus' mail group") (sit-for 1) ! '("bogus"))))) (unless (equal group-art '(junk)) ;; `nnmail-split-methods' is a function, so we just call ;; this function here and use the result. *** pub/rgnus/lisp/ChangeLog Tue Nov 19 21:41:13 1996 --- rgnus/lisp/ChangeLog Wed Nov 20 05:11:45 1996 *************** *** 1,3 **** --- 1,18 ---- + Wed Nov 20 01:57:31 1996 Lars Magne Ingebrigtsen + + * nnmail.el (nnmail-article-group): Would lose mail when using + advanced splitting! + + * gnus-sum.el (gnus-update-read-articles): Undo fix. + + Tue Nov 19 22:56:56 1996 Lars Magne Ingebrigtsen + + * nnheader.el (nnheader-auto-mode-alist): New function. + + Tue Nov 19 21:57:29 1996 Lars Magne Ingebrigtsen + + * gnus.el: Red Gnus v0.65 is released. + Tue Nov 19 17:41:17 1996 Lars Magne Ingebrigtsen * message.el (message-do-fcc): Supply FROM-GNUS param to *** pub/rgnus/texi/gnus.texi Tue Nov 19 21:54:28 1996 --- rgnus/texi/gnus.texi Wed Nov 20 05:11:56 1996 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Red Gnus 0.65 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Red Gnus 0.66 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 287,293 **** @tex @titlepage ! @title Red Gnus 0.65 Manual @author by Lars Magne Ingebrigtsen @page --- 287,293 ---- @tex @titlepage ! @title Red Gnus 0.66 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 Red Gnus 0.65 @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 Red Gnus 0.66 @end ifinfo *************** *** 2814,2820 **** @cindex restarting @findex gnus-group-restart Restart Gnus (@code{gnus-group-restart}). This saves the @file{.newsrc} ! files, closes the connection to all servers, clears up all variables, and then starts Gnus all over again. @end table --- 2814,2820 ---- @cindex restarting @findex gnus-group-restart Restart Gnus (@code{gnus-group-restart}). This saves the @file{.newsrc} ! file(s), closes the connection to all servers, clears up all variables, and then starts Gnus all over again. @end table