* bbdb-wl.el (bbdb-wl-ignore-folder-regexp): New variable.

(bbdb-wl-get-update-record): Changed to check
`bbdb-wl-ignore-folder-regexp'.

diff --git a/utils/ChangeLog b/utils/ChangeLog
index ea78cbd..4c307dd 100644 (file)
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,9 @@
+2002-01-07  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * bbdb-wl.el (bbdb-wl-ignore-folder-regexp): New variable.
+       (bbdb-wl-get-update-record): Changed to check
+       `bbdb-wl-ignore-folder-regexp'.
+
 2002-01-07  Kenichi OKADA  <okada@opaopa.org>
 
        * wl-mailto.el (wl-mailto-url-at-point): defun at compile time.

diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el
index cfabd0c..0b0b8ab 100644 (file)
--- a/utils/bbdb-wl.el
+++ b/utils/bbdb-wl.el
@@ -31,6 +31,7 @@
 
 (defvar bbdb-wl-get-update-record-hook nil)
 (defvar bbdb-wl-folder-regexp nil)
+(defvar bbdb-wl-ignore-folder-regexp nil)
 
 ;;;###autoload
 (defun bbdb-wl-setup ()
@@ -70,15 +71,17 @@
   (bbdb-offer-save))
 
 (defun bbdb-wl-get-update-record ()
-  (if (or (null bbdb-wl-folder-regexp)
-         (string-match
-          bbdb-wl-folder-regexp
-          (with-current-buffer
-              wl-message-buffer-cur-summary-buffer
-            (wl-summary-buffer-folder-name))))
-      (with-current-buffer (wl-message-get-original-buffer)
-       (bbdb-wl-update-record)
-       (run-hooks 'bbdb-wl-get-update-record-hook))))
+  (let ((folder-name (with-current-buffer
+                        wl-message-buffer-cur-summary-buffer
+                      (wl-summary-buffer-folder-name))))
+    (if (and (or (null bbdb-wl-folder-regexp)
+                (string-match bbdb-wl-folder-regexp folder-name))
+            (not (and bbdb-wl-ignore-folder-regexp
+                      (string-match bbdb-wl-ignore-folder-regexp
+                                    folder-name))))
+       (with-current-buffer (wl-message-get-original-buffer)
+         (bbdb-wl-update-record)
+         (run-hooks 'bbdb-wl-get-update-record-hook)))))
 
 (defun bbdb-wl-hide-bbdb-buffer ()
   (let (bbdb-buf bbdb-win)