(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 (file)
--- 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))))))))