aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/simple.el17
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index cfbbad500fc..23a503ca176 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5451,12 +5451,12 @@ mail-sending package you prefer.
5451 5451
5452Valid values include: 5452Valid values include:
5453 5453
5454 `sendmail-user-agent' -- use the default Emacs Mail package. 5454 `message-user-agent' -- use the Message package.
5455 See Info node `(message)'.
5456 `sendmail-user-agent' -- use the Mail package.
5455 See Info node `(emacs)Sending Mail'. 5457 See Info node `(emacs)Sending Mail'.
5456 `mh-e-user-agent' -- use the Emacs interface to the MH mail system. 5458 `mh-e-user-agent' -- use the Emacs interface to the MH mail system.
5457 See Info node `(mh-e)'. 5459 See Info node `(mh-e)'.
5458 `message-user-agent' -- use the Gnus Message package.
5459 See Info node `(message)'.
5460 `gnus-user-agent' -- like `message-user-agent', but with Gnus 5460 `gnus-user-agent' -- like `message-user-agent', but with Gnus
5461 paraphernalia, particularly the Gcc: header for 5461 paraphernalia, particularly the Gcc: header for
5462 archiving. 5462 archiving.
@@ -5466,19 +5466,20 @@ your package for details. The function should return non-nil if it
5466succeeds. 5466succeeds.
5467 5467
5468See also `read-mail-command' concerning reading mail." 5468See also `read-mail-command' concerning reading mail."
5469 :type '(radio (function-item :tag "Default Emacs mail" 5469 :type '(radio (function-item :tag "Message package"
5470 :format "%t\n"
5471 message-user-agent)
5472 (function-item :tag "Mail package"
5470 :format "%t\n" 5473 :format "%t\n"
5471 sendmail-user-agent) 5474 sendmail-user-agent)
5472 (function-item :tag "Emacs interface to MH" 5475 (function-item :tag "Emacs interface to MH"
5473 :format "%t\n" 5476 :format "%t\n"
5474 mh-e-user-agent) 5477 mh-e-user-agent)
5475 (function-item :tag "Gnus Message package" 5478 (function-item :tag "Message with full Gnus features"
5476 :format "%t\n"
5477 message-user-agent)
5478 (function-item :tag "Gnus Message with full Gnus features"
5479 :format "%t\n" 5479 :format "%t\n"
5480 gnus-user-agent) 5480 gnus-user-agent)
5481 (function :tag "Other")) 5481 (function :tag "Other"))
5482 :version "23.2" ; sendmail->message
5482 :group 'mail) 5483 :group 'mail)
5483 5484
5484(define-mail-user-agent 'sendmail-user-agent 5485(define-mail-user-agent 'sendmail-user-agent