X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fspam.el;h=09da93c124fd6619e8b8a55b9ebc0a1cb7e7e7ca;hb=4dc0c478fdf39b896a5185812101be972b98d5c7;hp=07084b7fbe2ebd71fa4ea9d6f88a1b2101995cbd;hpb=27065c8942e7727460e31dc55968ffd0ab1d2ae4;p=elisp%2Fgnus.git-

diff --git a/lisp/spam.el b/lisp/spam.el
index 07084b7..09da93c 100644
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -1,5 +1,6 @@
 ;;; spam.el --- Identifying spam
-;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
+
+;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: network
@@ -18,8 +19,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
@@ -80,7 +81,9 @@ Populated by spam-install-backend-super.")
 
 (defgroup spam nil
   "Spam configuration."
-  :version "21.4")
+  :version "22.1"
+  :group 'mail
+  :group 'news)
 
 (defcustom spam-summary-exit-behavior 'default
   "Exit behavior at the time of summary exit.
@@ -350,7 +353,22 @@ Only meaningful if you enable `spam-use-blackholes'."
   :type '(radio (const nil) regexp)
   :group 'spam)
 
-(defcustom spam-face 'gnus-splash-face
+(defface spam
+  '((((class color) (type tty) (background dark))
+     (:foreground "gray80" :background "gray50"))
+    (((class color) (type tty) (background light))
+     (:foreground "gray50" :background "gray80"))
+    (((class color) (background dark))
+     (:foreground "ivory2"))
+    (((class color) (background light))
+     (:foreground "ivory4"))
+    (t :inverse-video t))
+  "Face for spam-marked articles."
+  :group 'spam)
+;; backward-compatibility alias
+(put 'spam-face 'face-alias 'spam)
+
+(defcustom spam-face 'spam
   "Face for spam-marked articles."
   :type 'face
   :group 'spam)
@@ -1316,8 +1334,8 @@ addition to the set values for the group."
     (gnus-message 6 "Exiting summary buffer and applying spam rules")
 
     ;; before we begin, remove any article limits
-    (ignore-errors
-      (gnus-summary-pop-limit t))
+;    (ignore-errors
+;      (gnus-summary-pop-limit t))
 
     ;; first of all, unregister any articles that are no longer ham or spam
     ;; we have to iterate over the processors, or else we'll be too slow
@@ -2088,21 +2106,23 @@ 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
@@ -2864,8 +2884,8 @@ installed through spam-necessary-extra-headers."
     (add-to-list 'gnus-extra-headers header))
 
   (setq spam-install-hooks t)
-  ;; TODO: How do we redo this every time spam-face is customized?
-  (push '((eq mark gnus-spam-mark) . spam-face)
+  ;; TODO: How do we redo this every time the `spam' face is customized?
+  (push '((eq mark gnus-spam-mark) . spam)
 	gnus-summary-highlight)
   ;; Add hooks for loading and saving the spam stats
   (add-hook 'gnus-save-newsrc-hook 'spam-maybe-spam-stat-save)