procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow various Gnus and Message address variables to be functions

Browse source 
* doc/misc/gnus.texi (To From Newsgroups):
gnus-ignored-from-addresses can be a function.

* doc/misc/message.texi (Wide Reply):
message-dont-reply-to-names can be a function.

* lisp/gnus/gnus-icalendar.el (gnus-icalendar-identities):
message-alternative-emails can be a function.

* lisp/gnus/gnus-notifications.el (gnus-notifications):
message-alternative-emails can be a function (bug#22315).

* lisp/gnus/gnus-sum.el
(gnus-summary-from-or-to-or-newsgroups):
gnus-ignored-from-addresses can be a function (bug#22315).
This commit is contained in:
Foo 2016-02-08 13:28:37 +11:00 • committed by Lars Ingebrigtsen
parent d0c2957609
commit 357ae5dba5
7 changed files with 81 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/gnus-notifications.el
View file

@ -180,8 +180,10 @@ This is typically a function to add in
;; Ignore mails from ourselves
(unless (and gnus-ignored-from-addresses
address
(gnus-string-match-p gnus-ignored-from-addresses
address))
(cond ((functionp gnus-ignored-from-addresses)
(funcall gnus-ignored-from-addresses address))
(t (gnus-string-match-p (gnus-ignored-from-addresses)
address))))
(let* ((photo-file (gnus-notifications-get-photo-file address))
(notification-id (gnus-notifications-notify
(or (car address-components) address)