;ELC ;;; compiled by jwz@thalidomide on Thu Feb 3 20:06:03 1994 ;;; from file /th/jwz/emacs19/lisp/gnus/gnus-lucid.el ;;; emacs version 19.10 Lucid (beta1). ;;; 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 "ÀÁ!¬‚ÂÀÃ!¬‚ÄÀÅ!¬‚ÆÁÇMˆÃÈMˆÅÉMˆÊËMˆÌÍMˆÎÐÌ#ˆÎÐÊ#ˆÎÒÁ#ˆÎÒÃ#ˆÎÒÅ#ˆÔÕ!ˆÖ×MˆØÙ!ˆÚÙ!¬…ÛÙÜ\"ˆÀ‡" [boundp gnus-summary-menu ("GNUS Summary Commands" ["Select Article / Next Page" gnus-summary-next-page t] ["Prev Page" gnus-summary-prev-page t] ["Select Parent Article" gnus-summary-refer-parent-article t] "----" ["Beginning of Article" gnus-summary-beginning-of-article t] ["End of Article" gnus-summary-end-of-article t] ["Show All Headers" gnus-summary-show-all-headers t] ["ROT13 Article" gnus-summary-caesar-message t] ["Save Article to Mail File" gnus-summary-save-in-mail t] ("Sort Articles" ["Sort By Author" gnus-summary-sort-by-author t] ["Sort By Date" gnus-summary-sort-by-date t] ["Sort By Number" gnus-summary-sort-by-number t] ["Sort By Subject" gnus-summary-sort-by-subject t]) "----" ["Mail Reply" gnus-summary-reply t] ["Mail Reply (Citing Original)" gnus-summary-reply-with-original t] ["Post Reply" gnus-summary-followup t] ["Post Reply (Citing Original)" gnus-summary-followup-with-original t] ["Post New Article" gnus-summary-post-news t] ["Forward Article" gnus-summary-mail-forward t] "----" ["Mark Article as Read" gnus-summary-mark-as-read-forward t] ["Mark Article as Unread" gnus-summary-mark-as-unread-backward t] ["Mark Similar Subjects as Read" gnus-summary-kill-same-subject t] ["Quit this Newsgroup" gnus-summary-exit t] ["Quit this Newsgroup (mark everything as read)" gnus-summary-catchup-and-exit t]) gnus-group-menu ("GNUS Group Commands" ["Select Newsgroup" gnus-group-read-group t] ["Unsubscribe Newsgroup" gnus-group-unsubscribe-current-group t] ["Get New News" gnus-group-get-new-news t] "----" ["Mark Newsgroup as Read" gnus-group-catchup t] ["Mark All Newsgroups as Read" gnus-group-catchup-all t] ["Show All Newsgroups" gnus-group-list-all-groups t] ["Show Subscribed Nonempty Newsgroups" gnus-group-list-groups t] ["Check Bogosity" gnus-group-check-bogus-groups t] "----" ["Post New Article" gnus-group-post-news t] "----" ["Save .newsrc" gnus-group-force-update t] ["GNUS Manual" gnus-info-find-node t] ["Suspend GNUS" gnus-group-suspend t] ["Quit GNUS" gnus-group-exit t]) gnus-article-menu ("GNUS Article Commands" ["Next Page" gnus-article-next-page t] ["Previous Page" gnus-article-prev-page t] ["Pop Article History" gnus-article-pop-article t] ["Show Referenced Article" gnus-article-refer-article t] ["Show Summary" gnus-article-show-summary t] "----" ["Mail Reply" gnus-summary-reply t] ["Mail Reply (Citing Original)" gnus-summary-reply-with-original t] ["Post Reply" gnus-summary-followup t] ["Post Reply (Citing Original)" gnus-summary-followup-with-original t] ["Forward Article" gnus-summary-mail-forward t]) #[(e) "À !ˆÂyˆÃÄÅÆ#ˆÇ!‡" [mouse-set-point e 0 search-forward ":" nil t popup-menu gnus-summary-menu] 4 nil "e"] #[(e) "À !ˆÂyˆÃÄÅÆ#ˆÇ!‡" [mouse-set-point e 0 search-forward ":" nil t popup-menu gnus-group-menu] 4 nil "e"] #[(e) "À !‡" [popup-menu gnus-article-menu] 2 nil "@e"] gnus-group-mouse-read-group #[(e) "À !ˆÂyˆÃÄÅÆ#ˆÇÅ!‡" [mouse-set-point e 0 search-forward ":" nil t gnus-group-read-group] 4 nil "e"] gnus-summary-mouse-next-page #[(e) "À !ˆÂyˆÃÄÅÆ#ˆÇÅ!‡" [mouse-set-point e 0 search-forward ":" nil t gnus-summary-next-page] 4 nil "e"] define-key gnus-summary-mode-map button2 gnus-group-mode-map button3 gnus-article-mode-map require highlight-headers gnus-fontify-headers #[nil "ŠqˆŠŒ~ˆÁedÂ#+‡" [gnus-article-buffer highlight-headers t] 4] make-face gnus-underline face-differs-from-default-p set-face-underline-p t] 4) (fset 'gnus-hack-underlining #[nil "ŠqˆebˆÁÂÃÄ#«ŒÅÆǔǕ\"È\"ˆªmebˆÁÉÃÄ#­†ÊË!ˆªs)‡" [gnus-article-buffer re-search-forward "\\(\\(_.\\) ?\\)+" nil t set-extent-face make-extent 0 gnus-underline "_" replace-match ""] 4 "\ replaces underscore-backspace with an extent. Also removes the extra blank lines from the article."]) (byte-code "ÀÁMˆÂÃÄ\"ˆÂÅÀ\"ˆÆÈ ÊËMˆÂÌÊ\"ˆÂÍÊ\"ˆÎÏMˆÂÌÎ\"ˆÂÍÎ\"ˆÐÑ!‡" [gnus-hack-clarinews #[nil "ÀÁ\n\"­˜ŠÃ ˆ qˆebˆÅÆÇÈ#­†ÉÊ!ˆªs)‡" [string-match "^clari\\.*\\|^biz\\.clarinet" gnus-newsgroup-name gnus-hack-underlining gnus-article-buffer re-search-forward "\n\n\n\n*" nil t replace-match "\n\n"] 4] add-hook gnus-select-article-hook gnus-fontify-headers gnus-article-prepare-hook (("^[^[]+\\[\\([^A-Za-z\n]*[0-9]+:\\)?\\([^[\n]*\\)\\]" 2 message-headers) ("^[^]\n]+\\]\\(.*\\)" 1 message-header-contents)) gnus-summary-font-lock-keywords ((": \\(.*\\)" 1 message-header-contents)) gnus-group-font-lock-keywords gnus-install-mouse-tracker #[nil "ÀÁ!ˆÂ‰‡" [require mode-motion mode-motion-highlight-line mode-motion-hook] 2] gnus-summary-mode-hook gnus-group-mode-hook gnus-install-menubar #[nil "­«ÁÂ\"?­¤ Ä=«ƒ ªŒ Æ=«„ªƒÈÉ!\nËÌ!!ˆÍÎÂ\nA#)‡" [current-menubar assoc "GNUS" major-mode gnus-group-mode gnus-group-menu gnus-summary-mode gnus-summary-menu error "not GNUS Group or Summary mode" menu set-buffer-menubar copy-sequence add-menu nil] 4] provide gnus-lucid] 3)