[Emacs-diffs] master d9ab250: `message-dont-reply-to-names' can also be a list of regexps

[Lars Ingebrigtsen]

branch: master
commit d9ab2503b1279f31817316af0bf2ab6e188e2b75
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    `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).
---
 lisp/gnus/message.el |    7 +++----
 1 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index a23e3ba..0ac3926 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.