Lines Matching +refs:gnus +refs:header +refs:name
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
43 (require 'gnus-sum)
45 (require 'gnus-uu) ; because of key prefix issues
47 (require 'gnus)
66 ;; autoload gnus-registry
68 (autoload 'gnus-registry-group-count "gnus-registry")
69 (autoload 'gnus-registry-add-group "gnus-registry")
70 (autoload 'gnus-registry-store-extra-entry "gnus-registry")
71 (autoload 'gnus-registry-fetch-extra "gnus-registry"))
85 (defcustom spam-directory (nnheader-concat gnus-directory "spam/")
161 (defcustom spam-whitelist (expand-file-name "whitelist" spam-directory)
168 (defcustom spam-blacklist (expand-file-name "blacklist" spam-directory)
213 "Whether a header regular expression match should be used by `spam-split'.
285 "Group name where incoming spam should be put 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"))
365 "File name of the ifile database."
377 If nil, the current group name will be used."
379 (const :tag "Use the current group name"))
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."
458 (gnus-define-keys gnus-summary-mode-map
460 "Sx" gnus-summary-mark-as-spam
462 "Msx" gnus-summary-mark-as-spam
463 "\M-d" gnus-summary-mark-as-spam)
497 (gnus-parameter-spam-marks group)
498 (gnus-parameter-ham-marks group)))
509 (memq 'gnus-group-spam-classification-spam
510 (gnus-parameter-spam-contents group)))
515 (memq 'gnus-group-spam-classification-ham
516 (gnus-parameter-spam-contents group))
520 '((gnus-group-spam-exit-processor-report-gmane spam spam-use-gmane)
521 (gnus-group-spam-exit-processor-bogofilter spam spam-use-bogofilter)
522 (gnus-group-spam-exit-processor-blacklist spam spam-use-blacklist)
523 (gnus-group-spam-exit-processor-ifile spam spam-use-ifile)
524 (gnus-group-spam-exit-processor-stat spam spam-use-stat)
525 (gnus-group-spam-exit-processor-spamoracle spam spam-use-spamoracle)
526 (gnus-group-ham-exit-processor-ifile ham spam-use-ifile)
527 (gnus-group-ham-exit-processor-bogofilter ham spam-use-bogofilter)
528 (gnus-group-ham-exit-processor-stat ham spam-use-stat)
529 (gnus-group-ham-exit-processor-whitelist ham spam-use-whitelist)
530 (gnus-group-ham-exit-processor-BBDB ham spam-use-BBDB)
531 (gnus-group-ham-exit-processor-copy ham spam-use-ham-copy)
532 (gnus-group-ham-exit-processor-spamoracle ham spam-use-spamoracle))
540 (or (member processor (nth 0 (gnus-parameter-spam-process group)))
549 (parameters (nth 0 (gnus-parameter-spam-process group)))
560 (spam-group-processor-p group 'gnus-group-spam-exit-processor-report-gmane))
563 (spam-group-processor-p group 'gnus-group-spam-exit-processor-bogofilter))
566 (spam-group-processor-p group 'gnus-group-spam-exit-processor-blacklist))
569 (spam-group-processor-p group 'gnus-group-spam-exit-processor-ifile))
572 (spam-group-processor-p group 'gnus-group-ham-exit-processor-ifile))
575 (spam-group-processor-p group 'gnus-group-spam-exit-processor-spamoracle))
578 (spam-group-processor-p group 'gnus-group-ham-exit-processor-bogofilter))
581 (spam-group-processor-p group 'gnus-group-spam-exit-processor-stat))
584 (spam-group-processor-p group 'gnus-group-ham-exit-processor-stat))
587 (spam-group-processor-p group 'gnus-group-ham-exit-processor-whitelist))
590 (spam-group-processor-p group 'gnus-group-ham-exit-processor-BBDB))
593 (spam-group-processor-p group 'gnus-group-ham-exit-processor-copy))
596 (spam-group-processor-p group 'gnus-group-ham-exit-processor-spamoracle))
602 (spam-list-articles gnus-newsgroup-articles 'ham))
604 (spam-list-articles gnus-newsgroup-articles 'spam))
609 (unless gnus-group-is-exiting-without-update-p
610 (gnus-message 6 "Exiting summary buffer and applying spam rules")
619 gnus-newsgroup-articles
621 (changed-articles (gnus-set-difference old-articles new-articles)))
644 (spam-group-processor-p gnus-newsgroup-name processor))
648 (when (not (spam-group-spam-contents-p gnus-newsgroup-name))
650 (gnus-parameter-spam-process-destination gnus-newsgroup-name)))
651 (gnus-message 5 "Marking spam as expired and moving it to %s"
652 gnus-newsgroup-name)
654 (gnus-parameter-spam-process-destination gnus-newsgroup-name)))
658 (gnus-message 5 "Marking spam as expired without moving it")
661 (when (or (spam-group-ham-contents-p gnus-newsgroup-name)
662 (and (spam-group-spam-contents-p gnus-newsgroup-name)
671 (spam-group-processor-p gnus-newsgroup-name processor))
674 (when (spam-group-ham-processor-copy-p gnus-newsgroup-name)
675 (gnus-message 5 "Copying ham")
677 (gnus-parameter-ham-process-destination gnus-newsgroup-name)))
680 (when (spam-group-spam-contents-p gnus-newsgroup-name)
681 (gnus-message 5 "Moving ham messages from spam group")
683 (gnus-parameter-ham-process-destination gnus-newsgroup-name))))
691 (when (spam-group-spam-contents-p gnus-newsgroup-name)
692 (gnus-message 6 "Marking %s articles as spam"
697 gnus-newsgroup-unseen
698 gnus-newsgroup-unreads)))
701 (gnus-summary-mark-article article gnus-spam-mark))
702 (gnus-message 9 "Did not mark new messages as spam.")))))
707 (gnus-summary-kill-process-mark)
708 (let ((articles gnus-newsgroup-articles)
710 (gnus-check-backend-function
711 'request-move-article gnus-newsgroup-name))
714 (when (eq (gnus-summary-article-mark article) gnus-spam-mark)
715 (gnus-summary-mark-article article gnus-expirable-mark)
723 (gnus-summary-set-process-mark article))
728 (gnus-summary-copy-article nil group)
730 (gnus-summary-move-article nil group)))))
736 (gnus-summary-set-process-mark article))
738 (let ((gnus-novice-user nil)) ; don't ask me if I'm sure
739 (gnus-summary-delete-article nil))))
741 (gnus-summary-yank-process-mark))))
744 (gnus-summary-kill-process-mark)
745 (let ((todo (spam-list-articles gnus-newsgroup-articles 'ham))
747 (gnus-check-backend-function
748 'request-move-article gnus-newsgroup-name))
749 (respool-method (gnus-find-method-for-group gnus-newsgroup-name))
761 (gnus-summary-mark-article article gnus-unread-mark))
762 (gnus-summary-set-process-mark article))
768 (gnus-summary-respool-article nil respool-method))
772 (gnus-summary-copy-article nil group)
774 (gnus-summary-move-article nil group))))) ; else move articles
782 (gnus-summary-set-process-mark article))
784 (let ((gnus-novice-user nil)) ; don't ask me if I'm sure
785 (gnus-summary-delete-article nil))))))
787 (gnus-summary-yank-process-mark))
817 (gnus-summary-goto-subject article)
818 (gnus-summary-show-article t)
819 (setq article-buffer (get-buffer gnus-article-buffer))))
827 ;; (gnus-group-real-name gnus-newsgroup-name))
828 ;; (setq article-filename (expand-file-name
835 "Fetch the `from' field quickly, using the internal gnus-data-list function"
837 (assoc article (gnus-data-list nil)))
838 (mail-header-from
839 (gnus-data-header (assoc article (gnus-data-list nil))))
844 gnus-data-list function"
846 (assoc article (gnus-data-list nil)))
847 (mail-header-subject
848 (gnus-data-header (assoc article (gnus-data-list nil))))
853 gnus-data-list function"
855 (assoc article (gnus-data-list nil)))
856 (mail-header-message-id
857 (gnus-data-header (assoc article (gnus-data-list nil))))
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
887 and further checks are also inhibited. The usual mailgroup name
908 See the Info node `(gnus)Fancy Mail Splitting' for more details."
924 (gnus-message 8 "spam-split: widening the buffer (%s requires it)"
925 (symbol-name check))
935 (gnus-message 5 "spam-split: calling the %s function"
936 (symbol-name (cdr pair)))
945 (gnus-error
948 (symbol-name decision)
949 (symbol-name spam-split-symbolic-return))))))))
958 (let* ((group gnus-newsgroup-name)
959 (autodetect (gnus-parameter-spam-autodetect group))
960 (methods (gnus-parameter-spam-autodetect-methods group))
975 (gnus-request-article-this-buffer
983 (gnus-summary-mark-article article gnus-spam-mark))
986 (when (zerop (gnus-registry-group-count id))
987 (gnus-registry-add-group
997 gnus-newsgroup-articles
998 gnus-newsgroup-unseen)))))
1074 (let ((mark (gnus-summary-article-mark article)))
1080 gnus-newsgroup-name
1110 gnus-newsgroup-articles
1113 (gnus-message 5 "%s %d %s articles with classification %s, check %s"
1117 (symbol-name classification)
1118 (symbol-name check))
1127 gnus-newsgroup-name))))))
1137 (let ((cell-list (cdr-safe (gnus-registry-fetch-extra id type)))
1140 (gnus-registry-store-extra-entry
1145 (gnus-message 5 (format "%s called with bad ID, type, classification, check, or group"
1153 (cdr-safe (gnus-registry-fetch-extra id type))
1155 (gnus-message 5 (format "%s called with bad ID, type, classification, or check"
1166 (let ((cell-list (cdr-safe (gnus-registry-fetch-extra id type)))
1175 (gnus-message 5 (format "%s called with bad ID, type, classification, or check"
1188 (let ((cell-list (cdr-safe (gnus-registry-fetch-extra id type)))
1194 (gnus-registry-store-extra-entry
1199 (gnus-message 5 (format "%s called with bad ID, type, check, or group"
1223 (let ((type (if body "body" "header"))
1264 (gnus-message 5 "Checking headers for relay addresses")
1267 (gnus-message 9 "Blackhole search found host IP %s." (match-string 1))
1282 (gnus-message 5 "(DIG): positive blackhole check '%s'"
1288 (gnus-message 5 "positive blackhole check")
1337 (let* ((parsed-address (gnus-extract-address-components from))
1338 (name (or (nth 0 parsed-address) "Ham Sender"))
1346 (gnus-message 5 "%s address %s %s BBDB"
1352 (bbdb-create-internal name nil net-address nil nil
1373 (setq who (nth 1 (gnus-extract-address-components who)))
1397 (let ((article-buffer-name (buffer-name))
1403 (let ((temp-buffer-name (buffer-name))
1406 (set-buffer article-buffer-name)
1409 nil temp-buffer-name nil "-c"
1425 Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
1426 (let ((category (or category gnus-newsgroup-name))
1481 (spam-stat-buffer (buffer-name)) ; stat the current buffer
1551 (unless (file-exists-p (file-name-directory file))
1552 (make-directory (file-name-directory file) t))
1605 (let ((pure-address (nth 1 (gnus-extract-address-components address))))
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)
1705 (gnus-summary-show-article t)
1706 (set-buffer gnus-article-buffer)
1711 (gnus-summary-show-article)))
1715 (let ((article-buffer-name (buffer-name))
1719 (let ((temp-buffer-name (buffer-name)))
1721 (set-buffer article-buffer-name)
1725 nil temp-buffer-name nil
1772 (let ((article-buffer-name (buffer-name))
1777 (let ((temp-buffer-name (buffer-name)))
1779 (set-buffer article-buffer-name)
1784 nil temp-buffer-name nil
1790 (set-buffer temp-buffer-name)
1799 (let ((temp-buffer-name (buffer-name)))
1811 nil temp-buffer-name nil
1841 (push '((eq mark gnus-spam-mark) . spam)
1842 gnus-summary-highlight)
1844 (add-hook 'gnus-save-newsrc-hook 'spam-maybe-spam-stat-save)
1845 (add-hook 'gnus-get-top-new-news-hook 'spam-maybe-spam-stat-load)
1846 (add-hook 'gnus-startup-hook 'spam-maybe-spam-stat-load)
1847 (add-hook 'gnus-summary-prepare-exit-hook 'spam-summary-prepare-exit)
1848 (add-hook 'gnus-summary-prepare-hook 'spam-summary-prepare)
1849 (add-hook 'gnus-get-new-news-hook 'spam-setup-widening)
1850 (add-hook 'gnus-summary-prepare-hook 'spam-find-spam))
1855 (remove-hook 'gnus-save-newsrc-hook 'spam-maybe-spam-stat-save)
1856 (remove-hook 'gnus-get-top-new-news-hook 'spam-maybe-spam-stat-load)
1857 (remove-hook 'gnus-startup-hook 'spam-maybe-spam-stat-load)
1858 (remove-hook 'gnus-summary-prepare-exit-hook 'spam-summary-prepare-exit)
1859 (remove-hook 'gnus-summary-prepare-hook 'spam-summary-prepare)
1860 (remove-hook 'gnus-get-new-news-hook 'spam-setup-widening)
1861 (remove-hook 'gnus-summary-prepare-hook 'spam-find-spam))