;ELC ;;; compiled by gsstark@lola-granola.MIT.EDU on Tue Jul 23 13:34:26 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.2.37/lisp/gnus-nocem.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-nocem.el' was compiled for Emacs 19.29 or later")) (byte-code "!!" [require gnus nnmail] 2) #@59 *List of groups that will be searched for NoCeM messages. (defvar gnus-nocem-groups (quote ("alt.nocem.misc" "news.admin.net-abuse.announce")) (#$ . -562)) #@45 *List of NoCeM issuers to pay attention to. (defvar gnus-nocem-issuers (quote ("Automoose-1" "clewis@ferret.ocunix.on.ca;" "jem@xpat.com;" "red@redpoll.mrfs.oh.us (Richard E. Depew)")) (#$ . -724)) #@46 *Directory where NoCeM files will be stored. (defvar gnus-nocem-directory (byte-code " !P" [file-name-as-directory gnus-article-save-directory "NoCeM/"] 2) (#$ . -928)) #@53 *Number of days to keep NoCeM headers in the cache. (defvar gnus-nocem-expiry-wait 15 (#$ . -1106)) #@183 *Function called to verify that the NoCeM message is valid. One likely value is `mc-verify'. If the function in this variable isn't bound, the message will be used unconditionally. (defvar gnus-nocem-verifyer nil (#$ . -1213)) (byte-code "! B! B!  B!- B‡" [boundp gnus-nocem-active nil current-load-list gnus-nocem-alist gnus-nocem-touched-alist gnus-nocem-hashtb] 2) (defalias 'gnus-nocem-active-file #[nil " !P" [file-name-as-directory gnus-nocem-directory "active"] 2]) (defalias 'gnus-nocem-cache-file #[nil " !P" [file-name-as-directory gnus-nocem-directory "cache"] 2]) #@47 Scan all NoCeM groups for new NoCeM messages. (defalias 'gnus-nocem-scan-groups #[nil "!\" !, ,ϏA@ !,  \"A@ A @W\f\\\fA AW\"!\fw\fATy @ AB! \"=\n#!@H\" @\"Ap!, D  \" \"B , -" [gnus-nocem-groups nil articles gactive active group groups file-exists-p gnus-nocem-directory make-directory t gnus-nocem-load-cache gnus-nocem-active-file gnus-nocem-active (byte-code " ‰$" [load gnus-nocem-active-file t] 5) ((error)) gnus-activate-group assoc make-vector 10 nnheader-set-temp-buffer " *Gnus NoCeM*" headers buffer dependencies gnus-retrieve-headers gnus-uncompress-range nov gnus-get-newsgroup-headers-xover gnus-get-newsgroup-headers string-match "@@NCM" 1 gnus-nocem-check-article kill-buffer delq gnus-nocem-save-cache gnus-nocem-save-active] 6 (#$ . 1838) nil]) #@74 Check whether the current article is an NCM article and that we want it. (defalias 'gnus-nocem-check-article #[(group header) " H $ Hlj \n * !!!\"e H \"eb# e#e }!\ne\n!e ," [gnus-message 7 "Checking article %d in %s for NoCeM..." header 0 group 3 nil e b issuer date nnmail-time-less nnmail-time-since nnmail-date-to-time nnmail-days-to-time gnus-nocem-expiry-wait gnus-request-article-this-buffer search-forward "\n@@BEGIN NCM HEADERS\n" t "\n@@BEGIN NCM BODY\n" mail-fetch-field "issuer" gnus-nocem-issuers gnus-nocem-verify-issuer gnus-nocem-enter-article] 6 (#$ . 2748)]) #@60 Verify using PGP that the canceler is who she says she is. (defalias 'gnus-nocem-verify-issuer #[(person) "~ ! ‡" [fboundp gnus-nocem-verifyer t] 2 (#$ . 3394)]) #@49 Enter the current article into the NoCeM cache. (defalias 'gnus-nocem-enter-article #[nil "eb##p‰  ʔT}eb#n͏,ygUJy>`!S{B \"LygU,yb A¡)BB-" [search-forward "\n@@BEGIN NCM BODY\n" nil t "\n@@END NCM BODY\n" id ncm buf e b 0 " " (byte-code " \f!)!" [boundp gnus-active-hashtb obarray read buf] 3) ((error)) 9 -1 intern gnus-nocem-hashtb 1 gnus-nocem-touched-alist current-time time gnus-nocem-alist] 6 (#$ . 3570)]) #@23 Load the NoCeM cache. (defalias 'gnus-nocem-load-cache #[nil "? ! ĉ$ " [gnus-nocem-alist file-exists-p gnus-nocem-cache-file load t gnus-nocem-alist-to-hashtb] 5 (#$ . 4089)]) #@23 Save the NoCeM cache. (defalias 'gnus-nocem-save-cache #[nil "K K !!)!!)!\"̎DEp\"Gqed%,щ" [gnus-nocem-alist gnus-nocem-touched-alist gnus-nocem-cache-file nnheader-set-temp-buffer generate-new-buffer-name " *nnheader temp*" nnheader-temp-cur-buffer nnheader-temp-file file-directory-p file-name-directory make-directory t ((byte-code " !\n !" [buffer-name nnheader-temp-cur-buffer kill-buffer] 2)) prin1 setq quote write-region nil nomesg] 7 (#$ . 4287)]) #@29 Save the NoCeM active file. (defalias 'gnus-nocem-save-active #[nil " !! !! !\"ʎ DEp\" 8\fqed %," [gnus-nocem-active-file nnheader-set-temp-buffer generate-new-buffer-name " *nnheader temp*" nnheader-temp-cur-buffer nnheader-temp-file file-directory-p file-name-directory make-directory t ((byte-code " !\n !" [buffer-name nnheader-temp-cur-buffer kill-buffer] 2)) prin1 setq gnus-nocem-active quote write-region nil nomesg] 8 (#$ . 4808)]) #@50 Create a hashtable from the Message-IDs we have. (defalias 'gnus-nocem-alist-to-hashtb #[nil " B! G_! @Z@!\"5\f AS AS@ \"LA@ A-" [gnus-nocem-alist alist nil pprev prev nnmail-days-to-time gnus-nocem-expiry-wait expiry entry gnus-make-hashtable 51 gnus-nocem-hashtb nnmail-time-less nnmail-time-since intern t] 4 (#$ . 5296)]) (gnus-add-shutdown (quote gnus-nocem-close) (quote gnus)) #@33 Clear internal NoCeM variables. (defalias 'gnus-nocem-close #[nil "" [nil gnus-nocem-alist gnus-nocem-hashtb gnus-nocem-active gnus-nocem-touched-alist] 2 (#$ . 5748)]) #@56 Say whether article ID in the current group is wanted. (defalias 'gnus-nocem-unwanted-article-p #[(id) " \n\"J" [intern-soft id gnus-nocem-hashtb] 3 (#$ . 5933)]) (provide (quote gnus-nocem))