From b71e87272654472e094cd3ecf3cd44f9a5cb4294 Mon Sep 17 00:00:00 2001 From: keiichi Date: Wed, 11 Nov 1998 10:11:03 +0000 Subject: [PATCH] (gnus-bbdb/extract-address-components): Normalize return value. (gnus-bbdb/update-record): Change condition for checking own message. --- lisp/gnus-bbdb.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 -- 1.7.10.4