From: Lars Magne Ingebrigtsen Date: Wed, 5 Mar 1997 00:39:47 +0000 (+0000) Subject: *** empty log message *** X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=d799c86c825c895a93ad367f31ea9d1dd6d59fd9;p=gnus *** empty log message *** --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 24e8129c7..1c7d06df1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 920b8c0fe..bf1e159ca 100644 --- 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 18b9393a3..adec47b6d 100644 --- 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 931852aad..73cc014b1 100644 --- 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 578f25c62..1fd91654a 100644 --- 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 222d7392d..cabfdc91f 100644 --- 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 b064cf65d..8f90870bf 100644 --- 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