comparison lisp/gnus/message.el @ 110139:53415017c4cc

message.el (message-generate-new-buffers): Change default to `unsent'; gnus-sum.el (gnus-summary-goto-unread, gnus-single-article-buffer): Change default to nil.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Thu, 02 Sep 2010 03:27:17 +0000
parents 5b9f64b04a04
children a2439ed30c52
comparison
equal deleted inserted replaced
110138:99544439ab8f 110139:53415017c4cc
462 :group 'message-mail 462 :group 'message-mail
463 :version "23.1" ;; No Gnus 463 :version "23.1" ;; No Gnus
464 :link '(custom-manual "(message)Sending Variables") 464 :link '(custom-manual "(message)Sending Variables")
465 :type 'boolean) 465 :type 'boolean)
466 466
467 (defcustom message-generate-new-buffers 'unique 467 (defcustom message-generate-new-buffers 'unsent
468 "*Say whether to create a new message buffer to compose a message. 468 "*Say whether to create a new message buffer to compose a message.
469 Valid values include: 469 Valid values include:
470 470
471 nil 471 nil
472 Generate the buffer name in the Message way (e.g., *mail*, *news*, 472 Generate the buffer name in the Message way (e.g., *mail*, *news*,
485 485
486 function 486 function
487 If this is a function, call that function with three parameters: 487 If this is a function, call that function with three parameters:
488 The type, the To address and the group name (any of these may be nil). 488 The type, the To address and the group name (any of these may be nil).
489 The function should return the new buffer name." 489 The function should return the new buffer name."
490 :version "24.1"
490 :group 'message-buffers 491 :group 'message-buffers
491 :link '(custom-manual "(message)Message Buffers") 492 :link '(custom-manual "(message)Message Buffers")
492 :type '(choice (const nil) 493 :type '(choice (const nil)
493 (sexp :tag "unique" :format "unique\n" :value unique 494 (sexp :tag "unique" :format "unique\n" :value unique
494 :match (lambda (widget value) (memq value '(unique t)))) 495 :match (lambda (widget value) (memq value '(unique t))))