* simple.el (mh-e-user-agent): Move to mh-e/mh-comp.el and autoload.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6310ee00987368bc0a1a16093a121404bab6923..57789ced71255cb50e2723cc80676bdf5c9abfef 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-28  Bill Wohler  <wohler@newt.com>
+
+       * simple.el (mh-e-user-agent): Move to mh-e/mh-comp.el and
+       autoload.
+
 2005-12-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * vc.el (vc-annotate-display): Replace optional arg `color-map' with

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index f10b6779e9c9564e2f74230c796cd7e4c1db6a83..74fd15a2c197457f7a225e90a62983b78457beff 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-28  Bill Wohler  <wohler@newt.com>
+
+       * mh-comp.el (mh-e-user-agent): Move here from simple.el. Use
+       mh-user-agent-compose instead of mh-smail-batch.
+
 2005-12-27  Bill Wohler  <wohler@newt.com>
 
        * mh-utils.el (mh-prompt-for-folder): Use can-create argument to

diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index 898f24dccb714f07df8e3cd6eb4923021c21c865..113572153af466e0b949f24f6e6b498367464068 100644 (file)
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -228,18 +228,28 @@ thus is suitable for use by programs that want to create a mail
 buffer. Users should use \\[mh-smail] to compose mail.
 
 Optional arguments for setting certain fields include TO,
-SUBJECT, and OTHER-HEADERS. Additional arguments are IGNORED."
+SUBJECT, and OTHER-HEADERS. Additional arguments are IGNORED.
+
+This function remains for Emacs 21 compatibility. New
+applications should use `mh-user-agent-compose'."
   (mh-find-path)
   (let ((mh-error-if-no-draft t))
     (mh-send (or to "") "" (or subject ""))))
 
-;; XEmacs needs this:
+;;;###autoload
+(define-mail-user-agent 'mh-e-user-agent
+  'mh-user-agent-compose 'mh-send-letter 'mh-fully-kill-draft
+  'mh-before-send-letter-hook)
+
 ;;;###autoload
 (defun mh-user-agent-compose (&optional to subject other-headers continue
                                         switch-function yank-action
                                         send-actions)
   "Set up mail composition draft with the MH mail system.
-This is `mail-user-agent' entry point to MH-E.
+This is the `mail-user-agent' entry point to MH-E. This function
+conforms to the contract specified by `define-mail-user-agent'
+which means that this function should accept the same arguments
+as `compose-mail'.
 
 The optional arguments TO and SUBJECT specify recipients and the
 initial Subject field, respectively.

diff --git a/lisp/simple.el b/lisp/simple.el
index 8df53b6664c1deeb6c9e50d5e65be7f01503b01d..58e6814b845dbe160878982a36cba8a7e9c59dbd 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4569,10 +4569,6 @@ See also `read-mail-command' concerning reading mail."
        (insert body))
       t)))
 
-(define-mail-user-agent 'mh-e-user-agent
-  'mh-smail-batch 'mh-send-letter 'mh-fully-kill-draft
-  'mh-before-send-letter-hook)
-
 (defun compose-mail (&optional to subject other-headers continue
                               switch-function yank-action send-actions)
   "Start composing a mail message to send.