;ELC ;;; compiled by jwz@thalidomide on Tue Oct 19 23:08:54 1993 ;;; from file /th/jwz/emacs19/lisp/gnus/gnus-digest.el ;;; emacs version 19.9 Lucid. ;;; bytecomp version 2.20; 18-oct-93. ;;; 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"))) (error "This file was compiled for Emacs 19.")) (byte-code "! #MM! ! MMM!̇" [require gnus define-key gnus-summary-mode-map "" gnus-summary-read-digest gnus-parse-digest-1 #[nil "eb!`e }! ! P)dbxy#Ӕd| beC#Ӕw `|!i`Bڱ \\ޱ TM." [t nil 1 p message-id-tick subject-header newsgroups-header case-fold-search search-forward "\n\n" mail-fetch-field "Newsgroups" gnus-newsgroup-name "Subject" " digest" " \n" -10 re-search-forward "^End of.*Digest.*\n" 0 result "^\\(---+\\|-\\)\n" "\n " looking-at "[ \n ]*\\'" "Newsgroups: " "\n" "Message-ID: <" " message #" 48 ">\n"] 5] gnus-parse-digest #[nil " d!‰ \n   ~@bA@ }m!!Ԕԕ{Քf\"\"\"\" \"! \" \" \"\n*yE\n! ed\"    \n & BA.) ," [gnus-parse-digest-1 t nil result opm case-fold-search points make-local-variable gnus-digest-divisions references message-id date lines xref from subject point looking-at "\n" "\\(>?From\\|Subject\\|Date\\|Lines\\|Xref\\|References\\|Message-ID\\):[ ]+\\([^ \n]+.*\\) ?$" 2 0 c s char-equal 70 62 83 68 76 string-to-int 88 82 77 1 "(None)" "(Unknown User)" error "no message id?" count-lines vector] 9] boundp gnus-digest-save-state nil gnus-digest-scratch-buffer gnus-select-digest-article #[nil "! !! q \nq~ q\n!+  q`) \"@! ։*" [gnus-digest-save-state error "already reading a digest" gnus-summary-select-article gnus-summary-show-all-headers gnus-digest-scratch-buffer buffer-name get-buffer-create " *gnus-digest-scratch-buffer*" erase-buffer gnus-article-buffer insert-buffer gnus-parse-digest header-data gnus-newsgroup-unreads gnus-newsgroup-marked gnus-newsgroup-begin gnus-newsgroup-headers gnus-auto-select-next gnus-summary-buffer mapcar #[(x) "H" [x 0] 2] nil gnus-last-element gnus-newsgroup-end gnus-current-article gnus-current-headers gnus-current-history gnus-have-all-headers gnus-last-article] 6] gnus-digest-reset #[nil "\n\n@\nA@\n8\n8\n8\n\n8 )" [nil p gnus-digest-save-state gnus-newsgroup-unreads gnus-newsgroup-marked 2 gnus-newsgroup-begin 3 gnus-newsgroup-headers 4 gnus-auto-select-next 5 gnus-digest-mode] 2] gnus-unselect-digest-article #[nil "! !! ! b)" [gnus-digest-save-state error "not reading a digest" gnus-digest-reset p gnus-summary-exit t gnus-summary-jump-to-group gnus-newsgroup-name gnus-summary-setup-buffer run-hooks gnus-select-group-hook gnus-summary-prepare] 2] inside-select-digest] 4) (fset 'gnus-summary-read-digest #[nil "? ! ! U!   eb p!=y#!! !!q *!y#)" [inside-select-digest t gnus-select-digest-article gnus-summary-setup-buffer run-hooks gnus-select-group-hook gnus-summary-prepare gnus-apply-kill-hook buffer-size 0 error "empty digest?" gnus-digest-mode gnus-show-threads gnus-thread-hide-subtree gnus-summary-hide-all-threads gnus-auto-select-first gnus-summary-first-unread-article get-buffer gnus-summary-buffer search-forward ":" nil gnus-configure-windows newsgroups gnus-pop-to-buffer gnus-summary-set-mode-line gnus-article-buffer get-buffer-window buffer-read-only erase-buffer kill-buffer] 4 "\ Read the current message as a digest. The *Subject* buffer will be replaced with lines representing the messages in the digest; the normal GNUS commands will work on the sub-messages of the digest. Typing \\[gnus-summary-exit] at the *Subject* buffer will replace the list of messages in the digest with the list of (digest) messages in the newsgroup. Reading a digest is something like a recursive edit." nil]) (byte-code "M!" [gnus-request-digest-article #[(article) "q  @ U A@  Ai \" b q  #+̇" [gnus-digest-scratch-buffer gnus-digest-divisions nil next rest article buffer-size error "no digest data for %s" nntp-server-buffer erase-buffer insert-buffer-substring t] 5] provide gnus-digest] 2)