Mercurial > emacs
comparison lisp/gnus/mml.el @ 34797:b473bc6d9a55
* mml.el (gnus-add-minor-mode): Autoload.
* message.el (message-forward): Save-restriction.
* message.el (message-mail-user-agent): Add :version.
* message.el (message-mail-user-agent): New variable.
(message-setup): Renamed to message-setup-1. Support
mail-user-agent.
(message-mail-user-agent): New function.
(message-mail): Use it.
(message-reply): Use it.
(message-resend): Use it.
(message-mail-other-window): Use it.
(message-mail-other-frame): Use it.
* gnus-msg.el (gnus-bug): Support mail-user-agent.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Thu, 21 Dec 2000 19:58:34 +0000 |
| parents | f04f551e94ce |
| children | 40698b92a36a |
comparison
equal
deleted
inserted
replaced
| 34796:560b081d8800 | 34797:b473bc6d9a55 |
|---|---|
| 25 | 25 |
| 26 (require 'mm-util) | 26 (require 'mm-util) |
| 27 (require 'mm-bodies) | 27 (require 'mm-bodies) |
| 28 (require 'mm-encode) | 28 (require 'mm-encode) |
| 29 (require 'mm-decode) | 29 (require 'mm-decode) |
| 30 (require 'gnus-ems) | |
| 31 (eval-when-compile (require 'cl)) | 30 (eval-when-compile (require 'cl)) |
| 32 | 31 |
| 33 (eval-and-compile | 32 (eval-and-compile |
| 34 (autoload 'message-make-message-id "message") | 33 (autoload 'message-make-message-id "message") |
| 35 (autoload 'gnus-setup-posting-charset "gnus-msg") | 34 (autoload 'gnus-setup-posting-charset "gnus-msg") |
| 35 (autoload 'gnus-add-minor-mode "gnus-ems") | |
| 36 (autoload 'message-fetch-field "message") | 36 (autoload 'message-fetch-field "message") |
| 37 (autoload 'message-posting-charset "message")) | 37 (autoload 'message-posting-charset "message")) |
| 38 | 38 |
| 39 (defvar mml-generate-multipart-alist nil | 39 (defvar mml-generate-multipart-alist nil |
| 40 "*Alist of multipart generation functions. | 40 "*Alist of multipart generation functions. |