From: hmurata <hmurata>
Date: Mon, 7 Jan 2002 13:48:53 +0000 (+0000)
Subject: * bbdb-wl.el (bbdb-wl-ignore-folder-regexp): New variable.
X-Git-Tag: wl-2_9_5~23
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b057dc65cff4355ad621007dacd2cd505b742608;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)