+Wed Nov 20 01:57:31 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * 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 <larsi@ifi.uio.no>
+
+ * nnheader.el (nnheader-auto-mode-alist): New function.
+
+Tue Nov 19 21:57:29 1996 Lars Magne Ingebrigtsen <menja.larsi@ifi.uio.no>
+
+ * gnus.el: Red Gnus v0.65 is released.
+
Tue Nov 19 17:41:17 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* message.el (message-do-fcc): Supply FROM-GNUS param to
`(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))))
+ (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))
"Score and kill file handling."
:group 'gnus )
-(defconst gnus-version-number "0.65"
+(defconst gnus-version-number "0.66"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
(funcall ask question))
(funcall ask question)))
-(defun message-flatten-list (&rest list)
- (message-flatten-list-1 list))
+(defun message-flatten-list (list)
+ "Return a new, flat list that contains all elements of LIST.
-(defun message-flatten-list-1 (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-1 list)))
+ (apply 'append (mapcar 'message-flatten-list list)))
(list
(list list))))
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."
(let ((files (directory-files dir t))
(message
"Error in `nnmail-split-methods'; using `bogus' mail group")
(sit-for 1)
- '("bogus")))))'
+ '("bogus")))))
(unless (equal group-art '(junk))
;; `nnmail-split-methods' is a function, so we just call
;; this function here and use the result.
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Red Gnus 0.65 Manual
+@settitle Red Gnus 0.66 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@tex
@titlepage
-@title Red Gnus 0.65 Manual
+@title Red Gnus 0.66 Manual
@author by Lars Magne Ingebrigtsen
@page
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
+This manual corresponds to Red Gnus 0.66
@end ifinfo
@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
+file(s), closes the connection to all servers, clears up all variables, and
then starts Gnus all over again.
@end table