;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:18:14 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/nnsoup.el ;;; in Emacs version 20.4.1 ;;; 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 "`nnsoup.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\310\311\312\313\"\313\211FB\310\314D B\313\207" [nnoo-definition-alist nnoo-state-alist require nnheader nnmail gnus-soup gnus-msg nnoo nnsoup mapcar #[(p) "C\207" [p] 1] nil "*internal-non-initialized-backend*"] 4) #@25 *SOUP packet directory. (defvar nnsoup-directory "~/SOUP/" (#$ . -937)) (nnoo-define 'nnsoup-directory nil) #@43 *Where nnsoup will store temporary files. (defvar nnsoup-tmp-directory (byte-code "\301\302!\203 \302 \207\303\300!\203\207\304\207" [temporary-file-directory fboundp temp-directory boundp "/tmp/"] 2) (#$ . -1051)) (nnoo-define 'nnsoup-tmp-directory nil) #@53 *Directory where outgoing packets will be composed. (defvar nnsoup-replies-directory (concat nnsoup-directory "replies/") (#$ . -1316)) (nnoo-define 'nnsoup-replies-directory nil) #@34 *Format of the replies packages. (defvar nnsoup-replies-format-type 110 (#$ . -1502)) (nnoo-define 'nnsoup-replies-format-type nil) #@38 *Index type of the replies packages. (defvar nnsoup-replies-index-type 110 (#$ . -1640)) (nnoo-define 'nnsoup-replies-index-type nil) #@14 Active file. (defvar nnsoup-active-file (concat nnsoup-directory "active") (#$ . 1780)) (nnoo-define 'nnsoup-active-file nil) #@206 Format string command for packing a SOUP packet. The SOUP files will be inserted where the %s is in the string. This string MUST contain both %s and %d. The file number will be inserted where %d appears. (defvar nnsoup-packer "tar cf - %s | gzip > $HOME/Soupin%d.tgz" (#$ . 1913)) (nnoo-define 'nnsoup-packer nil) #@107 *Format string command for unpacking a SOUP packet. The SOUP packet file name will be inserted at the %s. (defvar nnsoup-unpacker "gunzip -c %s | tar xvf -" (#$ . -2235)) (nnoo-define 'nnsoup-unpacker nil) #@47 *Where nnsoup will look for incoming packets. (defvar nnsoup-packet-directory "~/" (#$ . -2447)) (nnoo-define 'nnsoup-packet-directory nil) #@73 *Regular expression matching SOUP packets in `nnsoup-packet-directory'. (defvar nnsoup-packet-regexp "Soupout" (#$ . -2593)) (nnoo-define 'nnsoup-packet-regexp nil) #@154 If non nil commit the reply buffer on each message send. This is necessary if using message mode outside Gnus with nnsoup as a backend for the messages. (defvar nnsoup-always-save t (#$ . 2765)) (nnoo-define 'nnsoup-always-save nil) #@17 nnsoup version. (defconst nnsoup-version "nnsoup 0.0" (#$ . 3004)) (byte-code "\306\300!\204\307\300 B\310\300\311\"\210\306\302!\204\311\302 B\310\302\311\"\210\306\303!\204*\312\303 B\310\303\311\"\210\306\304!\204;\311\304 B\310\304\311\"\210\306\305!\204L\311\305 B\310\305\311\"\210\306\313!\204^\311 \313 B\310\313\311\"\210\306\314!\204p\311\f\314 B\310\314\311\"\210\306\315!\204\202\311 \315 B\310\315\311\"\210\316\317!\207" [nnsoup-status-string current-load-list nnsoup-group-alist nnsoup-current-prefix nnsoup-replies-list nnsoup-buffers boundp "" nnoo-define nil 0 nnsoup-current-group nnsoup-group-alist-touched nnsoup-article-alist nnoo-define-basics-1 nnsoup] 3) (defalias 'nnsoup-retrieve-headers #[(sequence &optional group server fetch-old) "\306!\210\212 q\210\307 \210\310\n \"AA\f\311\312\211\211 !\"#\f@;\203+\313\202K#\203\247\f\203\247#\203M#@@A\f@W\203M#A\211#\2049#\203+#@ B \312#@A@\314H\315H\316U\204y\317\320#@A@\321H!!\204|\312!\f\203\231\f@#@@AX\203\231\f@B\fA\211\204\200 \237 @B\240\210\202+ \237 !\203 \203db\210` @A@@\322\314 @8\321H!$%&$\203\367\323$!\210&b\210\324\325!\203\367\326\327%!\311\211#\210%T%\315y\210\202\335+ A\211 \204\266\330\202K \203G @@\" A \"\203\331\"@ @A\332#\211\203>db\210\333\334\"@\"c\210\323 !\210db\210\335c\210\"A\211\"\202\336 \210\313.\207" [group nntp-server-buffer nnsoup-current-group nnsoup-group-alist sequence msg-buf nnsoup-possibly-change-group erase-buffer assoc t nil headers 2 1 110 file-exists-p nnsoup-file 0 nnsoup-index-buffer insert-buffer-substring looking-at "[0-9]+" replace-match int-to-string nov nnsoup-narrow-to-article head format "221 %d Article retrieved.\n" ".\n" nnheader-fold-continuation-lines this-area-seq useful-areas use-nov articles areas index-buffer number b] 7]) (nnoo-register-function 'nnsoup-retrieve-headers) (defalias 'nnsoup-open-server #[(server &optional defs) "\303\304 #\210\305\n!\204\306\307\310\217\210\305\n!\204 \311 \210\312\304\313\n#\207\314\315\n!!\2041\311 \210\312\304\316\n#\207\317 \210\312\304\320\n$\210\321\207" [server defs nnsoup-directory nnoo-change-server nnsoup file-exists-p nil (make-directory nnsoup-directory t) ((error)) nnsoup-close-server nnheader-report "Couldn't create directory: %s" file-directory-p file-truename "Not a directory: %s" nnsoup-read-active-file "Opened server %s using directory %s" t] 5]) (nnoo-register-function 'nnsoup-open-server) (defalias 'nnsoup-request-close #[nil "\306 \210\307 \210\310 \210\311 \203' \211A@A\211\203 \312!\203 \313!\210\202 )\311\311\311\311\314\315!\210\316\207" [buffer nnsoup-buffers nnsoup-group-alist nnsoup-group-alist-touched nnsoup-current-group nnsoup-replies-list nnsoup-write-active-file nnsoup-write-replies gnus-soup-save-areas nil buffer-name kill-buffer nnoo-close-server nnoo t] 3]) (nnoo-register-function 'nnsoup-request-close) (defalias 'nnsoup-request-article #[(id &optional newsgroup server buffer) "\305!\210\306\212\n\206\f q\210\307 \210\f;?\205$\310\f!\211\205$\311 !\210\312*\207" [newsgroup buf buffer nntp-server-buffer id nnsoup-possibly-change-group nil erase-buffer nnsoup-narrow-to-article insert-buffer-substring t] 2]) (nnoo-register-function 'nnsoup-request-article) (defalias 'nnsoup-request-group #[(group &optional server dont-check) "\304!\210 \203\n\305\207\306\n\"A@\211\204\307\310\311#\202-\312\313 A @ZT\314] @ A%)\207" [group dont-check nnsoup-group-alist active nnsoup-possibly-change-group t assoc nnheader-report nnsoup "No such group: %s" nnheader-insert "211 %d %d %d %s\n" 0] 7]) (nnoo-register-function 'nnsoup-request-group) (defalias 'nnsoup-request-type #[(group &optional article) "\305!\210 \204\306\n\"AA@@A \204\307\207\310 \"A@\311H\311H\211\312U\203-\313\2028\f\314U\2037\315\2028\307)\207" [group article nnsoup-group-alist nnsoup-current-group kind nnsoup-possibly-change-group assoc unknown nnsoup-article-to-area 2 109 mail 110 news] 4]) (nnoo-register-function 'nnsoup-request-type) (defalias 'nnsoup-close-group #[(group &optional server) "\304\n\203.\n\211A@\211@ \232\203\305 \" A\203\306 A!\203\307 A!\210\202*\310\207" [nnsoup-buffers elem buffers group nil delq buffer-name kill-buffer t] 3]) (nnoo-register-function 'nnsoup-close-group) (defalias 'nnsoup-request-list #[(&optional server) "\212q\210\305 \210 \204\306 \210 p\307\f\211A@\211\203;\n@\310\261\210\311\nA@A!\210\310c\210\311\nA@@!\210\312c\210\202,\313\207" [nntp-server-buffer nnsoup-group-alist entry standard-output alist erase-buffer nnsoup-read-active-file nil " " princ " y\n" t] 3]) (nnoo-register-function 'nnsoup-request-list) (defalias 'nnsoup-request-scan #[(group &optional server) "\300 \207" [nnsoup-unpack-packets] 1]) (nnoo-register-function 'nnsoup-request-scan) (defalias 'nnsoup-request-newgroups #[(date &optional server) "\300 \207" [nnsoup-request-list] 1]) (nnoo-register-function 'nnsoup-request-newgroups) (defalias 'nnsoup-request-list-newsgroups #[(&optional server) "\300\207" [nil] 1]) (nnoo-register-function 'nnsoup-request-list-newsgroups) (defalias 'nnsoup-request-post #[(&optional server) "\300\301!\210\302\207" [nnsoup-store-reply "news" t] 2]) (nnoo-register-function 'nnsoup-request-post) (defalias 'nnsoup-request-mail #[(&optional server) "\300\301!\210\302\207" [nnsoup-store-reply "mail" t] 2]) (nnoo-register-function 'nnsoup-request-mail) (defalias 'nnsoup-request-expire-articles #[(articles group &optional server force) "\306!\210\307 \"\211A@\nAA\310\310\310\310\f\203\216\f\211A@\311 @! A@\312H\313\314\315!!8\211\204P\313\314\315\316\"!8\211\203|\317\"\203|\320#\203|\321\322\323\217\203|\nA\324 \nAA\"\241\210\325\"\204\nA\324 \nAA\"\241\210\202\nAA\203\240 \nAA@@@\240\210\202\246 \211AT\240\210\326\316!\210.\207" [group nnsoup-group-alist total-infolist active infolist info nnsoup-possibly-change-group assoc nil gnus-uncompress-range 0 5 file-attributes nnsoup-file t gnus-sublist-p nnmail-expired-article-p #1=#:G82184 (byte-code "\302\303\304\305! $\210\306\305!!\203\307\305!!\210\302\303\304\305\310\" $\210\306\305\310\"!\2031\307\305\310\"!\210\310\207" [prefix group nnheader-message 5 "Deleting %s in group %s..." nnsoup-file file-exists-p delete-file t] 6) ((error)) delq gnus-sorted-complement nnsoup-write-active-file range-list mod-time prefix articles force] 6]) (nnoo-register-function 'nnsoup-request-expire-articles) (defalias 'nnsoup-possibly-change-group #[(group &optional force) "\203 \232\204\303\304\207" [group nnsoup-current-group nnsoup-article-alist nil t] 2]) (defalias 'nnsoup-read-active-file #[nil "\306\307 !\205[\310\311\312\217\210\203Z@A@@:\203Z\306\211\211\211\f\f\211A\f@\211A\211\203V\f@@@\fA\203E\fA\211\202:\f@@A \nB AB\241\210\202%-\313 \207" [nnsoup-group-alist nnsoup-active-file max min e entry nil file-exists-p #1=#:G82185 (byte-code "\301\302\211\211$\207" [nnsoup-active-file load t] 5) ((error)) t alist nnsoup-group-alist-touched] 6]) (defalias 'nnsoup-write-active-file #[(&optional force) "\205B \204\f\n\205B\306 \307\310\311!!\312\216r\fq\210\313\314\300\315DE!\210\316c\210\313\314\317E!\210\316c)r\fq\210~\210\320ed \306\321%\210,\207" [nnsoup-group-alist force nnsoup-group-alist-touched nnsoup-active-file #1=#:temp-buffer #2=#:temp-file nil get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) gnus-prin1 setq quote "\n" nnsoup-current-prefix write-region 0] 7]) #@30 Return the next free prefix. (defalias 'nnsoup-next-prefix #[nil "\302\303\304\305 !\211!!\204\303\304\306\"!\203 T\202 T)\207" [prefix nnsoup-current-prefix nil file-exists-p nnsoup-file int-to-string t] 4 (#$ . 10708)]) #@52 Return the full path of FILE (in any case) in DIR. (defalias 'nnsoup-file-name #[(dir file) "\305\306 \305\"\307 !\310P\311\312\313\314\n\"\"@+\207" [case-fold-search dir files file regexp t directory-files regexp-quote "$" delq nil mapcar #[(file) "\302 \"\205 \207" [regexp file string-match] 3]] 5 (#$ . 10948)]) (defalias 'nnsoup-read-areas #[nil "\306\307\"\211\205\277\212\nq\210\310 !\311\211\211\211\211\211\211A@\211\203\265\312 \313\314\315\f#\210\316\317H\320Q\211!\203L\321 \322\f!\"\210\316\317H\323Q\211!\203!\321 \322\f\324\"\"\210\317\fI\210\325!\326\327H\"\211\204\224\327H\327B\327BDEB\202!\211A@A\211T \\BDC\244\210A@ \\\241\210\202!.\330\324!\210\331 !))\207" [nnsoup-tmp-directory areas-file nntp-server-buffer file cur-prefix lnum nnsoup-file-name "areas" gnus-soup-parse-areas nil nnsoup-next-prefix nnheader-message 5 "Incorporating file %s..." file-exists-p 0 ".IDX" rename-file nnsoup-file ".MSG" t nnsoup-number-of-articles assoc 1 nnsoup-write-active-file delete-file area number entry areas nnsoup-group-alist] 8]) (defalias 'nnsoup-number-of-articles #[(area) "\212\302H\203 \302H\202A\303H\304H\305U\204%\306\307H!q\210\310ed\"\202A\311\307H!q\210\312\307H \"\2049\313!\210\312\307H \"AG)\207" [area nnsoup-article-alist 4 2 1 110 nnsoup-index-buffer 0 count-lines nnsoup-message-buffer assoc nnsoup-dissect-buffer] 3]) (defalias 'nnsoup-dissect-buffer #[(area) "\306P \307H\310H\310\311\211#eb\210 \312U\2037\313\314!\203\336\315y\210\fT\211`\316\317\315!!u\210`E B\202 \320U\203f\313#!\203\336\315y\210\fT\211`\321#\311\322#\203[\310y\210\202^db\210`E B\202= \323U\203\223\313\324!\203\336\315y\210\fT\211`\325\326\311\322#\203\210\310y\210\202\213db\210`E B\202l \327U\204\237 \330U\203\331m\204\336`f\331\332\333\"_`Tf\331\307\334\"_\\`\307\\f\331\307\335\"_\\`\336\\f\\\fT\211`\337\\\340\n\337\\!u\210`E B\202\237\341\342 \"\210 \310H B$B\211$-\207" [message-unix-mail-delimiter area len alist i format "^" 2 0 nil 110 looking-at "^#! *rnews \\(+[0-9]+\\) *$" 1 string-to-number match-string 109 re-search-forward t 77 "\n" search-forward "\n\n" 66 98 expt 2.0 24 16 8 3 4 floor error "Unknown format: %c" mbox-delim nnsoup-article-alist] 6]) (defalias 'nnsoup-index-buffer #[(prefix &optional message) " \203 \306\202\n\307P\310\n\311Q\312 !\2068\313\f\nP!\2058\212\314 !q\210\315 \210 pBB\316\f\nP!\210p)*\207" [prefix message file buffer-name nnsoup-directory nnsoup-current-group ".MSG" ".IDX" " *nnsoup " "*" get-buffer file-exists-p get-buffer-create buffer-disable-undo nnheader-insert-file-contents nnsoup-buffers] 3]) (defalias 'nnsoup-file #[(prefix &optional message) "\303 \n\203 \304\202\f\305Q!\207" [nnsoup-directory prefix message expand-file-name ".MSG" ".IDX"] 4]) (defalias 'nnsoup-message-buffer #[(prefix) "\301\302\"\207" [prefix nnsoup-index-buffer msg] 3]) #@50 Unpack all packets in `nnsoup-packet-directory'. (defalias 'nnsoup-unpack-packets #[nil "\306\307 #\310 \211A@\211\2058\311\312\313\n#\210\314\f \n#\204)\311\312\315\n#\210\202\316\n!\210\317 \210\311\312\320\"\210\202*\207" [nnsoup-packet-directory nnsoup-packet-regexp packet packets nnsoup-tmp-directory nnsoup-unpacker directory-files t nil nnheader-message 5 "nnsoup: unpacking %s..." gnus-soup-unpack-packet "Couldn't unpack %s" delete-file nnsoup-read-areas "Unpacking...done"] 4 (#$ . 13921)]) (defalias 'nnsoup-narrow-to-article #[(article &optional area head) "\206\306 \n\"\211\205A@\307H\211\205\310 \311\"\312\312\205\354\212\f\203\321A@\313H\314H\315U\203\234\316\317 !!\203\234\310 !q\210~\210eb\210 @@Zy\210\320p!\314y\210\321\322!\203\213\320p!\fq\210~\210A@\313H\307Hb\210\323U\204\201\324U\203\207\325y\210`)\202\216\fq\210~\210 \206\227d}\210\202\321\fq\210~\210\326A@\307H\"\204\263\327A@!\210 \326A@\307H\"A\236\211\203\320A@AA@}\210)eb\210\203\352e\330\331\312\332#\203\347`S\202\350d}\210\f)-\207" [area article nnsoup-current-group prefix msg-buf beg nnsoup-article-to-area 0 nnsoup-index-buffer msg nil 2 1 99 file-exists-p nnsoup-file read looking-at "[0-9]+" 110 109 -1 assoc nnsoup-dissect-buffer search-forward "\n\n" t end format nnsoup-article-alist entry head] 6]) #@43 Make an outbound package of SOUP replies. (defalias 'nnsoup-pack-replies #[nil "\302!\204\f\303\304\305#\210\306 \210\307 \210\310 \210\311\312\313#\204!\314\315!\210\316 \"\207" [nnsoup-replies-directory nnsoup-packer file-exists-p nnheader-message 5 "No such directory: %s" gnus-soup-save-areas nnsoup-write-active-file nnsoup-write-replies directory-files nil "\\.MSG$" error "No files to pack" gnus-soup-pack] 4 (#$ . 15299) nil]) #@25 Write the REPLIES file. (defalias 'nnsoup-write-replies #[nil "\205\f\302 \"\210\303\211\207" [nnsoup-replies-list nnsoup-replies-directory gnus-soup-write-replies nil] 3 (#$ . 15746)]) #@54 Return the area that ARTICLE in GROUP is located in. (defalias 'nnsoup-article-to-area #[(article group) "\304 \"AA\211\203\n@@A W\203\nA\211\204 \n\205!\n@)\207" [group nnsoup-group-alist areas article assoc] 4 (#$ . 15942)]) (byte-code "\304\302!\204\n D\302 B\304\207" [message-send-mail-function message-send-news-function nnsoup-old-functions current-load-list boundp] 2) #@57 Use the SOUP methods for posting news and mailing mail. (defalias 'nnsoup-set-variables #[nil "\302\303\211\207" [message-send-news-function message-send-mail-function nnsoup-request-post nnsoup-request-mail] 2 (#$ . 16338) nil]) #@67 Revert posting and mailing methods to the standard Emacs methods. (defalias 'nnsoup-revert-variables #[nil "@A@\211\207" [nnsoup-old-functions message-send-mail-function message-send-news-function] 2 (#$ . 16576) nil]) (defalias 'nnsoup-store-reply #[(kind) "\306\307!\210\310\311!\312\211p\312\216\212\214\313 \210\f\314\232\203\"\315 !\210\202'\315&!\210) q\210\316 \210\317!\210\214\313 \210\320'\321\"\210)db\210h\322U\204I\322c\210\321eb\210\323\324\325(!\326Q!\210\327\326!\210\330\331!\210\332 \211Tb\210\333)\334\f!\312*+%\335,\211-\203\253\336-!\203\253\212-q\210eb\210\323\337\312\321#\203\233,T,\202\213.\203\243\340 \210)\341\342\343,#\210*\344 \210\345 !.\207" [mailbuf delimline case-fold-search tembuf kind message-required-mail-headers require mail-utils generate-new-buffer " message temp" nil message-narrow-to-headers "mail" message-generate-headers erase-buffer insert-buffer-substring message-remove-header t 10 re-search-forward "^" regexp-quote "\n" replace-match backward-char 1 point-marker gnus-soup-store nnsoup-kind-to-prefix 0 bufferp "^#! *rnews" save-buffer nnheader-message 5 "Stored %d messages" nnsoup-write-replies kill-buffer message-required-news-headers message-ignored-mail-headers mail-header-separator nnsoup-replies-directory nnsoup-replies-format-type nnsoup-replies-index-type num msg-buf nnsoup-always-save] 7]) (defalias 'nnsoup-kind-to-prefix #[(kind) "\204\n\306 \307P!\211\203 \n@\310H\230\204 \nA\211\204\n\203+\n@\311H\202H\312\313 ! \314\315\f \316\230\203>\317\202?\320$#B\211@\311H)\207" [nnsoup-replies-list nnsoup-replies-directory replies kind nnsoup-replies-format-type nnsoup-replies-index-type gnus-soup-parse-replies "REPLIES" 1 0 vector gnus-soup-unique-prefix format "%c%c%c" "news" 110 109] 10]) #@35 (Re-)create the SOUP active file. (defalias 'nnsoup-make-active #[nil "\306\307\310\311#\312\"\313\211\211\211\211\211!\"\314\315!q\210\"\203\245\316\317\320\"@#\210\321 \210\322\"@!\210eb\210\323\324\313\310#\204B\325\202F\326\327!\330ed\"\331\332\"@\"\210\"@\333\224\333\225O\334 !\"\211\204} \333\fB\333\fB\335 \336\337\f%DE!B!\202\234\n\211A@A\211T \f\\B\335 \336\337\f%DC\244\210\nA@ \f\\\241\210\"A\211\"\204!\316\317\337\"\210!#\340\310!.\207" [nnsoup-directory min elem ident lines group sort directory-files t "IDX$" #[(f1 f2) "\302\303\"\210\304\305\306\"!\302\303 \"\210\304\305\306 \"!W\207" [f1 f2 string-match "/\\([0-9]+\\)\\." string-to-int match-string 1] 5] nil get-buffer-create " *nnsoup work*" nnheader-message 5 "Doing %s..." erase-buffer nnheader-insert-file-contents re-search-forward "^[^ ]* [^ ]* [^ ]* [^ ]* [^ ]* [^ ]* [^ ]* [^ ]* *\\(Xref: \\)? *[^ ]* \\([^ ]+\\):[0-9]" "unknown" match-string 2 count-lines string-match "/\\([0-9]+\\)\\." 1 assoc vector "ncm" "" nnsoup-write-active-file active files nnsoup-group-alist] 10 (#$ . 18394) nil]) #@63 Delete any *.MSG and *.IDX files that aren't known by nnsoup. (defalias 'nnsoup-delete-unreferenced-message-files #[nil "\306\307\310\311\"\"\312\313 \314\n#\314\314\f\211A@\211\2039\315\n\"\210\316\211\224O \235\204 B\202\317 \320\"\321\322\323 #-\207" [nnsoup-group-alist known regexp nnsoup-directory files non-files apply nconc mapcar #[(ga) "\301\302AA\"\207" [ga mapcar #[(area) "A@\301H\207" [area 0] 2]] 3] "\\.MSG$\\|\\.IDX$" directory-files nil string-match 0 sort string< map-y-or-n-p "Delete file %s? " #[(file) "\302 P!\207" [nnsoup-directory file delete-file] 3] file] 5 (#$ . 19511) nil]) (provide 'nnsoup)