2000-12-04 14:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-msg.el (gnus-msg-mail): COMPOSEFUNC should return t if
	succeed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0a2fa27..da68241 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-04 14:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-msg.el (gnus-msg-mail): COMPOSEFUNC should return t if
+       succeed.
+
 2000-12-04 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-win.el (gnus-configure-windows): Make sure

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 5f90979..5a01c8f 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -249,10 +249,12 @@ Thank you for your help in stamping out bugs.
 (defun gnus-msg-mail (&rest args)
   "Start editing a mail message to be sent.
 Like `message-mail', but with Gnus paraphernalia, particularly the
-the Gcc: header for archiving purposes."
+Gcc: header for archiving purposes."
   (interactive)
   (gnus-setup-message 'message
-    (apply 'message-mail args)))
+    (apply 'message-mail args))
+  ;; COMPOSEFUNC should return t if succeed.  Undocumented ???
+  t)
 
 ;;;###autoload
 (define-mail-user-agent 'gnus-user-agent