;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:03:58 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/nnlistserv.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nnlistserv.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\304\305\306\307\"\310\211FB\304\311D B\310\207" [nnoo-definition-alist nnoo-state-alist require nnoo nnlistserv mapcar #[(p) "C\207" [p] 1] (nnweb) nil "*internal-non-initialized-backend*"] 4) #@39 Where nnlistserv will save its files. (defvar nnlistserv-directory (nnheader-concat gnus-directory "nnlistserv/") (#$ . 853)) (nnoo-define 'nnlistserv-directory '(nnweb-directory)) #@40 What search engine type is being used. (defvar nnlistserv-name 'kk (#$ . 1040)) (nnoo-define 'nnlistserv-name '(nnweb-type)) #@24 Type-definition alist. (defvar nnlistserv-type-definition '((kk (article . nnlistserv-kk-wash-article) (map . nnlistserv-kk-create-mapping) (search . nnlistserv-kk-search) (address . "http://www.itk.ntnu.no/ansatte/Andresen_Trond/kk-f/%s/") (pages "fra160396" "fra160796" "fra061196" "fra160197" "fra090997" "fra040797" "fra130397" "nye") (index . "date.html") (identifier . nnlistserv-kk-identity))) (#$ . 1171)) (nnoo-define 'nnlistserv-type-definition '(nnweb-type-definition)) #@36 Search string to feed to DejaNews. (defvar nnlistserv-search nil (#$ . 1658)) (nnoo-define 'nnlistserv-search '(nnweb-search)) #@46 Whether this nnlistserv server is ephemeral. (defvar nnlistserv-ephemeral-p nil (#$ . 1791)) (byte-code "\300\301\302\"\210\303\304!\210\305\304\306\"\207" [nnoo-define nnlistserv-ephemeral-p (nnweb-ephemeral-p) nnoo-define-basics-1 nnlistserv nnoo-import-1 ((nnweb))] 3) #@55 Perform the search and create an number-to-url alist. (defalias 'nnlistserv-kk-create-mapping #[nil "\212q\210\306\307 \n\"A@\206\310\311B\312\313!\314\211\211\211\211#$ %& \211A @\211\203\316\315 \210\312\316! !\203&eb\210\317 \210eb\210\320\321\314\306#\203&\322\310!#\322\323!\322\324!\325\312\326! \"#P#\327#!\204F%\211AT\241%A\f \330\331\332#!\333Q\314\311\211#\314'()*+,-.\334.\f -,+*)('&\n.\nD$B$\335$@A@$@\"\210\336\337\340%A` %\210\202F\341/$\244\342\"\211/. \207" [nnweb-buffer nnweb-group nnweb-group-alist from subject page t assoc 1 0 nnweb-definition pages nil erase-buffer search nnweb-decode-entities re-search-forward "^
  • *\\([^\\>]+\\) *<[^>]+>\\([^>]+\\)<" match-string 2 3 format address nnweb-get-hashtb "" "<" nnweb-identifier "@kk>" vector nnweb-set-hashtb nnheader-message 5 "%s %s %s" sort car-less-than-car url map active case-fold-search extra xref lines chars references id date number nnweb-articles] 12 (#$ . 2069)]) (defalias 'nnlistserv-kk-wash-article #[nil "\306\307\310\211\211\211\211\311 \210 \2030eb\210\312\313\314 @\310\306$!\210 \211A@\315\316!L\210\202eb\210\317\320\310\306#\210e\316y\210`|\210db\210\321\320\310\306#\210d\322y\210`|\210\323 \210eb\210\313\324 \n#\313\325 \"\313\326\"\313\327\f\"\261.\207" [id subject email name sent headers t (sent name email subject id) nil nnweb-decode-entities re-search-forward format "