lisp/gnus/gnus-msg.el (gnus-inews-insert-gcc): Re-order conditional to work for strin...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4cdc8a103bdc948a0b29909eb4f919c8e1b132d6..251e5b1f381a33986968754378558f2aea3a85fe 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-04-25  Andrew Cohen  <cohen@bu.edu>
+
+       * gnus-msg.el (gnus-inews-insert-gcc): Re-order conditional to work for
+       string values of 'gcc-self.  Thanks to Saroj Thirumalai.
+
 2013-04-24  Andrew Cohen  <cohen@bu.edu>
 
        * nnir.el (nnir-close-group): Make sure we are in the right group.

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 362dd3ea7f0c24204bab7710e11750cd5fc10b9a..fce9a3633c2ae726f1343caecad0e4037af231b8 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1719,8 +1719,8 @@ this is a reply."
          (group (when group (gnus-group-decoded-name group)))
          (var (or gnus-outgoing-message-group gnus-message-archive-group))
         (gcc-self-val
-         (and group (gnus-group-find-parameter group 'gcc-self)
-              (not (gnus-virtual-group-p group))))
+         (and group (not (gnus-virtual-group-p group))
+              (gnus-group-find-parameter group 'gcc-self)))
         result
         (groups
          (cond