Mercurial > emacs
changeset 111075:22eac37c58af
gnus.el (gnus-message-archive-group): Quote value.
gnus.el (gnus-message-archive-group): Mark as changed.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 21 Oct 2010 02:44:47 +0000 |
| parents | 9138671f67b0 |
| children | ef2f1f7d574b |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus.el |
| diffstat | 2 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Oct 21 11:38:46 2010 +0900 +++ b/lisp/gnus/ChangeLog Thu Oct 21 02:44:47 2010 +0000 @@ -1,12 +1,15 @@ 2010-10-21 Lars Magne Ingebrigtsen <larsi@gnus.org> + * gnus.el (gnus-message-archive-group): Quote value. + (gnus-message-archive-group): Mark as changed. + * shr.el (shr-add-font): Don't put the font properties on the newline or the indentation. * message.el (message-fix-before-sending): Change options when sending non-printable characters. - * gnus.el (gnus-update-message-archive-method): Change the default to + * gnus.el (gnus-message-archive-method): Change the default to monthly outgoing groups. * gnus-sum.el (gnus-summary-edit-article-done): Try to replace articles
--- a/lisp/gnus/gnus.el Thu Oct 21 11:38:46 2010 +0900 +++ b/lisp/gnus/gnus.el Thu Oct 21 02:44:47 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 "24.1" + :version "23.1" :group 'gnus-server :group 'gnus-message :type 'boolean) -(defcustom gnus-message-archive-group ((format-time-string "sent.%Y-%m")) +(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 @@ -1381,6 +1381,7 @@ However, you may wish to store the message on some other server. In that case, just return a fully prefixed name of the group -- \"nnml+private:mail.misc\", for instance." + :version "24.1" :group 'gnus-message :type '(choice (const :tag "none" nil) (const :tag "Weekly" ((format-time-string "sent.%Yw%U")))