From 0dccef740390165e58377ef7dd4268a457d6adcd Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 21 Oct 2010 03:21:17 +0200 Subject: [PATCH] (gnus-update-message-archive-method): Change the default to monthly outgoing groups. --- lisp/ChangeLog | 3 +++ lisp/gnus.el | 7 +++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3862b6a38..35fd6389d 100644 --- a/lisp/ChangeLog +++ b/lisp/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.el b/lisp/gnus.el index 8b43045cc..b60d4e0cf 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1355,12 +1355,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 @@ -1382,6 +1382,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.25.1