X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-msg.el;h=8d16a426970a91e32937b4349e01382374a74e98;hp=52f0991583495b87aaa8ea4325fa7963d8dc0a0a;hb=4b33d9287652b0d133fd6fe59971da5cece40ef8;hpb=7c5935db501e6c5c141587043053718df343316e

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 52f099158..8d16a4269 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1770,11 +1770,13 @@ this is a reply."
 			(not
 			 (setq result
 			       (cond
-				((stringp (caar var))
+				((and group
+				      (stringp (caar var)))
 				 ;; Regexp.
 				 (when (string-match (caar var) group)
 				   (cdar var)))
-				((functionp (car var))
+				((and group
+				      (functionp (car var)))
 				 ;; Function.
 				 (funcall (car var) group))
 				(t