From: keiichi <keiichi>
Date: Wed, 11 Nov 1998 10:11:03 +0000 (+0000)
Subject: (gnus-bbdb/extract-address-components): Normalize return value.
X-Git-Tag: keiichi-199811302358~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b71e87272654472e094cd3ecf3cd44f9a5cb4294;p=elisp%2Fgnus.git-

(gnus-bbdb/extract-address-components): Normalize return value.
(gnus-bbdb/update-record): Change condition for checking own message.
---

diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el
index 8019ef4..6a67a6d 100644
--- a/lisp/gnus-bbdb.el
+++ b/lisp/gnus-bbdb.el
@@ -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