From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 23 Feb 2016 09:54:42 +0000 (+1100)
Subject: `message-dont-reply-to-names' can also be a list of regexps
X-Git-Tag: emacs-26.0.90~2488
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9ab2503b1279f31817316af0bf2ab6e188e2b75;p=emacs.git

`message-dont-reply-to-names' can also be a list of regexps

* lisp/gnus/message.el (message-dont-reply-to-names):
`message-dont-reply-to-names' can also be a list of regexps (bug#22773).
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index a23e3ba5114..0ac3926eb4f 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1367,10 +1367,9 @@ If a function email is passed as the argument."
 		 (repeat :tag "Regexp List" regexp)))
 
 (defsubst message-dont-reply-to-names ()
-  (cond ((functionp message-dont-reply-to-names)
-         message-dont-reply-to-names)
-        ((stringp message-dont-reply-to-names)
-         (gmm-regexp-concat message-dont-reply-to-names))))
+  (if (functionp message-dont-reply-to-names)
+      message-dont-reply-to-names
+    (gmm-regexp-concat message-dont-reply-to-names)))
 
 (defvar message-shoot-gnksa-feet nil
   "*A list of GNKSA feet you are allowed to shoot.