(gnus-bbdb/extract-address-components): Normalize return value.
authorkeiichi <keiichi>
Wed, 11 Nov 1998 09:54:21 +0000 (09:54 +0000)
committerkeiichi <keiichi>
Wed, 11 Nov 1998 09:54:21 +0000 (09:54 +0000)
(gnus-bbdb/update-record): Change condition for checking own message.

lisp/gnus-bbdb.el

index 1e66f8c..e095ae8 100644 (file)
@@ -64,9 +64,9 @@ the user confirms the creation."
          (when (setq from (mail-fetch-field "from"))
            (setq from (gnus-bbdb/extract-address-components
                        (gnus-bbdb/decode-field-body from 'From))))
-         (when (or (null from)
-                   (string-match (bbdb-user-mail-names)
-                                 (car (cdr from))))
+         (when (and (car (cdr from))
+                    (string-match (bbdb-user-mail-names)
+                                  (car (cdr from))))
            ;; if logged-in user sent this, use recipients.
            (let ((to (mail-fetch-field "to")))
              (when to
@@ -483,7 +483,8 @@ beginning of the message headers."
             methods (cdr methods)))
     (if (string= address "") (setq address nil))
     (if (string= phrase "") (setq phrase nil))
-    (list phrase address)
+    (when (or phrase address)
+      (list phrase address))
     ))
 
 ;;; @ full-name canonicalization methods