lisp/gnus/spam.el

10 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; the Free Software Foundation; either version 2, or (at your option)
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	 See the
32 ;;; comments, below, for supplementary explanations or discussions.
115   "Whether `spam-split' should work with symbols or group names."
120   "Whether `spam-split' should ALWAYS work with symbols or group names.
263 (defcustom spam-install-hooks (or
289 ;;; TODO: deprecate this variable, it's confusing since it's a list of strings,
323 (put 'spam-face 'face-alias 'spam)
325 (defcustom spam-face 'spam
327   :type 'face
383   "Whether the ifile check will return all categories, or just spam.
475   "`spam-split' will set this to nil or a spam-use-XYZ check if it
476   finds ham or spam.")
480   "Logical exclusive `or'."
481   (and (or a b) (not (and a b))))
508       (or (member group spam-junk-mailgroups)
519 (defvar spam-list-of-processors
533   "The spam-list-of-processors list contains pairs associating a
540       (or (member processor (nth 0 (gnus-parameter-spam-process group)))
543 	   (cdr-safe (assoc processor spam-list-of-processors))))
602 	(spam-list-articles gnus-newsgroup-articles 'ham))
604 	(spam-list-articles gnus-newsgroup-articles 'spam))
607 ;; The spam processors are invoked for any group, spam or ham or neither
612     ;; first of all, unregister any articles that are no longer ham or spam
613     ;; we have to iterate over the processors, or else we'll be too slow
618 	     (new-articles (spam-list-articles
623 	(dolist (processor-param spam-list-of-processors)
627 		unregister-list)
632 		  (push article unregister-list))))
635 	    (when (and unregister-list (symbol-value check))
636 	      (spam-register-routine classification check t unregister-list))))))
639     (dolist (processor-param spam-list-of-processors)
661     (when (or (spam-group-ham-contents-p gnus-newsgroup-name)
666       (dolist (processor-param spam-list-of-processors)
689   ;; check the global list of group names spam-junk-mailgroups and the
725 	    (if (or (not backend-supports-deletions)
743 (defun spam-ham-copy-or-move-routine (copy groups)
745   (let ((todo (spam-list-articles gnus-newsgroup-articles 'ham))
766 		   (or spam-split-disabled
769 	  (if (or (not backend-supports-deletions) ; else, we are not respooling
792     (spam-ham-copy-or-move-routine t groups)))
797     (spam-ham-copy-or-move-routine nil groups)))
835   "Fetch the `from' field quickly, using the internal gnus-data-list function"
837 	   (assoc article (gnus-data-list nil)))
839        (gnus-data-header (assoc article (gnus-data-list nil))))
844   gnus-data-list function"
846 	   (assoc article (gnus-data-list nil)))
848        (gnus-data-header (assoc article (gnus-data-list nil))))
853   gnus-data-list function"
855 	   (assoc article (gnus-data-list nil)))
857        (gnus-data-header (assoc article (gnus-data-list nil))))
864 (defvar spam-list-of-checks
877   "The spam-list-of-checks list contains pairs associating a
881 return nil, t, or a mailgroup name.  The value nil means that the
885 Otherwise, a mailgroup name or the symbol 'spam (depending on
891 (defvar spam-list-of-statistical-checks
897   "The spam-list-of-statistical-checks list contains all the mail
921 	    (dolist (check spam-list-of-statistical-checks)
928 	    (let ((list-of-checks spam-list-of-checks)
930 	      (while (and list-of-checks (not decision))
931 		(let ((pair (pop list-of-checks)))
933 			     (or (null specific-checks)
978 		     (if (or (null first-method)
1037   "The spam-registration-functions list contains pairs
1043   (or  (eq classification 'spam)
1047   (or  (eq process-type 'incoming)
1068 (defun spam-list-articles (articles classification)
1072 	list mark-cache-yes mark-cache-no)
1077 	      (push article list)
1083 		  (push article list)
1086     list))
1107 	;; make list of articles, using specific-articles if given
1108 	(setq articles (or specific-articles
1109 			   (spam-list-articles
1120 	;; now log all the registrations (or undo them, depending on unregister)
1129 ;;; log a ham- or spam-processor invocation to the registry
1137 	(let ((cell-list (cdr-safe (gnus-registry-fetch-extra id type)))
1138 	      (cell (list classification check group)))
1139 	  (push cell cell-list)
1143 	   cell-list))
1145       (gnus-message 5 (format "%s called with bad ID, type, classification, check, or group"
1148 ;;; check if a ham- or spam-processor registration has been done
1155 	(gnus-message 5 (format "%s called with bad ID, type, classification, or check"
1159 ;;; check if a ham- or spam-processor registration needs to be undone
1166 	(let ((cell-list (cdr-safe (gnus-registry-fetch-extra id type)))
1168 	  (dolist (cell cell-list)
1175 	(gnus-message 5 (format "%s called with bad ID, type, classification, or check"
1180 ;;; undo a ham- or spam-processor registration (the group is not used)
1188 	(let ((cell-list (cdr-safe (gnus-registry-fetch-extra id type)))
1189 	      new-cell-list found)
1190 	  (dolist (cell cell-list)
1193 	      (push cell new-cell-list)))
1197 	   new-cell-list))
1199 	(gnus-message 5 (format "%s called with bad ID, type, check, or group"
1205   (dolist (check spam-list-of-statistical-checks)
1284 			(push (list ip server query-result)
1289 		    (push (list ip server (query-dns query-string 'TXT))
1338 		 (name (or (nth 0 parsed-address) "Ham Sender"))
1367       "Mail from people in the BBDB is classified as ham or non-spam"
1426   (let ((category (or category gnus-newsgroup-name))
1427 	(add-or-delete-option (if unregister "-d" "-i"))
1438 	     add-or-delete-option category
1528 ;;; address can be a list, too
1530   "Enter ADDRESS (list or single) into the whitelist.
1533   (spam-enter-list address spam-whitelist remove)
1536 ;;; address can be a list, too
1538   "Enter ADDRESS (list or single) into the blacklist.
1541   (spam-enter-list address spam-blacklist remove)
1544 (defun spam-enter-list (addresses file &optional remove)
1546 Either the whitelist or the blacklist files can be used.  With
1549       (spam-enter-list (list addresses) file remove)
1550     ;; else, we have a list of addresses here
1571 ;;; returns t if the sender is in the whitelist, nil or
1579       (setq spam-whitelist-cache (spam-parse-list spam-whitelist)))
1592       (setq spam-blacklist-cache (spam-parse-list spam-blacklist)))
1595 (defun spam-parse-list (file)
1606 	      (push (or pure-address address) contents)))))
1631 	from addresses unregister-list)
1647 	    (push from unregister-list))
1654       (funcall remove-function unregister-list t)
1655       (dolist (article unregister-list)
1707     (let ((score (or (spam-check-bogofilter-headers t)
1710       (or score "0"))
1733   "Register an article, given as a string, as spam or non-spam."
1840   ;; TODO: How do we redo this every time the `spam' face is customized?