From 71b0af27b4d6d27772e9d8ab1d7806a73a612e07 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Tue, 21 Dec 2004 17:01:37 +0000 Subject: [PATCH] (spam-check-BBDB): fix the BBDB caching code to use downcased symbol names; make a new cache instead of reusing bbdb-hashtable --- lisp/ChangeLog | 6 ++++++ lisp/spam.el | 21 ++++++++++++--------- 2 files changed, 18 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b5af14b3f..e223d2496 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-12-21 Teodor Zlatanov + + * spam.el (spam-check-BBDB): fix the BBDB caching code to use + downcased symbol names; make a new cache instead of reusing + bbdb-hashtable + 2004-12-21 Katsumi Yamaoka * rfc2231.el (rfc2231-parse-string): Decode encoded value after diff --git a/lisp/spam.el b/lisp/spam.el index f4ee8e2bc..f61842db3 100644 --- a/lisp/spam.el +++ b/lisp/spam.el @@ -2088,21 +2088,24 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (when spam-cache-lookups (setq bbdb-cache (gethash 'spam-use-BBDB spam-caches)) (unless bbdb-cache - (setq bbdb-cache - ;; this is the expanded (bbdb-hashtable) macro - ;; without the debugging support - (with-current-buffer (bbdb-buffer) - (save-excursion - (save-window-excursion - (bbdb-records nil t) - bbdb-hashtable)))) + (setq bbdb-cache (make-vector 17 0)) ; a good starting hash value + ;; this is based on the expanded (bbdb-hashtable) macro + ;; without the debugging support + (with-current-buffer (bbdb-buffer) + (save-excursion + (save-window-excursion + (bbdb-records nil t) + (mapatoms + (lambda (symbol) + (intern (downcase (symbol-name symbol)) bbdb-cache)) + bbdb-hashtable)))) (puthash 'spam-use-BBDB bbdb-cache spam-caches))) (when who (setq who (nth 1 (gnus-extract-address-components who))) (if (if spam-cache-lookups (symbol-value - (intern-soft who bbdb-cache)) + (intern-soft (downcase who) bbdb-cache)) (bbdb-search-simple nil who)) t (if spam-use-BBDB-exclusive -- 2.34.1