Mercurial > emacs
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)))) |