From f9c70ff403976e3da5cec4ea1b21e373ecb091a1 Mon Sep 17 00:00:00 2001
From: okada <okada>
Date: Tue, 8 May 2001 15:12:14 +0000
Subject: [PATCH] 2001-05-08  Kenichi OKADA  <okada@opaopa.org>

	* utils/bbdb-wl.el (bbdb-wl-folder-regexp): New variable.
	(bbdb-wl-get-update-record): Use `bbdb-wl-folder-regexp'.
---
 ChangeLog        |    5 +++++
 doc/wl-ja.texi   |    2 ++
 doc/wl.texi      |    2 ++
 utils/bbdb-wl.el |   13 ++++++++++---
 4 files changed, 19 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6148586..b5b5fad 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-08  Kenichi OKADA  <okada@opaopa.org>
+
+	* utils/bbdb-wl.el (bbdb-wl-folder-regexp): New variable.
+	(bbdb-wl-get-update-record): Use `bbdb-wl-folder-regexp'.
+
 2001-04-16  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* utils/bbdb-wl.el (bbdb-wl-get-update-record): Use
diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index 1d9c63a..115ea72 100644
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -5784,6 +5784,8 @@ OK です。
 ;; @r{自動的に ML フィールドを加える}
 (add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook)
 (setq bbdb-auto-notes-alist '(("X-ML-Name" (".*$" ML 0))))
+;; @r{自動収集するフォルダの正規表現}
+(setq bbdb-wl-folder-regexp "^%\\|^-")
 @end group
 @end lisp
 
diff --git a/doc/wl.texi b/doc/wl.texi
index 8dff6d0..0ce09ba 100644
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -5850,6 +5850,8 @@ byte-compiled and installed.
 ;; @r{automatically add mailing list fields}
 (add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook)
 (setq bbdb-auto-notes-alist '(("X-ML-Name" (".*$" ML 0))))
+;; @r{folder regexp for auto collection}
+(setq bbdb-wl-folder-regexp "^%\\|^-")
 @end group
 @end lisp
 
diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el
index e0ef325..976c01b 100644
--- a/utils/bbdb-wl.el
+++ b/utils/bbdb-wl.el
@@ -31,6 +31,7 @@
 (require 'bbdb)
 
 (defvar bbdb-wl-get-update-record-hook nil)
+(defvar bbdb-wl-folder-regexp nil)
 
 (defun bbdb-wl-setup ()
   (add-hook 'wl-message-redisplay-hook 'bbdb-wl-get-update-record)
@@ -63,9 +64,15 @@
   (bbdb-save-db t))
 
 (defun bbdb-wl-get-update-record ()
-  (with-current-buffer (wl-message-get-original-buffer)
-    (bbdb-wl-update-record)
-    (run-hooks 'bbdb-wl-get-update-record-hook)))
+  (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))))
 
 (defun bbdb-wl-hide-bbdb-buffer ()
   (let (bbdb-buf bbdb-win)
-- 
1.7.10.4