From: keiichi <keiichi>
Date: Thu, 9 Dec 1999 09:39:56 +0000 (+0000)
Subject: (gnus-bbdb/split-mail-1): Fix bug for last change.
X-Git-Tag: nana-gnus-6_13_12~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1285b19fb6a2c22491b0d3f796ca646cf9c68bc4;p=elisp%2Fgnus.git-

(gnus-bbdb/split-mail-1): Fix bug for last change.
---

diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el
index 3b254dd..6aa5bf5 100644
--- a/lisp/gnus-bbdb.el
+++ b/lisp/gnus-bbdb.el
@@ -206,8 +206,10 @@ BBDB-FEILD values is returned.  Otherwise, GROUP is returned."
 	(throw 'done (when rest (cons '& rest))))
        (t
 	(while records
-	  (when (and (setq prop (bbdb-record-getprop (car records) bbdb-field))
-		     (string-match regexp prop))
+	  (when (or (null bbdb-field) 
+		    (and (setq prop (bbdb-record-getprop (car records)
+							 bbdb-field))
+			 (string-match regexp prop)))
 	    (throw 'done (or group prop)))
 	  (setq records (cdr records))))))))