From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Thu, 12 Apr 2012 22:38:08 +0000 (+0000)
Subject: gnus-msg.el (gnus-inews-insert-gcc): `C-x m' on a non-group line fixup
X-Git-Tag: emacs-24.0.96~94
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d11f2f381a6d2a650501fb400bbf70c268c37381;p=emacs.git

gnus-msg.el (gnus-inews-insert-gcc): `C-x m' on a non-group line fixup
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index bac79f492bc..b1f298bdb16 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-msg.el (gnus-inews-insert-gcc): Don't do the alist stuff when we
+	don't have a current group.
+
 2012-04-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* gnus-msg.el (gnus-inews-insert-gcc): Protect against when we don't
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 507f0406ea1..815bd9e44a6 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1664,7 +1664,7 @@ this is a reply."
 	   ((functionp var)
 	    ;; A function.
 	    (funcall var group))
-	   (t
+	   (group
 	    ;; An alist of regexps/functions/forms.
 	    (while (and var
 			(not