;ELC ;;; compiled by larsi@narfi.ifi.uio.no on Fri Nov 3 03:30:40 1995 ;;; from file /home/menja/c/larsi/dgnus/lisp/nndoc.el ;;; emacs version 19.29.90.3. ;;; 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 "`nndoc.el' was compiled for Emacs 19.29 or later")) (byte-code "!!!" [require nnheader rmail nnmail] 2) #@57 *Type of the file - one of `mbox', `babyl' or `digest'. (defvar nndoc-article-type (quote mbox) (#$ . -536)) #@282 Type of the last digest. Auto-detected from the article header. Possible values: `traditional' -- the "lots of dashes" (30+) rules used; we currently also do unconditional RFC 934 unquoting. `rfc1341' -- RFC 1341 digest (MIME, unique boundary, no quoting). (defvar nndoc-digest-type (quote traditional) (#$ . 652)) #@56 Regular expressions for articles of the various types. (defconst nndoc-type-to-regexp (byte-code "\nP\nPÉÉɯˉïE" [mbox "^" rmail-unix-mail-delimiter nil "^$" babyl "\f *\n" "" "^[0-9].*\n" "\\*\\*\\* EOOH \\*\\*\\*\n\\(^.+\n\\)*" digest "^------------------------------*[\n ]+" "^ ?$" "^End of"] 10) (#$ . 997)) (byte-code "! B! B!  B!- B!: B!G B!T B!a\n B!n B! Dׯ \f B‡" [boundp nndoc-article-begin nil current-load-list nndoc-article-end nndoc-head-begin nndoc-head-end nndoc-first-article nndoc-end-of-file nndoc-body-begin nndoc-current-server nndoc-server-alist nndoc-server-variables nndoc-article-type (nndoc-article-begin nil) (nndoc-article-end nil) (nndoc-head-begin nil) (nndoc-head-end nil) (nndoc-first-article nil) (nndoc-current-buffer nil) (nndoc-group-alist nil) (nndoc-end-of-file nil) (nndoc-body-begin nil) (nndoc-address nil)] 11) #@16 nndoc version. (defconst nndoc-version "nndoc 1.0" (#$ . 1983)) #@28 Current nndoc news buffer. (defvar nndoc-current-buffer nil (#$ . 2053)) (byte-code "! B! B!! B‡" [boundp nndoc-address nil current-load-list nndoc-status-string "" nndoc-group-alist] 2) (defalias 'nndoc-retrieve-headers #[(sequence &optional newsgroup server) "q É\n \"\f@;&͂q~eb7#G##\f\f@qZ]!`#y֕zeb`#֔bdb\"q\"c #db`SfUc\f\"cc\fA\fSqeb#҉#." [nntp-server-buffer erase-buffer 2 nil lines beg p article prev nndoc-possibly-change-buffer newsgroup server sequence headers nndoc-current-buffer re-search-forward nndoc-first-article nndoc-article-begin t nndoc-head-begin nndoc-head-end nndoc-forward-article 0 re-search-backward count-lines nndoc-article-end format "221 %d Article retrieved.\n" insert-buffer-substring 10 "\n" "Lines: %d\n" ".\n" "\\( ?\n[ ]+\\)+" replace-match " "] 7]) (defalias 'nndoc-open-server #[(server &optional defs) " \n Ç\n\n !DB \"6A@!\"< \f\")  A\f@\fA@\f8\f8\f8\f8\f8)Ç" [nnheader-init-server-buffer server nndoc-current-server t nnheader-save-variables nndoc-server-variables nndoc-server-alist assoc state nnheader-restore-variables delq nnheader-set-init-variables defs nndoc-article-type nndoc-type-to-regexp nndoc-article-begin nndoc-article-end 2 nndoc-head-begin 3 nndoc-head-end 4 nndoc-first-article 5 nndoc-end-of-file 6 nndoc-body-begin] 4]) (defalias 'nndoc-close-server #[(&optional server) "" [t] 1]) (defalias 'nndoc-server-opened #[(&optional server) " \n \n!" [server nndoc-current-server nntp-server-buffer buffer-name] 2]) (defalias 'nndoc-status-message #[(&optional server) "" [nndoc-status-string] 1]) (defalias 'nndoc-request-article #[(article &optional newsgroup server buffer) " \n\" \fq ;?m!=@\n=@eb#@ω#/eb#l#\\ω#l!iyU\\c*" [nndoc-possibly-change-buffer newsgroup server buffer nntp-server-buffer erase-buffer article nndoc-insert-article nndoc-article-type digest nndoc-digest-type traditional re-search-forward "^- -" nil t replace-match "-" search-forward "\n\n" "^[ ]+$" "" looking-at "[^ ]+:" 1 0] 5]) #@20 Select news GROUP. (defalias 'nndoc-request-group #[(group &optional server dont-check) " \n\"łA ȂA q \fU4 !ł@\f\f %c*)" [nndoc-possibly-change-buffer group server "No such file or buffer" nndoc-status-string nil nndoc-set-header-dependent-regexps dont-check t nntp-server-buffer erase-buffer nndoc-number-of-articles number 0 nndoc-close-group format "211 %d %d %d %s\n" 1] 7 (#$ . 4370)]) (defalias 'nndoc-close-group #[(group &optional server) " \n\"\f! \"\" ʇ" [nndoc-possibly-change-buffer group server kill-buffer nndoc-current-buffer delq assoc nndoc-group-alist nil nndoc-current-server t] 4]) (defalias 'nndoc-request-list #[(&optional server) "" [nil] 1]) (defalias 'nndoc-request-newgroups #[(date &optional server) "" [nil] 1]) (defalias 'nndoc-request-list-newsgroups #[(&optional server) "" [nil] 1]) (byte-code "\"\"" [defalias nndoc-request-post nnmail-request-post nndoc-request-post-buffer nnmail-request-post-buffer] 3) (defalias 'nndoc-possibly-change-buffer #[(group source) "\n\n\f \"A=t  t!*!?;t!t!?t\f\fQ!B B\nqp! ;e!rq~)!))" [nil buf nndoc-current-buffer assoc group nndoc-group-alist bufferp nndoc-address buffer-name file-exists-p file-directory-p get-buffer-create " *nndoc " "*" buffer-disable-undo erase-buffer insert-file-contents insert-buffer-substring t] 5]) (defalias 'nndoc-set-header-dependent-regexps #[nil "=PÉqebP#K˔K ˔˕{\" Q Q\f QO؉ ," [nndoc-article-type digest t nil b-delimiter boundary-id case-fold-search nndoc-current-buffer re-search-forward "\n\n\\|^Content-Type: *multipart/digest;[ \n]*[ ]" "boundary=\"\\([^\"\n]*[^\" \n]\\)\"" 1 rfc1341 nndoc-digest-type format "%s" "\n--" "[\n ]+" nndoc-article-begin "\\(--\\)?[\n ]+" nndoc-article-end nndoc-first-article "--[ ]*$" nndoc-end-of-file traditional] 5]) (defalias 'nndoc-forward-article #[(n) "V, #,#,#,SU" [n 0 re-search-forward nndoc-article-begin nil t nndoc-head-begin nndoc-head-end] 5]) (defalias 'nndoc-number-of-articles #[nil "q~eb\f #J #J - !J ; #J\f#J\nT\n*" [nndoc-current-buffer 0 num re-search-forward nndoc-first-article nndoc-article-begin nil t 1 nndoc-end-of-file looking-at nndoc-head-begin nndoc-head-end] 4]) (defalias 'nndoc-narrow-to-article #[(article) "q~eb\n# SU U4ƕ#0Ɣ1d})" [nndoc-current-buffer re-search-forward nndoc-article-begin nil t article 0 nndoc-article-end] 5]) (defalias 'nndoc-insert-article #[(article) "p q~eb #SU UrǕ#5ǔ6d}eb M #M`d}\n#Ydbe`#\fk\f#`d#*" [ibuf nndoc-current-buffer re-search-forward nndoc-article-begin nil t article 0 nndoc-article-end nndoc-head-begin nndoc-head-end append-to-buffer nndoc-body-begin] 5]) (provide (quote nndoc))