From 95729d50c034ddf60bc18f04ce5a2cbb365bd8bb Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Tue, 11 Sep 2012 10:08:59 +0000 Subject: [PATCH] gnus-notifications.el: add nil checks --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-notifications.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 5644c394f7e..5c7f106f6db 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2012-09-11 Julien Danjou + + * gnus-notifications.el (gnus-notifications): Check for nil values in + ignored addresses check. + 2012-09-10 Stefan Monnier * qp.el (quoted-printable-decode-region): Inline+CSE+strength-reduction. diff --git a/lisp/gnus/gnus-notifications.el b/lisp/gnus/gnus-notifications.el index f9c2d309a35..5104a56c6e7 100644 --- a/lisp/gnus/gnus-notifications.el +++ b/lisp/gnus/gnus-notifications.el @@ -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) -- 2.39.2