mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

Merge from gnus--rel--5.10

Browse Source 
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-232
This commit is contained in:
Miles Bader 2008-02-24 06:09:16 +00:00
parent d7c5579129
commit 20ca5ee4f7
5 changed files with 53 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/gnus/ChangeLog
View File

@ -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

13
lisp/gnus/gnus-group.el
View File

@ -2008,10 +2008,15 @@ and with point over the group in question."
(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)))

18
lisp/gnus/gnus-topic.el
View File

@ -1181,7 +1181,10 @@ articles in the topic and its subtopics."
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 @@ Also see `gnus-group-catchup'."
(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")

19
lisp/gnus/mail-source.el
View File

@ -269,16 +269,19 @@ If non-nil, this maildrop will be checked periodically for new mail."
: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")))

5
lisp/gnus/nnmail.el
View File

@ -532,8 +532,9 @@ performed."
: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)