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

gnus-notifications.el: add nil checks

Browse source
This commit is contained in:
Julien Danjou 2012-09-11 10:08:59 +00:00 • committed by Katsumi Yamaoka
parent 9d9edd4bae
commit 95729d50c0
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2012-09-11 Julien Danjou <julien@danjou.info>
* gnus-notifications.el (gnus-notifications): Check for nil values in
ignored addresses check.
2012-09-10 Stefan Monnier <monnier@iro.umontreal.ca>
* qp.el (quoted-printable-decode-region): Inline+CSE+strength-reduction.

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

@ -166,8 +166,10 @@ This is typically a function to add in
(or (mail-fetch-field "From") "")))
(address (cadr address-components)))
;; Ignore mails from ourselves
(unless (gnus-string-match-p gnus-ignored-from-addresses
address)
(unless (and gnus-ignored-from-addresses
address
(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)