Function: spam-extra-header-to-number

spam-extra-header-to-number is a byte-compiled function defined in spam.el.gz.

Signature

(spam-extra-header-to-number HEADER HEADERS)

Documentation

Transform an extra HEADER to a number, using list of HEADERS.

Note this has to be fast.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/spam.el.gz
(defun spam-extra-header-to-number (header headers)
  "Transform an extra HEADER to a number, using list of HEADERS.
Note this has to be fast."
  (let ((header-content (gnus-extra-header header headers)))
    (if header-content
        (cond
         ((eq header 'X-Spam-Status)
          (string-to-number (replace-regexp-in-string
                             spam-spamassassin-score-regexp
                             "\\1"
                             header-content)))
         ;; for CRM checking, it's probably faster to just do the string match
         ((string-match "( pR: \\([0-9.-]+\\)" header-content)
          (- (string-to-number (match-string 1 header-content))))
         ((eq header 'X-Bogosity)
          (string-to-number (replace-regexp-in-string
                             ",.*" ""
                             (replace-regexp-in-string
                              ".*spamicity=" ""
                              header-content))))
         (t nil))
      nil)))