From 9eb45973fcd14ba1cf5ddf8d779335797e26cdc9 Mon Sep 17 00:00:00 2001 From: Andrew Cohen Date: Fri, 26 Apr 2013 02:08:43 +0000 Subject: [PATCH] lisp/gnus/gnus-msg.el (gnus-inews-insert-gcc): Re-order conditional to work for string values of 'gcc-self --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-msg.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4cdc8a103bd..251e5b1f381 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2013-04-25 Andrew Cohen + + * 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 * 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 362dd3ea7f0..fce9a3633c2 100644 --- 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 -- 2.11.4.GIT