Function: gnus-agent-spam-p

gnus-agent-spam-p is a byte-compiled function defined in gnus-agent.el.gz.

Signature

(gnus-agent-spam-p)

Documentation

Say whether an article is spam or not.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-agent.el.gz
(defun gnus-agent-spam-p ()
  "Say whether an article is spam or not."
  (unless gnus-agent-spam-hashtb
    (setq gnus-agent-spam-hashtb (gnus-make-hashtable 1000)))
  (if (not (equal (mail-header-references gnus-headers) ""))
      nil
    (let ((string (gnus-simplify-subject (mail-header-subject gnus-headers))))
      (prog1
	  (gethash string gnus-agent-spam-hashtb)
	(puthash string t gnus-agent-spam-hashtb)))))