2001-01-27 00:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-msg.el (gnus-msg-mail): Support switch-action.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d0969b..16d5ba4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-27 00:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-msg.el (gnus-msg-mail): Support switch-action.
+
 2001-01-26 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (gnus-summary-save-in-pipe): Prompt for saving

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 2b7442b..d5fa1a2 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -257,13 +257,21 @@ Thank you for your help in stamping out bugs.
              (if article (number-to-string article) "\"\"") ")\n"))))
 
 ;;;###autoload
-(defun gnus-msg-mail (&rest args)
+(defun gnus-msg-mail (&optional to subject other-headers continue
+                               switch-action yank-action send-actions)
   "Start editing a mail message to be sent.
 Like `message-mail', but with Gnus paraphernalia, particularly the
 Gcc: header for archiving purposes."
   (interactive)
-  (gnus-setup-message 'message
-    (apply 'message-mail args))
+  (let ((buf (current-buffer))
+       mail-buf)
+    (gnus-setup-message 'message
+      (message-mail to subject other-headers continue
+                   nil yank-action send-actions))
+    (when switch-action
+      (setq mail-buf (current-buffer))
+      (switch-to-buffer buf)
+      (apply switch-action mail-buf nil)))
   ;; COMPOSEFUNC should return t if succeed.  Undocumented ???
   t)