`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 a23e3ba511482f53ed27ad7d50c53d4a84200670..0ac3926eb4f0738c63d7f5ee3f5e7405eec4ce3a 100644 (file)
--- 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.