Mercurial > emacs

changeset 111071:28e0e0ac22e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus.el (gnus-update-message-archive-method): Change the default to monthly outgoing groups.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Thu, 21 Oct 2010 01:28:34 +0000
parents 25ddbcf2f2ea
children a7fee19797df
files lisp/gnus/ChangeLog lisp/gnus/gnus.el
diffstat 2 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Thu Oct 21 01:23:34 2010 +0000
+++ b/lisp/gnus/ChangeLog	Thu Oct 21 01:28:34 2010 +0000
@@ -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.
 
--- a/lisp/gnus/gnus.el	Thu Oct 21 01:23:34 2010 +0000
+++ b/lisp/gnus/gnus.el	Thu Oct 21 01:28:34 2010 +0000
@@ -1356,12 +1356,12 @@
 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 @@
 \"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))