[Emacs-diffs] /srv/bzr/emacs/trunk r109978: gnus-notifications.el: add nil checks

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 109978
author: Julien Danjou <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2012-09-11 10:08:59 +0000
message:
  gnus-notifications.el: add nil checks
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-notifications.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-09-10 01:16:13 +0000
+++ b/lisp/gnus/ChangeLog       2012-09-11 10:08:59 +0000
@@ -1,3 +1,8 @@
+2012-09-11  Julien Danjou  <address@hidden>
+
+       * gnus-notifications.el (gnus-notifications): Check for nil values in
+       ignored addresses check.
+
 2012-09-10  Stefan Monnier  <address@hidden>
 
        * qp.el (quoted-printable-decode-region): Inline+CSE+strength-reduction.

=== modified file 'lisp/gnus/gnus-notifications.el'
--- a/lisp/gnus/gnus-notifications.el   2012-09-03 22:12:02 +0000
+++ b/lisp/gnus/gnus-notifications.el   2012-09-11 10:08:59 +0000
@@ -166,8 +166,10 @@
                                             (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)