Lines Matching +defs:header +defs:field
48 (require 'message) ;for the message-fetch-field functions
213 "Whether a header regular expression match should be used by `spam-split'.
331 "Regular expression for positive header spam matches."
332 :type '(repeat (regexp :tag "Regular expression to match spam header"))
336 "Regular expression for positive header ham matches."
337 :type '(repeat (regexp :tag "Regular expression to match ham header"))
401 (defcustom spam-bogofilter-header "X-Bogosity"
402 "The header that Bogofilter inserts in messages."
426 (defcustom spam-bogofilter-bogosity-positive-spam-header "^\\(Yes\\|Spam\\)"
427 "The regex on `spam-bogofilter-header' for positive spam identification."
629 (let ((id (spam-fetch-field-message-id-fast article)))
834 (defun spam-fetch-field-from-fast (article)
835 "Fetch the `from' field quickly, using the internal gnus-data-list function"
838 (mail-header-from
839 (gnus-data-header (assoc article (gnus-data-list nil))))
842 (defun spam-fetch-field-subject-fast (article)
843 "Fetch the `subject' field quickly, using the internal
847 (mail-header-subject
848 (gnus-data-header (assoc article (gnus-data-list nil))))
851 (defun spam-fetch-field-message-id-fast (article)
852 "Fetch the `Message-ID' field quickly, using the internal
856 (mail-header-message-id
857 (gnus-data-header (assoc article (gnus-data-list nil))))
966 (let ((id (spam-fetch-field-message-id-fast article))
967 (subject (spam-fetch-field-subject-fast article))
968 (sender (spam-fetch-field-from-fast article)))
1123 (spam-fetch-field-message-id-fast article)
1223 (let ((type (if body "body" "header"))
1255 (let ((headers (nnmail-fetch-field "received"))
1358 (when (stringp (spam-fetch-field-from-fast article))
1359 (push (spam-fetch-field-from-fast article) addresses)))
1368 (let ((who (nnmail-fetch-field "from"))
1610 (let ((from (nnmail-fetch-field "from"))
1633 (let ((from (spam-fetch-field-from-fast article))
1634 (id (spam-fetch-field-message-id-fast article))
1657 (spam-fetch-field-message-id-fast article)
1686 (let ((header (nnmail-fetch-field spam-bogofilter-header))
1690 (when header ; return nil when no header
1692 (if (string-match "spamicity=\\([0-9.]+\\)" header)
1693 (match-string 1 header)
1696 (when (string-match spam-bogofilter-bogosity-positive-spam-header
1697 header)