;ELC ;;; compiled by gsstark@lola-granola.MIT.EDU on Tue Jul 23 13:33:50 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.2.37/lisp/gnus-cite.el ;;; emacs version 19.30.1. ;;; 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 "`gnus-cite.el' was compiled for Emacs 19.29 or later")) (byte-code "!!!\"" [require gnus gnus-msg gnus-ems autoload gnus-article-add-button "gnus-vis"] 3) #@31 Format of cited text buttons. (defvar gnus-cited-text-button-line-format "%(%{[...]%}%)\n" (#$ . 625)) #@61 The number of lines of hidden cited text to remain visible. (defvar gnus-cited-lines-visible nil (#$ . 734)) #@106 Maximum article size (in bytes) where parsing citations is allowed. Set it to nil to parse all articles. (defvar gnus-cite-parse-max-size 25000 (#$ . 850)) #@65 Regexp matching the longest possible citation prefix on a line. (defvar gnus-cite-prefix-regexp "^[]>|:}+ ]*[]>|:}+]\\(.*>\\)?\\|^.*>" (#$ . 1012)) #@48 Maximum possible length for a citation prefix. (defvar gnus-cite-max-prefix 20 (#$ . 1166)) #@117 Regexp matching normal Supercite attribution lines. The first grouping must match prefixes added by other packages. (defvar gnus-supercite-regexp (concat "^\\(" gnus-cite-prefix-regexp "\\)? *" ">>>>> +\"\\([^\"\n]+\\)\" +==") (#$ . 1265)) #@117 Regexp matching mangled Supercite attribution lines. The first regexp group should match the Supercite attribution. (defvar gnus-supercite-secondary-regexp "^.*\"\\([^\"\n]+\\)\" +==" (#$ . 1512)) #@73 Minimum number of identical prefixes before we believe it's a citation. (defvar gnus-cite-minimum-match-count 2 (#$ . 1715)) #@55 Regexp matching the beginning of an attribution line. (defvar gnus-cite-attribution-prefix "in article\\|in <" (#$ . 1846)) #@112 Regexp matching the end of an attribution line. The text matching the first grouping will be used as a button. (defvar gnus-cite-attribution-suffix "\\(wrote\\|writes\\|said\\|says\\):[ ]*$" (#$ . 1977)) (byte-code "! B! B!  B!- B!: B!G B!T\n B‡" [boundp gnus-cite-article nil current-load-list gnus-cite-prefix-alist gnus-cite-attribution-alist gnus-cite-loose-prefix-alist gnus-cite-loose-attribution-alist gnus-cited-text-button-line-format-alist ((98 beg 100) (101 end 100) (108 (- end beg) 100)) gnus-cited-text-button-line-format-spec] 2) #@526 Highlight cited text. Each citation in the article will be highlighted with a different face. The faces are taken from `gnus-cite-face-list'. Attribution lines are highlighted with the same face as the corresponding citation merged with `gnus-cite-attribution-face'. Text is considered cited if at least `gnus-cite-minimum-match-count' lines matches `gnus-cite-prefix-regexp' with the same prefix. Lines matching `gnus-cite-attribution-suffix' and perhaps `gnus-cite-attribution-prefix' are considered attribution lines. (defalias 'gnus-article-highlight-citation #[(&optional force) "=\f\"=\"q ! ʉ @A@A@AkB B F@Aww#w@A@A! \"A!`)#$###*@A@!##.\f" [gnus-cite-face-list light mapcar gnus-make-face gnus-face-light-name-list dark gnus-face-dark-name-list gnus-article-buffer gnus-cite-parse-maybe force nil gnus-cite-prefix-alist t face-alist number numbers skip prefix entry face inhibit-point-motion-hooks faces alist buffer-read-only gnus-cite-attribution-alist gnus-cite-loose-attribution-alist gnus-cite-add-face gnus-cite-find-prefix assoc goto-line re-search-forward gnus-cite-attribution-suffix 1 gnus-article-add-button gnus-cite-toggle gnus-cite-attribution-face] 11 (#$ . 2592) (list (quote force))]) #@52 Dissect the article buffer looking for cited text. (defalias 'gnus-dissect-cited-text #[nil "q \nÉ  w A @A@A@eby B BdS@UdA@IebSy B B-eb# B Bdb# B B \"A@@A@@U@A˚@ BA@A˚A@ BA@ BA@@ B \fAA@\fA@A˚9\f@A\fAA@A9\fA@@b9y9`\fAA@@U9\fAAA\fA ." [gnus-article-buffer gnus-cite-parse-maybe gnus-cite-prefix-alist nil m marks number numbers prefix alist point-marker "" search-forward "\n\n" t re-search-backward gnus-signature-separator sort #[(m1 m2) "@ @W" [m1 m2] 2] omarks 1] 7 (#$ . 4057)]) #@42 Do word wrapping in the current article. (defalias 'gnus-article-fill-cited-article #[(&optional force) "q  AC~ @@ A@@} @A!Q @A \fed\"* @@ A M @@." [gnus-article-buffer nil t gnus-dissect-cited-text adaptive-fill-mode marks inhibit-point-motion-hooks buffer-read-only "^" regexp-quote " *" fill-prefix adaptive-fill-regexp fill-region] 5 (#$ . 4743) (list t)]) #@202 Toggle hiding of all cited text except attribution lines. See the documentation for `gnus-article-highlight-citation'. If given a negative prefix, always show; if given a positive prefix, always hide. (defalias 'gnus-article-hide-citation #[(&optional arg force) " \n#\"?q D\fɉ  N@AӘNA<Y@@p@AӘpA^{@@  by` Y , , #b#)c`\f!` B$`ɓ,." [gnus-parse-format gnus-cited-text-button-line-format gnus-cited-text-button-line-format-alist t gnus-cited-text-button-line-format-spec gnus-article-check-hidden-text cite arg gnus-article-buffer nil gnus-dissect-cited-text gnus-type gnus-hidden-properties end beg props inhibit-point-motion-hooks marks buffer-read-only "" gnus-cited-lines-visible point-marker gnus-add-text-properties search-backward "\n\n" "\n" gnus-article-add-button eval gnus-article-toggle-cited-text] 7 (#$ . 5152) (byte-code " C\"" [append gnus-hidden-arg force] 3)]) #@35 Toggle hiding the text in REGION. (defalias 'gnus-article-toggle-cited-text #[(region) " @ AS\f@\fA@$ł @ A\f#)" [nil buffer-read-only text-property-any region gnus-hidden-properties remove-text-properties gnus-add-text-properties] 5 (#$ . 6203)]) #@431 Toggle hiding of cited text that has an attribution line. If given a negative prefix, always show; if given a positive prefix, always hide. This will do nothing unless at least `gnus-cite-hide-percentage' percent and at least `gnus-cite-hide-absolute' lines of the body is cited text with attributions. When called interactively, these two variables are ignored. See also the documentation for `gnus-article-highlight-citation'. (defalias 'gnus-article-hide-citation-maybe #[(&optional arg force) "\n\"? q !eb#`\n\f db#`\"\fZ @A\"AG\\ AB s _\f_V V\n@A\"A\fA\fw\f@ \fA\f ! \n`y`D#." [gnus-article-check-hidden-text cite arg gnus-article-buffer gnus-cite-parse-maybe force search-forward "\n\n" nil t gnus-cite-attribution-alist 0 total hiden inhibit-point-motion-hooks buffer-read-only atts start re-search-backward gnus-signature-separator count-lines assoc gnus-cite-prefix-alist 100 gnus-cite-hide-percentage gnus-cite-hide-absolute goto-line gnus-add-text-properties 1 gnus-type gnus-hidden-properties] 7 (#$ . 6468) (byte-code " C\"" [append gnus-hidden-arg force] 3)]) #@39 Hide cited text in non-root articles. (defalias 'gnus-article-hide-citation-in-followups #[nil "q A q\n!)? *" [gnus-article-buffer gnus-article-current article gnus-summary-buffer gnus-article-displayed-root-p gnus-article-hide-citation] 2 (#$ . 7676) nil]) (defalias 'gnus-cite-parse-maybe #[(&optional force) " ?,?  V?, @ AB " [gnus-cite-article gnus-article-current nil gnus-cite-prefix-alist gnus-cite-attribution-alist gnus-cite-loose-prefix-alist gnus-cite-loose-attribution-alist force gnus-cite-parse-max-size buffer-size gnus-cite-parse] 2]) (defalias 'gnus-cite-parse #[nil "eb#dbe`\"TÊdb#`)‰ \n \f `W`\ny`  \nb!lѕgѕT l\nT  `\\V|`\\  S#ו \n {G$ \"\f\f\fABD B \nb| bT< \"  8 @\f@\fA A GW \fB\fB 4@AA\"*.\n\"\"eb##d#ה ו e \"$$!y&!wєѕ{' b(y`)## #?e`T\"*$*=* b$*'F+B+.J#####\"\f   @\f A \fAGW\f\"\f\"\"\"*#‰#" [search-forward "\n\n" nil t count-lines re-search-backward gnus-signature-separator prefix numbers end begin start entry alist max case-fold-search line 1 looking-at gnus-supercite-regexp gnus-cite-max-prefix re-search-forward gnus-cite-prefix-regexp 0 gnus-set-text-properties assoc sort #[(a b) "@G @GV" [a b] 2] gnus-cite-minimum-match-count gnus-cite-prefix-alist current loop gnus-set-difference append gnus-cite-loose-prefix-alist gnus-cite-attribution-suffix wrote gnus-cite-find-prefix gnus-supercite-secondary-regexp tag gnus-cite-attribution-prefix -1 in gnus-cite-loose-attribution-alist gnus-cite-match-attributions small #[(prefix tag) " !!Ű" [tag "\\`" regexp-quote prefix "[ ]*" ">"] 5] #[(prefix tag) "\n!Q" [tag "\\<" regexp-quote "\\>"] 3] #[(prefix tag) "\n!Q" [tag "\\<" regexp-quote "\\>"] 3] small-if-unique #[(prefix tag) "\n!Q" ["\\`" regexp-quote prefix ".+"] 3] #[(prefix tag) "\n!Q" ["\\`" regexp-quote prefix ".+"] 3] delq first] 11]) (defalias 'gnus-cite-match-attributions #[(sort after fun) "‰ \n \f k@\fA\f@ \fA@\n\f8 \f8V \"W=dv=o‚v !GW ‰@A@A\" GV\" W.\f!\f\" \f@B$B$\n\n\f@B$B$\f>!%\fA&'\f\"'g'@&'A'&\f=-&&A\"&A-&\"&\"-+!.\f" [gnus-cite-loose-attribution-alist t nil size best smallest limit regexp tag prefix in wrote att case-fold-search atts 2 3 fun "" sort small first gnus-cite-find-loose after -1 1000000 gnus-cite-loose-prefix-alist compare numbers candidate cite cites apply min string-match delq gnus-cite-attribution-alist gnus-cite-prefix-alist current loop gnus-set-difference] 12]) (defalias 'gnus-cite-find-loose #[(prefix) " % @@ A\f!\f B ," [gnus-cite-loose-attribution-alist atts nil att line lines gnus-cite-find-prefix prefix] 3]) (defalias 'gnus-cite-add-face #[(number prefix face) "7‰!m?6Guw`x`\f W6\f \"#+" [face t nil to from inhibit-point-motion-hooks goto-line number prefix " " 1 gnus-overlay-put gnus-make-overlay] 4]) (defalias 'gnus-cite-toggle #[(prefix) "q \f\"A U@A!`\"<`y`#`y`D#-" [gnus-article-buffer nil assoc prefix gnus-cite-prefix-alist t number inhibit-point-motion-hooks numbers buffer-read-only goto-line get-text-property invisible remove-text-properties 1 gnus-hidden-properties gnus-cite-attribution-alist gnus-add-text-properties gnus-type cite] 5]) (defalias 'gnus-cite-find-prefix #[(line) "  @ A A> @\f+" [gnus-cite-prefix-alist "" nil entry prefix alist line] 3]) (gnus-add-shutdown (quote gnus-cache-close) (quote gnus)) (defalias 'gnus-cache-close #[nil "" [nil gnus-cite-prefix-alist] 2]) (byte-code " !" [gnus-ems-redefine provide gnus-cite] 2)