From d9ab2503b1279f31817316af0bf2ab6e188e2b75 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 23 Feb 2016 20:54:42 +1100 Subject: [PATCH] `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 file changed, 3 insertions(+), 4 deletions(-) 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. -- 2.39.5