Function: spam-log-registration-type

spam-log-registration-type is a byte-compiled function defined in spam.el.gz.

Signature

(spam-log-registration-type ID TYPE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/spam.el.gz
;; check what a ham- or spam-processor registration says
;; returns nil if conflicting registrations are found
(defun spam-log-registration-type (id type)
  (let ((count 0)
        decision)
    (dolist (reg (spam-log-registered-p id type))
      (let ((classification (nth 0 reg)))
        (when (spam-classification-valid-p classification)
          (when (and decision
                     (not (eq classification decision)))
            (setq count (+ 1 count)))
          (setq decision classification))))
    (if (< 0 count)
        nil
      decision)))