;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:45:36 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/nnlistserv.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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/") (#$ . 850)) (nnoo-define 'nnlistserv-directory '(nnweb-directory)) #@40 What search engine type is being used. (defvar nnlistserv-name 'kk (#$ . 1037)) (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))) (#$ . 1168)) (nnoo-define 'nnlistserv-type-definition '(nnweb-type-definition)) #@36 Search string to feed to DejaNews. (defvar nnlistserv-search nil (#$ . 1655)) (nnoo-define 'nnlistserv-search '(nnweb-search)) #@46 Whether this nnlistserv server is ephemeral. (defvar nnlistserv-ephemeral-p nil (#$ . 1788)) (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) #@54 Perform the search and create a number-to-url alist. (defalias 'nnlistserv-kk-create-mapping #[nil "\212q\210\306\307 \n\"\211A@)\206\310\311B\312\313!\314\211\211\211\211#$% &' \211A @\211#\203\330\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$!\204L&\211AT\241&A \f\330\331\332$!\333Q\314\311\211$\314()*+,-./\334/ \f.-,+*)(&\n.\nD%B%\335%\211@A)@%@\"\210\336\337\340&A` %\210\202L\3410%\244\342\"\2110. \207" [nnweb-buffer nnweb-group nnweb-group-alist x from subject 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 page url map active case-fold-search extra xref lines chars references id date number nnweb-articles] 13 (#$ . 2066)]) (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\322 \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 "