Make `gnus-msg-mail' warn about Gnus not running

* gnus-msg.el (gnus-msg-mail): Warn the user about Gnus not running
(bug#11514).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bbe79a2..f71c286 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-06-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-msg.el (gnus-msg-mail): Warn the user about Gnus not running
+       (bug#11514).
+
 2012-06-07  Stephen Eglen  <S.J.Eglen@damtp.cam.ac.uk>
 
        * message.el (message-buffers): Return all buffers derived from Message

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index bdc0195..d38f36a 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -519,8 +519,10 @@ If Gnus isn't running, a plain `message-mail' setup is used
 instead."
   (interactive)
   (if (not (gnus-alive-p))
-      (message-mail to subject other-headers continue
-                    nil yank-action send-actions return-action)
+      (progn
+       (message "Gnus not running; using plain Message mode")
+       (message-mail to subject other-headers continue
+                     nil yank-action send-actions return-action))
     (let ((buf (current-buffer))
          (gnus-newsgroup-name (or gnus-newsgroup-name ""))
          mail-buf)