[Emacs-diffs] /srv/bzr/emacs/emacs-24 r107819: gnus-msg.el (gnus-inews-insert-gcc): `C-x m' on a non-group line fixup

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 107819
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: emacs-24
timestamp: Thu 2012-04-12 22:38:08 +0000
message:
  gnus-msg.el (gnus-inews-insert-gcc): `C-x m' on a non-group line fixup
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-msg.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-04-11 22:31:16 +0000
+++ b/lisp/gnus/ChangeLog       2012-04-12 22:38:08 +0000
@@ -1,3 +1,8 @@
+2012-04-12  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * gnus-msg.el (gnus-inews-insert-gcc): Protect against when we don't

=== modified file 'lisp/gnus/gnus-msg.el'
--- a/lisp/gnus/gnus-msg.el     2012-04-11 22:31:16 +0000
+++ b/lisp/gnus/gnus-msg.el     2012-04-12 22:38:08 +0000
@@ -1664,7 +1664,7 @@
           ((functionp var)
            ;; A function.
            (funcall var group))
-          (t
+          (group
            ;; An alist of regexps/functions/forms.
            (while (and var
                        (not