mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(gnus-nocem-issuers): Update.

Browse source 
(gnus-nocem-check-from): New option.
(gnus-nocem-scan-groups): Use it.
(gnus-nocem-check-article): Bind gnus-newsgroup-name.
(gnus-nocem-check-article-limit): Add :version.
This commit is contained in:
Dave Love 2000-10-18 16:50:53 +00:00
parent 9035a35ae6
commit f49c4ef75c
2 changed files with 39 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/ChangeLog
View file

@ -1,3 +1,11 @@
2000-10-18 Dave Love <fx@gnu.org>
* gnus-nocem.el (gnus-nocem-issuers): Update.
(gnus-nocem-check-from): New option.
(gnus-nocem-scan-groups): Use it.
(gnus-nocem-check-article): Bind gnus-newsgroup-name.
(gnus-nocem-check-article-limit): Add :version.
2000-10-16 Miles Bader <miles@lsi.nec.co.jp>
* gnus-nocem.el (gnus-nocem-check-article-limit): New variable.

38
lisp/gnus/gnus-nocem.el
View file

@ -46,15 +46,17 @@
:type '(repeat (string :tag "Group")))
(defcustom gnus-nocem-issuers
'("AutoMoose-1" "Automoose-1" ; CancelMoose[tm]
"rbraver@ohww.norman.ok.us" ; Robert Braver
"clewis@ferret.ocunix.on.ca" ; Chris Lewis
"jem@xpat.com" ; Despammer from Korea
"snowhare@xmission.com" ; Benjamin "Snowhare" Franz
"red@redpoll.mrfs.oh.us (Richard E. Depew)") ; ARMM! ARMM!
'("AutoMoose-1" ; CancelMoose[tm]
"clewis@ferret.ocunix" ; Chris Lewis
"cosmo.roadkill"
"SpamHippo"
"hweede@snafu.de")
"*List of NoCeM issuers to pay attention to.
This can also be a list of `(ISSUER CONDITIONS)' elements."
This can also be a list of `(ISSUER CONDITION ...)' elements.
See <URL:http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html> for an
issuer registry."
:group 'gnus-nocem
:type '(repeat (choice string sexp)))
@ -87,9 +89,18 @@ matches an previously scanned and verified nocem message."
(defcustom gnus-nocem-check-article-limit nil
"*If non-nil, the maximum number of articles to check in any NoCeM group."
:group 'gnus-nocem
:version "21.1"
:type '(choice (const :tag "unlimited" nil)
(integer 1000)))
(defcustom gnus-nocem-check-from t
"Non-nil means check for valid issuers in message bodies.
Otherwise don't bother fetching articles unless their author matches a
valid issuer, which is much faster if you are selective about the issuers."
:group 'gnus-nocem
:version "21.1"
:type 'boolean)
;;; Internal variables
(defvar gnus-nocem-active nil)
@ -173,6 +184,18 @@ matches an previously scanned and verified nocem message."
;; are not allowed to have references, so we can
;; ignore scanning followups.
(and (string-match "@@NCM" (mail-header-subject header))
(and gnus-nocem-check-from
(let ((case-fold-search t))
(catch 'ok
(mapcar
(lambda (author)
(if (consp author)
(setq author (car author)))
(if (string-match
author (mail-header-from header))
(throw 'ok t)))
gnus-nocem-issuers)
nil)))
(or gnus-nocem-liberal-fetch
(and (or (string= "" (mail-header-references
header))
@ -201,6 +224,7 @@ matches an previously scanned and verified nocem message."
"Check whether the current article is an NCM article and that we want it."
;; Get the article.
(let ((date (mail-header-date header))
(gnus-newsgroup-name group)
issuer b e type)
(when (or (not date)
(time-less-p