mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

spam.el (spam-check-BBDB): Simplify and support BBDB 3.x when searching. Drop `bbdb-cache'.

Browse Source
This commit is contained in:
Teodor Zlatanov 2011-10-11 14:24:55 +00:00 committed by Katsumi Yamaoka
parent b3c0dbfdcb
commit 128f4b895f
2 changed files with 9 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
2011-10-11 Teodor Zlatanov <tzz@lifelogs.com>
* spam.el (spam-check-BBDB): Simplify and support BBDB 3.x when
searching. Drop `bbdb-cache'.
2011-10-11 Katsumi Yamaoka <yamaoka@jpl.org>
* message.el (message-signed-or-encrypted-p): Exclude header when

24
lisp/gnus/spam.el
View File

@ -2150,29 +2150,13 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
(defun spam-check-BBDB ()
"Mail from people in the BBDB is classified as ham or non-spam"
(let ((who (message-fetch-field "from"))
bbdb-cache bbdb-hashtable)
(when spam-cache-lookups
(setq bbdb-cache (gethash 'spam-use-BBDB spam-caches))
(unless bbdb-cache
(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)))
(let ((who (message-fetch-field "from")))
(when who
(setq who (nth 1 (gnus-extract-address-components who)))
(if
(if spam-cache-lookups
(intern-soft (downcase who) bbdb-cache)
(bbdb-search-simple nil who))
(if (fboundp 'bbdb-search)
(bbdb-search (bbdb-records) who) ;; v3
(bbdb-search-simple nil who)) ;; v2
t
(if spam-use-BBDB-exclusive
spam-split-group