[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d9ab250: `message-dont-reply-to-names' can also be
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master d9ab250: `message-dont-reply-to-names' can also be a list of regexps |
Date: |
Tue, 23 Feb 2016 09:55:24 +0000 |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d9ab250: `message-dont-reply-to-names' can also be a list of regexps,
Lars Ingebrigtsen <=