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

d11f2f38 · Lars Magne Ingebrigtsen · Katsumi Yamaoka · 9401b326 · d11f2f38 · d11f2f38
Commit d11f2f38 authored Apr 12, 2012 by Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka Apr 12, 2012
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/gnus/ChangeLog lisp/gnus/ChangeLog +5 -0

lisp/gnus/gnus-msg.el lisp/gnus/gnus-msg.el +1 -1

No files found.
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
+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

--- 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