comparison lisp/gnus/gnus.el @ 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 28e0e0ac22e4
children bf96ffd54855
comparison
equal deleted inserted replaced
111074:9138671f67b0 111075:22eac37c58af
1354 \"archive\" ever since. If it once has been saved, it will never be 1354 \"archive\" ever since. If it once has been saved, it will never be
1355 updated if the value of this variable is nil, even if you change the 1355 updated if the value of this variable is nil, even if you change the
1356 value of `gnus-message-archive-method' afterward. If you want the 1356 value of `gnus-message-archive-method' afterward. If you want the
1357 saved \"archive\" method to be updated whenever you change the value of 1357 saved \"archive\" method to be updated whenever you change the value of
1358 `gnus-message-archive-method', set this variable to a non-nil value." 1358 `gnus-message-archive-method', set this variable to a non-nil value."
1359 :version "24.1" 1359 :version "23.1"
1360 :group 'gnus-server 1360 :group 'gnus-server
1361 :group 'gnus-message 1361 :group 'gnus-message
1362 :type 'boolean) 1362 :type 'boolean)
1363 1363
1364 (defcustom gnus-message-archive-group ((format-time-string "sent.%Y-%m")) 1364 (defcustom gnus-message-archive-group '((format-time-string "sent.%Y-%m"))
1365 "*Name of the group in which to save the messages you've written. 1365 "*Name of the group in which to save the messages you've written.
1366 This can either be a string; a list of strings; or an alist 1366 This can either be a string; a list of strings; or an alist
1367 of regexps/functions/forms to be evaluated to return a string (or a list 1367 of regexps/functions/forms to be evaluated to return a string (or a list
1368 of strings). The functions are called with the name of the current 1368 of strings). The functions are called with the name of the current
1369 group (or nil) as a parameter. 1369 group (or nil) as a parameter.
1379 Normally the group names returned by this variable should be 1379 Normally the group names returned by this variable should be
1380 unprefixed -- which implicitly means \"store on the archive server\". 1380 unprefixed -- which implicitly means \"store on the archive server\".
1381 However, you may wish to store the message on some other server. In 1381 However, you may wish to store the message on some other server. In
1382 that case, just return a fully prefixed name of the group -- 1382 that case, just return a fully prefixed name of the group --
1383 \"nnml+private:mail.misc\", for instance." 1383 \"nnml+private:mail.misc\", for instance."
1384 :version "24.1"
1384 :group 'gnus-message 1385 :group 'gnus-message
1385 :type '(choice (const :tag "none" nil) 1386 :type '(choice (const :tag "none" nil)
1386 (const :tag "Weekly" ((format-time-string "sent.%Yw%U"))) 1387 (const :tag "Weekly" ((format-time-string "sent.%Yw%U")))
1387 (const :tag "Monthly" ((format-time-string "sent.%Y-%m"))) 1388 (const :tag "Monthly" ((format-time-string "sent.%Y-%m")))
1388 (const :tag "Yearly" ((format-time-string "sent.%Y"))) 1389 (const :tag "Yearly" ((format-time-string "sent.%Y")))