diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-10-21 01:28:34 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-21 01:28:34 +0000 |
| commit | 514d91284a726651d876293f9b20cc706204b9de (patch) | |
| tree | ce94ebaa4d366976eb190f973018e52bbd89417a /lisp | |
| parent | 728fd3b97f7c5eabfe26bf15455e49fd8e95a028 (diff) | |
| download | emacs-514d91284a726651d876293f9b20cc706204b9de.tar.gz emacs-514d91284a726651d876293f9b20cc706204b9de.tar.bz2 emacs-514d91284a726651d876293f9b20cc706204b9de.zip | |
gnus.el (gnus-update-message-archive-method): Change the default to monthly outgoing groups.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/gnus/gnus.el | 7 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 77f5c6b1a4e..fb620fd9c0d 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -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. diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 5440a24eb5d..f809d5c8ae0 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -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)) |