From 1285b19fb6a2c22491b0d3f796ca646cf9c68bc4 Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 9 Dec 1999 09:39:56 +0000 Subject: [PATCH] (gnus-bbdb/split-mail-1): Fix bug for last change. --- lisp/gnus-bbdb.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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)))))))) -- 1.7.10.4