Mercurial > emacs
changeset 80192:639e83cd103d
Merge from gnus--rel--5.10
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-232
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 24 Feb 2008 06:09:16 +0000 |
| parents | 89d884b75568 |
| children | d22df5de19ce f991f10f15ec |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-group.el lisp/gnus/gnus-topic.el lisp/gnus/mail-source.el lisp/gnus/nnmail.el |
| diffstat | 5 files changed, 53 insertions(+), 19 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Feb 24 01:06:03 2008 +0000 +++ b/lisp/gnus/ChangeLog Sun Feb 24 06:09:16 2008 +0000 @@ -1,3 +1,20 @@ +2008-02-16 Reiner Steib <Reiner.Steib@gmx.de> + + * mail-source.el (mail-source-delete-incoming): Change default. + Supplement doc string. + +2008-02-14 Reiner Steib <Reiner.Steib@gmx.de> + + * nnmail.el (nnmail-message-id-cache-file): Derive from + `gnus-home-directory'. + +2008-02-11 Reiner Steib <Reiner.Steib@gmx.de> + + * gnus-topic.el (gnus-topic-select-group, gnus-topic-read-group): + Document negativ prefix. + + * gnus-group.el (gnus-group-read-group): Document negativ prefix. + 2008-02-03 Reiner Steib <Reiner.Steib@gmx.de> * gnus.el (gnus-group-startup-message): Add `find-image' call before
--- a/lisp/gnus/gnus-group.el Sun Feb 24 01:06:03 2008 +0000 +++ b/lisp/gnus/gnus-group.el Sun Feb 24 06:09:16 2008 +0000 @@ -2008,10 +2008,15 @@ (defun gnus-group-read-group (&optional all no-article group select-articles) "Read news in this newsgroup. If the prefix argument ALL is non-nil, already read articles become -readable. IF ALL is a number, fetch this number of articles. If the -optional argument NO-ARTICLE is non-nil, no article will be -auto-selected upon group entry. If GROUP is non-nil, fetch that -group." +readable. + +If ALL is a positive number, fetch this number of the latest +articles in the group. If ALL is a negative number, fetch this +number of the earliest articles in the group. + +If the optional argument NO-ARTICLE is non-nil, no article will +be auto-selected upon group entry. If GROUP is non-nil, fetch +that group." (interactive "P") (let ((no-display (eq all 0)) (group (or group (gnus-group-group-name)))
--- a/lisp/gnus/gnus-topic.el Sun Feb 24 01:06:03 2008 +0000 +++ b/lisp/gnus/gnus-topic.el Sun Feb 24 06:09:16 2008 +0000 @@ -1181,7 +1181,10 @@ No article is selected automatically. If the group is opened, just switch the summary buffer. If ALL is non-nil, already read articles become readable. -If ALL is a number, fetch this number of articles. + +If ALL is a positive number, fetch this number of the latest +articles in the group. If ALL is a negative number, fetch this +number of the earliest articles in the group. If performed over a topic line, toggle folding the topic." (interactive "P") @@ -1233,10 +1236,15 @@ (defun gnus-topic-read-group (&optional all no-article group) "Read news in this newsgroup. If the prefix argument ALL is non-nil, already read articles become -readable. IF ALL is a number, fetch this number of articles. If the -optional argument NO-ARTICLE is non-nil, no article will be -auto-selected upon group entry. If GROUP is non-nil, fetch that -group. +readable. + +If ALL is a positive number, fetch this number of the latest +articles in the group. If ALL is a negative number, fetch this +number of the earliest articles in the group. + +If the optional argument NO-ARTICLE is non-nil, no article will +be auto-selected upon group entry. If GROUP is non-nil, fetch +that group. If performed over a topic line, toggle folding the topic." (interactive "P")
--- a/lisp/gnus/mail-source.el Sun Feb 24 01:06:03 2008 +0000 +++ b/lisp/gnus/mail-source.el Sun Feb 24 06:09:16 2008 +0000 @@ -269,16 +269,19 @@ :group 'mail-source :type 'integer) -(defcustom mail-source-delete-incoming t - "*If non-nil, delete incoming files after handling. +(defcustom mail-source-delete-incoming + ;; 10 ;; development versions + 2 ;; released versions + "If non-nil, delete incoming files after handling. If t, delete immediately, if nil, never delete. If a positive number, delete -files older than number of days." - ;; Note: The removing happens in `mail-source-callback', i.e. no old - ;; incoming files will be deleted, unless you receive new mail. - ;; - ;; You may also set this to `nil' and call `mail-source-delete-old-incoming' - ;; from a hook or interactively. +files older than number of days. + +Removing of old files happens in `mail-source-callback', i.e. no +old incoming files will be deleted unless you receive new mail. +You may also set this variable to nil and call +`mail-source-delete-old-incoming' interactively." :group 'mail-source + :version "22.2" ;; No Gnus / Gnus 5.10.10 (default changed) :type '(choice (const :tag "immediately" t) (const :tag "never" nil) (integer :tag "days")))
--- a/lisp/gnus/nnmail.el Sun Feb 24 01:06:03 2008 +0000 +++ b/lisp/gnus/nnmail.el Sun Feb 24 06:09:16 2008 +0000 @@ -532,8 +532,9 @@ :type '(choice (const :tag "disable" nil) (integer :format "%v"))) -(defcustom nnmail-message-id-cache-file "~/.nnmail-cache" - "*The file name of the nnmail Message-ID cache." +(defcustom nnmail-message-id-cache-file + (nnheader-concat gnus-home-directory ".nnmail-cache") + "The file name of the nnmail Message-ID cache." :group 'nnmail-duplicate :group 'nnmail-files :type 'file)