X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-msg.el;h=9411f465d2f5f4adcdfe213d207fc0e7f0ccc2ff;hb=afbf528d6fb2fdb90f56a50212e46178b869a28b;hp=ecad92f1b1921492ecd0eb8176809eb7eb071029;hpb=adcf14de66016b792d94692dcbc2501866f137c4;p=gnus

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index ecad92f1b..9411f465d 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -494,7 +494,8 @@ Thank you for your help in stamping out bugs.
 
 ;;;###autoload
 (defun gnus-msg-mail (&optional to subject other-headers continue
-				switch-action yank-action send-actions return-action)
+				switch-action yank-action send-actions
+				return-action)
   "Start editing a mail message to be sent.
 Like `message-mail', but with Gnus paraphernalia, particularly the
 Gcc: header for archiving purposes.
@@ -502,7 +503,8 @@ If Gnus isn't running, a plain `message-mail' setup is used
 instead."
   (interactive)
   (if (not (gnus-alive-p))
-      (message-mail)
+      (message-mail to subject other-headers continue
+                    nil yank-action send-actions return-action)
     (let ((buf (current-buffer))
 	  mail-buf)
       (gnus-setup-message 'message
@@ -656,7 +658,7 @@ a news."
 	     (if (= 1 (prefix-numeric-value arg))
 		 (gnus-group-completing-read "Newsgroup" nil
 					     (gnus-read-active-file-p))
-	       (gnus-group-group-name))
+	       (or (gnus-group-group-name) ""))
 	   ""))
 	;; make sure last viewed article doesn't affect posting styles:
 	(gnus-article-copy))