| blob | 637743a50a75f0cf103cfe2c34b6b0728a7ef4dd |
1 ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment
2 ;; Copyright (C) 1995,96,97 Free Software Foundation, Inc.
4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
5 ;; Keywords: news
7 ;; This file is part of GNU Emacs.
9 ;; GNU Emacs is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation; either version 2, or (at your option)
12 ;; any later version.
14 ;; GNU Emacs is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22 ;; Boston, MA 02111-1307, USA.
24 ;;; Commentary:
26 ;;; Code:
37 "NoCeM pseudo-cancellation treatment"
43 "List of groups that will be searched for NoCeM messages."
54 )
55 "List of NoCeM issuers to pay attention to."
61 "*Directory where NoCeM files will be stored."
66 "*Number of days to keep NoCeM headers in the cache."
71 "*Function called to verify that the NoCeM message is valid.
72 One likely value is `mc-verify'. If the function in this variable
73 isn't bound, the message will be used unconditionally."
79 "*If t try to fetch all messages which have @@NCM in the subject.
80 Otherwise don't fetch messages which have references or whose message-id
81 matches an previously scanned and verified nocem message."
85 ;;; Internal variables
93 ;;; Functions
101 ;;
102 ;; faster lookups for group names:
103 ;;
109 "Fill up a hash table with the real-name mappings from the user's
110 active file."
116 gnus-newsrc-alist))
119 "Scan all NoCeM groups for new NoCeM messages."
123 group active gactive articles)
125 ;; Load any previous NoCeM headers.
127 ;; Get the group name mappings:
129 ;; Read the active file if it hasn't been read yet.
134 ;; Go through all groups and see whether new articles have
135 ;; arrived.
143 ;; Ok, there are new articles in this group, se we fetch the
144 ;; headers.
147 headers header)
158 group))
160 articles nil dependencies)
163 ;; We take a closer look on all articles that have
164 ;; "@@NCM" in the subject. Unless we already read
165 ;; this cross posted message. Nocem messages
166 ;; are not allowed to have references, so we can
167 ;; ignore scanning followups.
171 header))
174 gnus-nocem-seen-message-ids))))
179 gnus-nocem-active)))))
180 ;; Save the results, if any.
185 "Check whether the current article is an NCM article and that we want it."
186 ;; Get the article.
190 issuer b e)
202 ;; The article has to have proper NoCeM headers.
205 ;; We get the name of the issuer.
218 "Verify using PGP that the canceler is who she says she is."
222 ;; If we don't have Mailcrypt, then we use the message anyway.
223 t))
226 "Enter the current article into the NoCeM cache."
231 ncm id group)
239 ;; An error.
240 )
242 ;; Ignore invalid entries.
243 )
245 ;; Make sure all entries in the hashtb are bound.
249 gnus-nocem-real-group-hashtb)
250 ;; Valid group.
256 ;; only store if not already present
265 ncm)
266 gnus-nocem-alist))
267 t)))
270 "Load the NoCeM cache."
273 ;; The buffer doesn't exist, so we create it and load the NoCeM
274 ;; cache.
280 "Save the NoCeM cache."
282 gnus-nocem-touched-alist)
288 "Save the NoCeM active file."
293 "Create a hashtable from the Message-IDs we have."
298 entry)
302 ;; This entry has expired, so we remove it.
305 ;; This is ok, so we enter it into the hashtable.
315 "Clear internal NoCeM variables."
317 gnus-nocem-hashtb nil
318 gnus-nocem-active nil
319 gnus-nocem-touched-alist nil
320 gnus-nocem-seen-message-ids nil
321 gnus-nocem-real-group-hashtb nil))
324 "Say whether article ID in the current group is wanted."
329 ;;; gnus-nocem.el ends here