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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9d9ffb2fcbd454ed0a166d0ac7bd58dafc41ad14..05eb0dd76c61716b5657f5fd358da7c5b9b7dc7c 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-05-21  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-04-21  Andreas Schwab  <schwab@linux-m68k.org>
 
        * gnus.el (debbugs-gnu): Don't override existing autoload definition.

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 815bd9e44a6a868823e0846ea7df27f90a87c3fe..c6d0c3213a0a7b138de396b22f5ce6df5e1afcd3 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -490,6 +490,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