*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24e8129..1c7d06d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,18 @@
+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

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 920b8c0..bf1e159 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8425,7 +8425,7 @@ save those articles instead."
        `(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))

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 18b9393..adec47b 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -42,7 +42,7 @@
   "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)

diff --git a/lisp/message.el b/lisp/message.el
index 931852a..73cc014 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3283,12 +3283,13 @@ The following arguments may contain lists of values."
        (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))))
 

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 578f25c..1fd9165 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -743,14 +743,26 @@ to advanced Emacs features, such as file-name-handlers, format decoding,
 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))

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 222d739..cabfdc9 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -943,7 +943,7 @@ FUNC will be called with the group name to determine the article number."
                      (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.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index b064cf6..8f90870 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \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
@@ -287,7 +287,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Red Gnus 0.65 Manual
+@title Red Gnus 0.66 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -323,7 +323,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
 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
 
@@ -2814,7 +2814,7 @@ Activate absolutely all groups (@code{gnus-activate-all-groups}).
 @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