From 514d91284a726651d876293f9b20cc706204b9de Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 21 Oct 2010 01:28:34 +0000 Subject: [PATCH] gnus.el (gnus-update-message-archive-method): Change the default to monthly outgoing groups. --- lisp/gnus/ChangeLog | 3 +++ 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 + * 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)) -- 2.39.2