;ELC ;;; compiled by jwz@thalidomide on Wed Jan 26 14:08:26 1994 ;;; from file /u/jwz/emacs19/lisp/gnus/gnus-virt.el ;;; emacs version 19.9 Lucid. ;;; bytecomp version 2.22; 22-dec-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 "!!" [require gnus nntp] 2) (defvar gnus-virt-message-numbers nil "\ A vector mapping pseudo-message-id-numbers to message-id strings or to conses of (\"newsgroup-name\" . \"article-number\").") (byte-code "!KM" [fboundp gnus-virt-orig-nntp-request-article nntp-request-article] 2) (fset 'nntp-request-article #[(id) " H:@!A!" [id gnus-virt-message-numbers gnus-request-group gnus-virt-orig-nntp-request-article] 2 "\ Select article by message ID (or number)."]) (byte-code "M\"" [gnus-virt-cleanup #[nil "" [nil gnus-virt-message-numbers] 2] add-hook gnus-exit-group-hook] 3) (fset 'gnus-virt-canonicalize-message-id #[(id) "\n\"\nÉO\nÔOP\n" [string-match "@[^@]+\\'" id 0 nil] 4 "\ C-News has screwy notions about case sensitivity."]) (fset 'gnus-virt-retrieve-headers #[(sequence) "\n\"G\n \n \"   @ : @ A\nB\n\n  @ AB\n  \nB\n A 8\n  W H H\" &I)TO \"." [apply vector sequence gnus-virt-message-numbers nmessages 0 i nil last-group rest per-group-queue mid make-vector messages #[nil "!\n\n!\n  H! @H! T  Ye @H\"[ @I @H @  @HI @ I @HIA A!+ԉ" [last-group gnus-request-group per-group-queue gnus-retrieve-headers-by-id new new-rest ids-rest gnus-virt-canonicalize-message-id gnus-virt-message-numbers i 6 nmessages error "couldn't find %s" messages 3 system-name " " ":" 0 nil] 9] grab-headers format "%s" id "EXPIRED?" "" append] 12 "\ Return list of article headers specified by SEQUENCE of article id. The article ids may be message-id strings, or conses of the form (\"newsgroup-name\" . \"article-number\"). The format of the returned list is `([NUMBER SUBJECT FROM XREF LINES DATE MESSAGE-ID REFERENCES] ...)'. If there is no References: field, In-Reply-To: field is used instead. Reader macros for the vector are defined as `nntp-header-FIELD'. Writer macros for the vector are defined as `nntp-set-header-FIELD'."]) (fset 'gnus-virt-select-newsgroup #[(name message-ids) " !\"\n@H !H ه" [gnus-start-news-server name gnus-newsgroup-name nil gnus-newsgroup-unselected gnus-virt-retrieve-headers message-ids gnus-newsgroup-headers mapcar gnus-header-number gnus-newsgroup-unreads 0 gnus-newsgroup-begin gnus-last-element gnus-newsgroup-end gnus-newsgroup-last-rmail gnus-newsgroup-last-mail gnus-newsgroup-last-folder gnus-newsgroup-last-file gnus-current-article gnus-current-headers gnus-current-history gnus-have-all-headers gnus-last-article gnus-clear-hashtables-for-newsgroup-headers t] 3 "\ Select a \"virtual\" newsgroup consisting of the given message-ids. The message ids may be actual message-id strings, or conses of the form (\"newsgroup-name\" . \"article-number\")."]) (fset 'gnus-virt-summary-read-group #[(group message-ids &optional no-article) "\n\" @ A Ġ Ao\n\")\"J\"DLK ̎M#*" [mapcar gnus-virt-canonicalize-message-id message-ids rest nil delq intern-soft group gnus-newsrc-hashtb intern gnus-select-newsgroup old ((byte-code " M" [gnus-select-newsgroup old] 2)) #[(group show-all) " \n\"" [gnus-virt-select-newsgroup group message-ids] 3] gnus-summary-read-group no-article] 5 "\ Start reading news in a \"virtual\" newsgroup of the given message-ids. The message ids may be actual message-id strings, or conses of the form (\"newsgroup-name\" . \"article-number\"). If NO-ARTICLE is non-nil, no article is selected initially."]) (fset 'gnus-virt-read-merged-groups #[(virtual-name newsgroup-names &optional all no-article) "\n! @  \n\"JAA!  \" * AZ #*" [nil reverse newsgroup-names rest articles group gnus-uncompress-sequence intern-soft all gnus-active-hashtb gnus-unread-hashtb numbers mapcar #[(x) " B" [group x] 2] gnus-virt-summary-read-group virtual-name no-article] 5 "\ Read news in the given newsgroup as if they were one group. VIRTUAL-NAME is the name to assign to this new group; NEWSGROUP-NAMES is a list of the names of the newsgroups to combine. If argument ALL is non-nil, already read articles become readable. If optional argument NO-ARTICLE is non-nil, no article body is displayed."]) (provide 'gnus-virt)