From b057dc65cff4355ad621007dacd2cd505b742608 Mon Sep 17 00:00:00 2001 From: hmurata Date: Mon, 7 Jan 2002 13:48:53 +0000 Subject: [PATCH] * bbdb-wl.el (bbdb-wl-ignore-folder-regexp): New variable. (bbdb-wl-get-update-record): Changed to check `bbdb-wl-ignore-folder-regexp'. --- utils/ChangeLog | 6 ++++++ utils/bbdb-wl.el | 21 ++++++++++++--------- 2 files changed, 18 insertions(+), 9 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4