| blob | 9b76ede9856c98c8b0b53e2b04a7a080d7c435ea |
1 ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment
3 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6 ;; Keywords: news
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
25 ;;; Commentary:
27 ;;; Code:
38 "NoCeM pseudo-cancellation treatment"
44 "*List of groups that will be searched for NoCeM messages."
51 "cosmo.roadkill"
52 "SpamHippo"
54 "*List of NoCeM issuers to pay attention to.
56 This can also be a list of `(ISSUER CONDITION ...)' elements.
58 See <URL:http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html> for an
59 issuer registry."
65 "*Directory where NoCeM files will be stored."
70 "*Number of days to keep NoCeM headers in the cache."
75 "*Function called to verify that the NoCeM message is valid.
76 One likely value is `mc-verify'. If the function in this variable
77 isn't bound, the message will be used unconditionally."
83 "*If t try to fetch all messages which have @@NCM in the subject.
84 Otherwise don't fetch messages which have references or whose message-id
85 matches a previously scanned and verified nocem message."
90 "*If non-nil, the maximum number of articles to check in any NoCeM group."
97 "Non-nil means check for valid issuers in message bodies.
98 Otherwise don't bother fetching articles unless their author matches a
99 valid issuer, which is much faster if you are selective about the issuers."
104 ;;; Internal variables
112 ;;; Functions
120 ;;
121 ;; faster lookups for group names:
122 ;;
128 "Fill up a hash table with the real-name mappings from the user's active file."
134 gnus-newsrc-alist))
137 "Scan all NoCeM groups for new NoCeM messages."
141 group active gactive articles check-headers)
143 ;; Load any previous NoCeM headers.
145 ;; Get the group name mappings:
147 ;; Read the active file if it hasn't been read yet.
152 ;; Go through all groups and see whether new articles have
153 ;; arrived.
161 ;; Ok, there are new articles in this group, se we fetch the
162 ;; headers.
165 headers header)
176 group))
178 articles nil dependencies)
181 ;; We take a closer look on all articles that have
182 ;; "@@NCM" in the subject. Unless we already read
183 ;; this cross posted message. Nocem messages
184 ;; are not allowed to have references, so we can
185 ;; ignore scanning followups.
197 gnus-nocem-issuers)
198 nil)))
201 header))
204 gnus-nocem-seen-message-ids))))
218 gnus-nocem-active)))))
219 ;; Save the results, if any.
224 "Check whether the current article is an NCM article and that we want it."
225 ;; Get the article.
228 issuer b e type)
240 ;; The article has to have proper NoCeM headers.
243 ;; We get the name of the issuer.
257 wanted conditions condition)
259 ;; Do the quick check first.
261 t)
263 ;; Check whether we want this type.
274 wanted))))
277 "Verify using PGP that the canceler is who she says she is."
281 ;; If we don't have Mailcrypt, then we use the message anyway.
282 t))
285 "Enter the current article into the NoCeM cache."
290 ncm id group)
298 ;; An error.
299 )
301 ;; Ignore invalid entries.
302 )
304 ;; Make sure all entries in the hashtb are bound.
308 gnus-nocem-real-group-hashtb)
309 ;; Valid group.
315 ;; only store if not already present
324 ncm)
325 gnus-nocem-alist))
326 t)))
329 "Load the NoCeM cache."
332 ;; The buffer doesn't exist, so we create it and load the NoCeM
333 ;; cache.
339 "Save the NoCeM cache."
341 gnus-nocem-touched-alist)
347 "Save the NoCeM active file."
352 "Create a hashtable from the Message-IDs we have."
357 entry)
361 ;; This entry has expired, so we remove it.
364 ;; This is ok, so we enter it into the hashtable.
374 "Clear internal NoCeM variables."
376 gnus-nocem-hashtb nil
377 gnus-nocem-active nil
378 gnus-nocem-touched-alist nil
379 gnus-nocem-seen-message-ids nil
380 gnus-nocem-real-group-hashtb nil))
383 "Say whether article ID in the current group is wanted."
389 ;;; gnus-nocem.el ends here