mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

gnus.el (gnus-update-message-archive-method): Change the default to monthly outgoing groups.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-10-21 01:28:34 +00:00 committed by Katsumi Yamaoka
parent 728fd3b97f
commit 514d91284a
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View File

@ -1,5 +1,8 @@
2010-10-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.el (gnus-update-message-archive-method): Change the default to
monthly outgoing groups.
* gnus-sum.el (gnus-summary-edit-article-done): Try to replace articles
that have gotten new numbers.

7
lisp/gnus/gnus.el
View File

@ -1356,12 +1356,12 @@ updated if the value of this variable is nil, even if you change the
value of `gnus-message-archive-method' afterward. If you want the
saved \"archive\" method to be updated whenever you change the value of
`gnus-message-archive-method', set this variable to a non-nil value."
:version "23.1" ;; No Gnus
:version "24.1"
:group 'gnus-server
:group 'gnus-message
:type 'boolean)
(defcustom gnus-message-archive-group nil
(defcustom gnus-message-archive-group ((format-time-string "sent.%Y-%m"))
"*Name of the group in which to save the messages you've written.
This can either be a string; a list of strings; or an alist
of regexps/functions/forms to be evaluated to return a string (or a list
@ -1383,6 +1383,9 @@ that case, just return a fully prefixed name of the group --
\"nnml+private:mail.misc\", for instance."
:group 'gnus-message
:type '(choice (const :tag "none" nil)
(const :tag "Weekly" ((format-time-string "sent.%Yw%U")))
(const :tag "Monthly" ((format-time-string "sent.%Y-%m")))
(const :tag "Yearly" ((format-time-string "sent.%Y")))
function
sexp
string))