Mercurial > emacs
comparison lisp/simple.el @ 31573:eea697d7588c
(read-mail-command): Doc fix.
(mail-user-agent): Add gnus-user-agent option for upcoming Gnus.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 12 Sep 2000 17:58:48 +0000 |
| parents | 4b32734572d8 |
| children | 3a5e22f4cd99 |
comparison
equal
deleted
inserted
replaced
| 31572:384603523f41 | 31573:eea697d7588c |
|---|---|
| 27 | 27 |
| 28 ;;; Code: | 28 ;;; Code: |
| 29 | 29 |
| 30 (eval-when-compile | 30 (eval-when-compile |
| 31 (autoload 'widget-convert "wid-edit") | 31 (autoload 'widget-convert "wid-edit") |
| 32 (autoload 'shell-mode "shell") | |
| 32 (require 'cl)) | 33 (require 'cl)) |
| 33 | 34 |
| 34 | 35 |
| 35 (defgroup killing nil | 36 (defgroup killing nil |
| 36 "Killing and yanking commands" | 37 "Killing and yanking commands" |
| 3182 :link '(custom-manual "Single-Byte European Support") | 3183 :link '(custom-manual "Single-Byte European Support") |
| 3183 :group 'keyboard) | 3184 :group 'keyboard) |
| 3184 | 3185 |
| 3185 (defcustom read-mail-command 'rmail | 3186 (defcustom read-mail-command 'rmail |
| 3186 "*Your preference for a mail reading package. | 3187 "*Your preference for a mail reading package. |
| 3187 This is used by some keybindings which support reading mail." | 3188 This is used by some keybindings which support reading mail. |
| 3189 See also `mail-user-agent' concerning sending mail." | |
| 3188 :type '(choice (function-item rmail) | 3190 :type '(choice (function-item rmail) |
| 3189 (function-item gnus) | 3191 (function-item gnus) |
| 3190 (function-item mh-rmail) | 3192 (function-item mh-rmail) |
| 3191 (function :tag "Other")) | 3193 (function :tag "Other")) |
| 3192 :version "21.1" | 3194 :version "21.1" |
| 3193 :group 'mail) | 3195 :group 'mail) |
| 3194 | 3196 |
| 3195 (defcustom mail-user-agent 'sendmail-user-agent | 3197 (defcustom mail-user-agent 'sendmail-user-agent |
| 3196 "*Your preference for a mail composition package. | 3198 "*Your preference for a mail composition package. |
| 3197 Various Emacs Lisp packages (e.g. reporter) require you to compose an | 3199 Various Emacs Lisp packages (e.g. Reporter) require you to compose an |
| 3198 outgoing email message. This variable lets you specify which | 3200 outgoing email message. This variable lets you specify which |
| 3199 mail-sending package you prefer. | 3201 mail-sending package you prefer. |
| 3200 | 3202 |
| 3201 Valid values include: | 3203 Valid values include: |
| 3202 | 3204 |
| 3203 `sendmail-user-agent' -- use the default Emacs Mail package | 3205 `sendmail-user-agent' -- use the default Emacs Mail package. |
| 3204 `mh-e-user-agent' -- use the Emacs interface to the MH mail system | 3206 See Info node `(emacs)Sending Mail'. |
| 3205 `message-user-agent' -- use the Gnus mail sending package | 3207 `mh-e-user-agent' -- use the Emacs interface to the MH mail system. |
| 3208 See Info node `(mh-e)'. | |
| 3209 `message-user-agent' -- use the Gnus Message package. | |
| 3210 See Info node `(message)'. | |
| 3211 `gnus-user-agent' -- like `message-user-agent', but with Gnus | |
| 3212 paraphernalia, particularly the Gcc: header for | |
| 3213 archiving. | |
| 3206 | 3214 |
| 3207 Additional valid symbols may be available; check with the author of | 3215 Additional valid symbols may be available; check with the author of |
| 3208 your package for details." | 3216 your package for details. |
| 3217 | |
| 3218 See also `read-mail-command' concerning reading mail." | |
| 3209 :type '(radio (function-item :tag "Default Emacs mail" | 3219 :type '(radio (function-item :tag "Default Emacs mail" |
| 3210 :format "%t\n" | 3220 :format "%t\n" |
| 3211 sendmail-user-agent) | 3221 sendmail-user-agent) |
| 3212 (function-item :tag "Emacs interface to MH" | 3222 (function-item :tag "Emacs interface to MH" |
| 3213 :format "%t\n" | 3223 :format "%t\n" |
| 3214 mh-e-user-agent) | 3224 mh-e-user-agent) |
| 3215 (function-item :tag "Gnus mail sending package" | 3225 (function-item :tag "Gnus Message package" |
| 3216 :format "%t\n" | 3226 :format "%t\n" |
| 3217 message-user-agent) | 3227 message-user-agent) |
| 3228 (function-item :tag "Gnus Message with full Gnus features" | |
| 3229 :format "%t\n" | |
| 3230 gnus-user-agent) | |
| 3218 (function :tag "Other")) | 3231 (function :tag "Other")) |
| 3219 :group 'mail) | 3232 :group 'mail) |
| 3220 | 3233 |
| 3221 (defun define-mail-user-agent (symbol composefunc sendfunc | 3234 (defun define-mail-user-agent (symbol composefunc sendfunc |
| 3222 &optional abortfunc hookvar) | 3235 &optional abortfunc hookvar) |