gnus-msg.el (gnus-msg-mail): Ensure that gnus-newsgroup-name is a string so that...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f8e0f9..00473af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-05-27  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-msg.el (gnus-msg-mail): Ensure that gnus-newsgroup-name is
+       a string so that Gcc works (bug#11514).
+
 2012-05-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * legacy-gnus-agent.el (gnus-agent-unhook-expire-days):

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 9583ff9..bdc0195 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -522,6 +522,7 @@ instead."
       (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)
       (gnus-setup-message 'message
        (message-mail to subject other-headers continue