comparison lisp/simple.el @ 103977:64c2a1f8f15d

(mail-user-agent): Doc fix. Set :version tag.
author Glenn Morris <rgm@gnu.org>
date Sun, 19 Jul 2009 00:33:11 +0000
parents b7581638b542
children afb0c07ee9cb
comparison
equal deleted inserted replaced
103976:a1f42bc54ce3 103977:64c2a1f8f15d
5449 outgoing email message. This variable lets you specify which 5449 outgoing email message. This variable lets you specify which
5450 mail-sending package you prefer. 5450 mail-sending package you prefer.
5451 5451
5452 Valid values include: 5452 Valid 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.
5463 5463
5464 Additional valid symbols may be available; check with the author of 5464 Additional valid symbols may be available; check with the author of
5465 your package for details. The function should return non-nil if it 5465 your package for details. The function should return non-nil if it
5466 succeeds. 5466 succeeds.
5467 5467
5468 See also `read-mail-command' concerning reading mail." 5468 See 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
5485 'sendmail-user-agent-compose 5486 'sendmail-user-agent-compose
5486 'mail-send-and-exit) 5487 'mail-send-and-exit)