| author | Julien Danjou <julien@danjou.info> | 2012-09-11 09:41:03 (GMT) |
|---|---|---|
| committer | Julien Danjou <julien@danjou.info> | 2012-09-11 09:41:03 (GMT) |
| commit | ce124d16f2d934891222712b5da65a0032e6e9ce (patch) (side-by-side diff) | |
| tree | 6fe762a14192e3f8c266857e9070de8175b14ad6 | |
| parent | d1a9bfb4363aceb094957e8d94cfca73be3e2c13 (diff) | |
| download | gnus-ce124d16f2d934891222712b5da65a0032e6e9ce.zip | |
notifications: add nil checks
Signed-off-by: Julien Danjou <julien@danjou.info>
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus-notifications.el | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 90e1db7..a2900b3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. diff --git a/lisp/gnus-notifications.el b/lisp/gnus-notifications.el index f9c2d30..5104a56 100644 --- a/lisp/gnus-notifications.el +++ b/lisp/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) |