From: keiichi <keiichi>
Date: Wed, 11 Nov 1998 09:54:21 +0000 (+0000)
Subject: (gnus-bbdb/extract-address-components): Normalize return value.
X-Git-Tag: pgnus-ichikawa-199811302358~80
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5b887bedc4aff1a6bf8df6e6ee974a0d582c6424;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 1e66f8c..e095ae8 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