[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r102024: gnus.el (gnus-update-message
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r102024: gnus.el (gnus-update-message-archive-method): Change the default to monthly outgoing groups. |
Date: |
Thu, 21 Oct 2010 01:28:34 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 102024
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2010-10-21 01:28:34 +0000
message:
gnus.el (gnus-update-message-archive-method): Change the default to monthly
outgoing groups.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-10-21 01:23:34 +0000
+++ b/lisp/gnus/ChangeLog 2010-10-21 01:28:34 +0000
@@ -1,5 +1,8 @@
2010-10-21 Lars Magne Ingebrigtsen <address@hidden>
+ * 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.
=== modified file 'lisp/gnus/gnus.el'
--- a/lisp/gnus/gnus.el 2010-10-18 22:09:28 +0000
+++ b/lisp/gnus/gnus.el 2010-10-21 01:28:34 +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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r102024: gnus.el (gnus-update-message-archive-method): Change the default to monthly outgoing groups.,
Katsumi Yamaoka <=