;ELC   
;;; Compiled
;;; in Emacs version 29.4
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314\315\316&	\210\317\320\321\322\323DD\324\325\326%\210\317\327\321\322\330DD\331\325\326%\210\317\332\321\322\333DD\334\325\335%\210\317\336\321\322\337DD\340\325\341%\210\317\342\321\322\343DD\344\325\345%\210\317\346\321\322\347DD\350\325\351%\210\317\352\321\322\353DD\354\325\351%\210\317\355\321\322\356DD\357\325\345%\210\317\360\321\322\361DD\362\325\351%\210\317\363\321\322\364DD\365\325\351%\210\317\366\321\322\367DD\370\371\372\325\351&\210\317\373\321\322\374DD\375\371\372\325\376&\207" [require gnus gnus-range gnus-art message custom-declare-group gnus-cite nil "Citation." :prefix "gnus-cite-" :link (custom-manual "(gnus)Article Highlighting") :group gnus-article custom-declare-variable gnus-cited-opened-text-button-line-format funcall function #[0 "\300\207" ["%(%{[-]%}%)\n"] 1 #1=""] "Format of opened cited text buttons." :type string gnus-cited-closed-text-button-line-format #[0 "\300\207" ["%(%{[+]%}%)\n"] 1 #1#] "Format of closed cited text buttons." gnus-cited-lines-visible #[0 "\300\207" [nil] 1 #1#] "The number of lines of hidden cited text to remain visible.\nOr a pair (cons) of numbers which are the number of lines at the top\nand bottom of the text, respectively, to remain visible." (choice (const :tag "none" nil) integer (cons :tag "Top and Bottom" integer integer)) gnus-cite-parse-max-size #[0 "\300\207" [25000] 1 #1#] "Maximum article size (in bytes) where parsing citations is allowed.\nSet it to nil to parse all articles." (choice (const :tag "all" nil) integer) gnus-cite-max-prefix #[0 "\300\207" [20] 1 #1#] "Maximum possible length for a citation prefix." integer gnus-supercite-regexp #[0 "\301\302Q\207" [message-cite-prefix-regexp "^\\(" "\\)? *>>>>> +\"\\([^\"\n]+\\)\" +=="] 3 #1#] "Regexp matching normal Supercite attribution lines.\nThe first grouping must match prefixes added by other packages." regexp gnus-supercite-secondary-regexp #[0 "\300\207" ["^.*\"\\([^\"\n]+\\)\" +=="] 1 #1#] "Regexp matching mangled Supercite attribution lines.\nThe first regexp group should match the Supercite attribution." gnus-cite-minimum-match-count #[0 "\300\207" [2] 1 #1#] "Minimum number of identical prefixes before we believe it's a citation." gnus-cite-attribution-prefix #[0 "\300\207" ["In article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),\\|----- ?Original Message ?-----"] 1 #1#] "Regexp matching the beginning of an attribution line." gnus-cite-attribution-suffix #[0 "\300\207" ["\\(\\(wrote\\|writes\\|said\\|says\\|>\\)\\(:\\|\\.\\.\\.\\)\\|----- ?Original Message ?-----\\)[ 	]*$"] 1 #1#] "Regexp matching the end of an attribution line.\nThe text matching the first grouping will be used as a button." gnus-cite-unsightly-citation-regexp #[0 "\300\207" ["^-----Original Message-----\nFrom: \\(.+\n\\)+\n"] 1 #1#] "Regexp matching Microsoft-type rest-of-message citations." :version "22.1" gnus-cite-ignore-quoted-from #[0 "\300\207" [t] 1 #1#] "Non-nil means don't regard lines beginning with \">From \" as cited text.\nThose lines may have been quoted by MTAs in order not to mix up with\nthe envelope From line." boolean] 10)
(custom-declare-face 'gnus-cite-attribution '((t (:italic t))) "Face used for attribution lines.")
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable gnus-cite-attribution-face funcall function #[0 "\300\207" [gnus-cite-attribution] 1 ""] "Face used for attribution lines.\nIt is merged with the face for the cited text belonging to the attribution." :version "22.1" :type face] 8)
(custom-declare-face 'gnus-cite-1 '((((class color) (background dark)) (:foreground "light blue")) (((class color) (background light)) (:foreground "MidnightBlue")) (t (:italic t))) "Citation face.")
(custom-declare-face 'gnus-cite-2 '((((class color) (background dark)) (:foreground "light cyan")) (((class color) (background light)) (:foreground "firebrick")) (t (:italic t))) "Citation face.")
(custom-declare-face 'gnus-cite-3 '((((class color) (background dark)) (:foreground "light yellow")) (((class color) (background light)) (:foreground "dark green")) (t (:italic t))) "Citation face.")
(custom-declare-face 'gnus-cite-4 '((((class color) (background dark)) (:foreground "light pink")) (((class color) (background light)) (:foreground "OrangeRed")) (t (:italic t))) "Citation face.")
(custom-declare-face 'gnus-cite-5 '((((class color) (background dark)) (:foreground "pale green")) (((class color) (background light)) (:foreground "dark khaki")) (t (:italic t))) "Citation face.")
(custom-declare-face 'gnus-cite-6 '((((class color) (background dark)) (:foreground "beige")) (((class color) (background light)) (:foreground "dark violet")) (t (:italic t))) "Citation face.")
(custom-declare-face 'gnus-cite-7 '((((class color) (background dark)) (:foreground "orange")) (((class color) (background light)) (:foreground "SteelBlue4")) (t (:italic t))) "Citation face.")
(custom-declare-face 'gnus-cite-8 '((((class color) (background dark)) (:foreground "magenta")) (((class color) (background light)) (:foreground "magenta")) (t (:italic t))) "Citation face.")
(custom-declare-face 'gnus-cite-9 '((((class color) (background dark)) (:foreground "violet")) (((class color) (background light)) (:foreground "violet")) (t (:italic t))) "Citation face.")
(custom-declare-face 'gnus-cite-10 '((((class color) (background dark)) (:foreground "plum1")) (((class color) (background light)) (:foreground "medium purple")) (t (:italic t))) "Citation face.")
(custom-declare-face 'gnus-cite-11 '((((class color) (background dark)) (:foreground "turquoise")) (((class color) (background light)) (:foreground "turquoise")) (t (:italic t))) "Citation face.")
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315%\210\300\316\302\303\317DD\320\306\321%\210\300\322\302\303\323DD\324\306\325%\210\300\326\302\303\327DD\330\306\331\332\333&\207" [custom-declare-variable gnus-cite-face-list funcall function #[0 "\300\207" [(gnus-cite-1 gnus-cite-2 gnus-cite-3 gnus-cite-4 gnus-cite-5 gnus-cite-6 gnus-cite-7 gnus-cite-8 gnus-cite-9 gnus-cite-10 gnus-cite-11)] 1 #1=""] "List of faces used for highlighting citations.\n\nWhen there are citations from multiple articles in the same message,\nGnus will try to give each citation from each article its own face.\nThis should make it easier to see who wrote what." :type (repeat face) :set #[514 "\302\"\303\300!\203 G\303\301!\203< \304\305\306\211\2033 \211@\307D\310\311FB\262T\262A\266\202\202 \237\262\266\202BC\207" [gnus-message-max-citation-depth gnus-message-citation-keywords custom-set-default boundp gnus-message-search-citation-line nil 1 quote prepend t] 12 "\n\n(fn SYMBOL VALUE)"] gnus-cite-hide-percentage #[0 "\300\207" [50] 1 #1#] "Only hide excess citation if above this percentage of the body." number gnus-cite-hide-absolute #[0 "\300\207" [10] 1 #1#] "Only hide excess citation if above this number of lines in the body." integer gnus-cite-blank-line-after-header #[0 "\300\207" [t] 1 #1#] "If non-nil, put a blank line between the citation header and the button." boolean gnus-article-boring-faces #[0 "\301B\207" [gnus-cite-face-list gnus-signature] 2 #1#] "List of faces that are not worth reading.\nIf an article has more pages below the one you are looking at, but\nnothing on those pages is a word of at least three letters that is not\nin a boring face, then the pages will be skipped." (repeat face) :group gnus-article-hiding] 8)
(defvar gnus-cite-article nil)
(defvar gnus-cite-overlay-list nil)
(defvar gnus-cite-prefix-alist nil)
(defvar gnus-cite-attribution-alist nil)
(defvar gnus-cite-loose-prefix-alist nil)
(defvar gnus-cite-loose-attribution-alist nil)
(defvar gnus-cited-opened-text-button-line-format-alist '((98 (marker-position beg) 100) (101 (marker-position end) 100) (110 (count-lines beg end) 100) (108 (- end beg) 100)))
(defvar gnus-cited-opened-text-button-line-format-spec nil)
(defvar gnus-cited-closed-text-button-line-format-alist gnus-cited-opened-text-button-line-format-alist)
(defvar gnus-cited-closed-text-button-line-format-spec nil)#@565 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 the face `gnus-cite-attribution'.

Text is considered cited if at least `gnus-cite-minimum-match-count'
lines matches `message-cite-prefix-regexp' with the same prefix.

Lines matching `gnus-cite-attribution-suffix' and perhaps
`gnus-cite-attribution-prefix' are considered attribution lines.

(fn &optional FORCE SAME-BUFFER)
(defalias 'gnus-article-highlight-citation #[512 "r\211\203	 p\202\n q\210\306!\210\307	\n\307\211\211\211\211\211\211	\203m @\262A\262	@\262A\262@\262A\206@ \n\262BB\262\203 @\262A\262\f\236\204J \236\204J \310	#\210\202J \f\262	\203\277 @\262A\262	@\262A\262\311!\262\312\"A\262eb\210Sy\210\313\314 \315#\203\256 \316\317\224\317\225\320$\210\310	#\210\310#\210\202p \262	\205\344 @\262A\262	@\262\311!\262\310#\210\202\302 )\266\212)\207" [gnus-article-buffer gnus-cite-prefix-alist gnus-cite-face-list buffer-read-only gnus-cite-attribution-alist gnus-cite-loose-attribution-alist gnus-cite-parse-maybe nil gnus-cite-add-face gnus-cite-find-prefix assoc re-search-forward line-end-position t gnus-article-add-button 1 gnus-cite-toggle gnus-cite-attribution-suffix gnus-cite-attribution-face] 17 (#$ . 8309) [(byte-code "\300C\207" [force] 1) (gnus-article-mode gnus-summary-mode)]])#@52 Dissect the article buffer looking for cited text.
(defalias 'gnus-dissect-cited-text #[0 "rq\210\302\303\304\"\210	\303\211\211\211\211\203f \211A\262\242\262\211A\262\242\262\203 \211A\262\242\262eb\210y\210\305 \306BB\262\203T S@U\203T \211A\262\242\262\202= eb\210Sy\210\305 BB\262\202# \307 \210\305 \306BB\262db\210\310 \210\305 \306BB\262\311\312\"\262\303\262\211A\203\342 \211@@A@@U\203\325 \211@A\306\232\204\247 \211@B\262\211A@A\306\232\204\267 \211A@B\262\211@A\306\232\203\316 \211A@A\306\232\203\316 \211AA\203\333 \211A\262\202\333 \211@B\262\211A\262\202\211 \211@\203\355 \211@B\262\237\211\262\262AA\203=A@A\306\232\2036@AAA@A\232\2036A@@b\2036\313\314!\2036\315y\2036`AA@@U\2036\211AAA\241\210\202\364 A\262\202\364 \262\266\206)\207" [gnus-article-buffer gnus-cite-prefix-alist gnus-cite-parse-maybe nil t point-marker "" article-goto-body gnus-article-search-signature sort car-less-than-car looking-at "[ 	]*$" 1] 9 (#$ . 9848)])
(defalias 'gnus-article-fill-cited-long-lines #[0 "\300\301\302\"\207" [gnus-article-fill-cited-article nil t] 3])#@340 Do word wrapping in the current article.
If WIDTH (the numerical prefix), use that text width when
filling.

If LONG-LINES, only fill sections that have lines longer than the
frame width.

Sections that are heuristically interpreted as not being
text (i.e., computer code and the like) will not be folded.

(fn &optional WIDTH LONG-LINES)
(defalias 'gnus-article-fill-cited-article #[512 "rq\210\306\307 \306\203 \310!\202 	\214\211A\203\230 \211@@A@@}\210\311\312@A!\313Q@A\314\230\203: \314\202? @A\315P?\306\211\204S \316@A!\262\211\203\207 \204c \317ed\"\210\202\207 eb\210m\204\207 \306\210i\320 V\321y\210\203f \214\322\323!`}\210\317ed\")\210\202f +\266\211@@\306\211\223\210\211A\262\202 \211\203\243 \211@@\306\211\223\210\306\211\306\211\306\211,\266\202)\207" [gnus-article-buffer fill-column adaptive-fill-mode buffer-read-only use-hard-newlines fill-prefix nil gnus-dissect-cited-text prefix-numeric-value "^" regexp-quote " *" "" " " gnus-article-foldable-buffer fill-region window-width 1 line-beginning-position 0 adaptive-fill-regexp gnus-cite-prefix-alist gnus-cite-attribution-alist gnus-cite-loose-prefix-alist gnus-cite-loose-attribution-alist gnus-cite-article] 11 (#$ . 10988) ["P" (gnus-article-mode gnus-summary-mode)]])#@15 

(fn PREFIX)
(defalias 'gnus-article-foldable-buffer #[257 "\300\211eb\210m\204I Gd`ZV\204 Gu\210\301\300w\210l\2046 i\236\211\204/ i\302B\262\211B\262\211AT\241\266\300\210i\303 V\203C \304\262\305y\210\202 \205Q \211G\306W\207" [nil " 	" 0 window-width t 1 3] 6 (#$ . 12276)])#@228 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.

(fn &optional ARG FORCE)
(defalias 'gnus-article-hide-citation #[512 "\306\307\310\"\210\306\311\310\"\210rq\210\312\211\313\314D	\244e\312\211\211\211\315d\316\317$\211\262\203B \310\262b\210\317\320\321\"\"\210\322y\210`\262\202 ?\205>\323 \262\205>\312\262\312\262\203l @A\324\230\203l A\262\202V \203w @@\262\203\215 @A\324\230\204\215 A\262\202w \203\230 @@\262\203\341 \203\341 \203\341 b\210:\203\261 @\202\262 y\210`Y\203\300 \312\262\202\341 \325 \262:\203\341 b\210A[y\210`X\203\335 \312\262\202\341 \325 \262\203K \203K \326\314!\210\327 \312\223\262\327 \312\223\262\330\313\312\n%\210b\210\f\203\212\331\332\312\310#)\204\333c\210\334\325 \211\262\335`\336\310\"\210`\317BD$\210`\313\337$\210`\312\223\210\202K )\266\210)\207" [gnus-article-buffer gnus-hidden-properties buffer-read-only gnus-cited-lines-visible gnus-cite-blank-line-after-header gnus-cited-closed-text-button-line-format-spec gnus-set-format cited-opened-text-button t cited-closed-text-button nil article-type cite text-property-any gnus-callback gnus-article-toggle-cited-text get-text-property gnus-data 1 gnus-dissect-cited-text "" point-marker gnus-add-wash-type make-marker gnus-add-text-properties-when search-backward "\n\n" "\n" put-text-property gnus-article-add-button eval annotation] 18 (#$ . 12575) [(byte-code "\300\301 \302C\"\207" [append gnus-article-hidden-arg force] 3) (gnus-article-mode gnus-summary-mode)]])#@149 Toggle hiding the text in REGION.
ARG can be nil or a number.  Positive means hide, negative
means show, nil means toggle.

(fn ARGS &optional ARG)
(defalias 'gnus-article-toggle-cited-text #[513 "@\211@AA@\306S\307\310$\311\2030 \312U\2040 \312V\203& \211\2030 \312W\205\206 \211\205\206 \211\203E \313\307\310\307\310	BB%\210\202W \314\310!\210\315\307\311\307\310	BB%\210\n\316\317!)\210\212b\210\320 \321y\210`|\210\322`\323`\324\203w \f\202x \325\"\210`\326\f$\210`\307\327$))\207" [buffer-read-only gnus-hidden-properties gnus-article-mime-handle-alist gnus-article-mime-handle-alist-1 gnus-cited-opened-text-button-line-format-spec gnus-cited-closed-text-button-line-format-spec text-property-any article-type cite nil 0 gnus-remove-text-properties-when gnus-add-wash-type gnus-add-text-properties-when gnus-set-mode-line article line-beginning-position 1 put-text-property gnus-article-add-button eval t gnus-article-toggle-cited-text annotation] 15 (#$ . 14280)])#@457 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'.

(fn &optional ARG FORCE)
(defalias 'gnus-article-hide-citation-maybe #[512 "rq\210\306\307!\210\310\307\"?\205\\ \212\311!\210\312 \210`	\313\314\313db\210\315 \210\316`\"\262\203B \317@A\"AG\\\262A\262\202+ \204V \320_\f_V\205X V\205X \321 )\266\205))\207" [gnus-article-buffer gnus-cite-attribution-alist buffer-read-only gnus-cite-prefix-alist gnus-cite-hide-percentage gnus-cite-hide-absolute gnus-delete-wash-type cite gnus-article-check-hidden-text gnus-cite-parse-maybe article-goto-body nil 0 gnus-article-search-signature count-lines assoc 100 gnus-article-hide-citation] 11 (#$ . 15282) [(byte-code "\300\301 \302\"\207" [append gnus-article-hidden-arg (force)] 3) (gnus-article-mode gnus-summary-mode)]])#@39 Hide cited text in non-root articles.
(defalias 'gnus-article-hide-citation-in-followups #[0 "rq\210	Ar\nq\210\303!)?\205 \304 )\207" [gnus-article-buffer gnus-article-current gnus-summary-buffer gnus-article-displayed-root-p gnus-article-hide-citation] 3 (#$ . 16453) [nil (gnus-article-mode gnus-summary-mode)]])#@59 Always parse the buffer.

(fn &optional FORCE NO-OVERLAY)
(defalias 'gnus-cite-parse-maybe #[512 "\306 \210\307\211\307\211\211\204 \310 \210\f\205 \311 \fV?\205' @AB\312 \207" [gnus-cite-prefix-alist gnus-cite-attribution-alist gnus-cite-loose-prefix-alist gnus-cite-loose-attribution-alist gnus-cite-parse-max-size gnus-article-current gnus-cite-localize nil gnus-cite-delete-overlays buffer-size gnus-cite-parse-wrapper gnus-cite-article] 5 (#$ . 16776)])
(defalias 'gnus-cite-delete-overlays #[0 "\211\205@ \211@\30118 \302!\203! \302!eY\2053 \302!dX\2053 \303\"\30411 \305!0\2023 \210\3060\210\2029 \210A\266\202\202 \207" [gnus-cite-overlay-list (error) overlay-end delete (error) delete-overlay nil] 5])
(defalias 'gnus-cite-parse-wrapper #[0 "\300 \210\212\301 )\210\212\302 )\210\212\303 )\207" [article-goto-body gnus-cite-parse-attributions gnus-cite-parse gnus-cite-connect-attributions] 1])
(defalias 'gnus-cite-parse #[0 "\306e`\"T\307\212db\210\310 \210`)\311\312Q\313\211\211\211\211\211\211\211\n`\nW\203\306 `\262\314\313w\210`\262\315\316!\262\262b\210\211\n\\W\203Y \317!\203Y \320\225\203U \320\225T\262\202Y T\262\n\\V\203f \n\\\262\f\203x \313\317\321!\307\203x T\262\322	S\307#\203\273 \323\225\262{\262\324\323G\313$\210\325	\"\262\203\254 \fAB\241\210\202\265 \fDB\262b\210\202x b\210T\262\f\202 eb\210\307\262\313\262\313\262\203*\322\307#\203\373 \326!\203\364 \306e\"\262\306e\323\224\"\262\323\225\262\202\326!\203\306e\"\262\306e\"\262\313\262\203\322 W\203\322 T\211\262B\262\202\2038\327BB\262\330\331\"\262\205\225@\262@\262A\262A\262\203?GW\203nB\202?B\313\203\220@\262A\262\211\332A\"\241\210\202x\266\202?)\207" [message-cite-prefix-regexp case-fold-search gnus-cite-max-prefix gnus-supercite-regexp gnus-cite-ignore-quoted-from gnus-cite-unsightly-citation-regexp count-lines t gnus-article-search-signature "^\\(" "\\)" nil "^> 	\n" line-beginning-position 2 looking-at 1 ">From " re-search-forward 0 set-text-properties assoc number-or-marker-p "" sort #[514 "@G@GV\207" [] 4 "\n\n(fn A B)"] gnus-set-difference gnus-cite-minimum-match-count gnus-cite-prefix-alist] 18])
(defalias 'gnus-cite-parse-attributions #[0 "\304\305d\306#\205v \307\224\307\225\310e\"\311!\312\313!\210\314	!\205# \313\224\313\225{b\210\315\n\212\312\307!\210`)\306#\205C \305\306#?\205C \310e`T\"=\203L \304\262b\210\212\312\307!\210`T){\316	\"\204q FB\211\306BB\262\266\202 \207" [gnus-cite-attribution-suffix gnus-supercite-secondary-regexp gnus-cite-attribution-prefix gnus-cite-loose-attribution-alist nil re-search-forward t 0 count-lines gnus-cite-find-prefix beginning-of-line 1 looking-at re-search-backward assoc] 12])
(defalias 'gnus-cite-connect-attributions #[0 "\303\304\"\305\306\304\307#\210\305\306\310\311#\210\305\306\304\312#\210\305\313\310\314#\210\305\306\304\315#\210	\304\203F @\262A\262\211AG\nW\203% \316\"\316	\"\202% \266\305\317\310\304#\210\305\317\304\211#\207" [gnus-cite-prefix-alist gnus-cite-loose-prefix-alist gnus-cite-minimum-match-count append nil gnus-cite-match-attributions small #[514 "\211\205 \300\301!\302\301!\303\260\207" ["\\`" regexp-quote "[ 	]*" ">"] 7 "\n\n(fn PREFIX TAG)"] t #[514 "\211\205\n \300\301!\302Q\207" ["\\<" regexp-quote "\\>"] 5 "\n\n(fn PREFIX TAG)"] #[514 "\211\205\n \300\301!\302Q\207" ["\\<" regexp-quote "\\>"] 5 "\n\n(fn PREFIX TAG)"] small-if-unique #[514 "\300\301!\302Q\207" ["\\`" regexp-quote ".+"] 5 "\n\n(fn PREFIX TAG)"] #[514 "\300\301!\302Q\207" ["\\`" regexp-quote ".+"] 5 "\n\n(fn PREFIX TAG)"] delq first] 5])#@23 

(fn SORT AFTER FUN)
(defalias 'gnus-cite-match-attributions #[771 "\305\306\211\211\211\211\211\211\211\211\211\n\205&@\262\nA\262\f	@\262		A@\262\307\n8\262\310\n8\262\f\203D \f\"\202E \311\262\312\267\202V \305\202] \306\202] \313!G\307W\262\203i \202j \314\262\315\262\306\262\n\306\211\211\211\211\203\303 @\262A\262@\262A\262\316\317\"\262\203\234 G\202\235 \262\nV\203x \n\203x \320\"\203x \211	W\203x \262\211\262	\202x \266\203 \321\n\"@BB\203\344 @BB\n>\203 \fA\306\321\n\"\203!@\262A\262\211=\204\363 \211\322A\"\241\210\211A\204\363 \321\n\"\321\"\262\202\363 \266\202 )\207" [gnus-cite-loose-attribution-alist case-fold-search gnus-cite-loose-prefix-alist gnus-cite-attribution-alist gnus-cite-prefix-alist t nil 2 3 "" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (small 78 first 82)) gnus-cite-find-loose -1 1000000 apply min string-match delq gnus-set-difference] 24 (#$ . 20512)])#@15 

(fn PREFIX)
(defalias 'gnus-cite-find-loose #[257 "\301\211\211\203$ @\262@\262A\262\302!\230\203 B\262\202 \207" [gnus-cite-loose-attribution-alist nil gnus-cite-find-prefix] 7 (#$ . 21557)])#@27 

(fn NUMBER PREFIX FACE)
(defalias 'gnus-cite-add-face #[771 "\211\205G \301\211\211eb\210Sy\302U\205E Gu\210\303\301w\210`\262\304\210\303\301x\210`\262W\205E \305\301\306$\211\262B\307\310\306#\210\307\311#\266\203\207" [gnus-cite-overlay-list nil 0 " 	" 1 make-overlay t overlay-put evaporate face] 11 (#$ . 21772)])#@15 

(fn PREFIX)
(defalias 'gnus-cite-toggle #[257 "rq\210\306\307\310\"\210\307\311	\"A\307\205Z @\262A\262eb\210\211Sy\210\312`\313\"\2038 \314`\315y\210`#\210\202O \211\f\236\204O \316\317!\210\320`\315y\210`\321\317D\244#\210\322\323!)\210\202 )\266\203)\207" [gnus-article-buffer gnus-cite-prefix-alist buffer-read-only gnus-hidden-properties gnus-cite-attribution-alist gnus-article-mime-handle-alist gnus-cite-parse-maybe nil t assoc get-text-property invisible remove-text-properties 1 gnus-add-wash-type cite add-text-properties article-type gnus-set-mode-line article gnus-article-mime-handle-alist-1] 9 (#$ . 22114)])#@13 

(fn LINE)
(defalias 'gnus-cite-find-prefix #[257 "\301\302\203 @\262A\262A>\203 \211@\262\202 \207" [gnus-cite-prefix-alist "" nil] 6 (#$ . 22760)])#@58 Make the citation variables local to the article buffer.
(defalias 'gnus-cite-localize #[0 "\300\211\205 \301\211A\262\242!\210\202 \207" [(gnus-cite-article gnus-cite-overlay-list gnus-cite-prefix-alist gnus-cite-attribution-alist gnus-cite-loose-prefix-alist gnus-cite-loose-attribution-alist) make-local-variable] 4 (#$ . 22929)])#@38 Maximum supported level of citation.
(defvar gnus-message-max-citation-depth (length gnus-cite-face-list) (#$ . 23272))
(defvar gnus-message-cite-prefix-regexp (concat "^\\(?:" message-cite-prefix-regexp "\\)"))#@133 Search for a cited line and set match data accordingly.
Returns nil if there is no such line before LIMIT, t otherwise.

(fn LIMIT)
(defalias 'gnus-message-search-citation-line #[257 "\302\303#\205? \304\305\306\307\310!\311\"\"G	^\312	T\313_\314\"\315 \316 \240\210A\240\210\313_\233\240\210\313_T\233\240\210\317!\266\303\207" [gnus-message-cite-prefix-regexp gnus-message-max-citation-depth re-search-forward t apply concat split-string match-string-no-properties 0 "[	 [:alnum:]]+" make-list 2 nil line-beginning-position line-end-position set-match-data] 7 (#$ . 23490)])#@66 Keywords for highlighting different levels of message citations.
(defvar gnus-message-citation-keywords (byte-code "\301\302\303\211\203  \211@\304D\305\306FB\262T\262A\266\202\202 \237\262\266\202BC\207" [gnus-cite-face-list gnus-message-search-citation-line nil 1 quote prepend t] 9) (#$ . 24086))
(autoload 'font-lock-set-defaults "font-lock")#@121 Non-nil if Gnus-Message-Citation mode is enabled.
Use the command `gnus-message-citation-mode' to change this variable.
(defvar gnus-message-citation-mode nil (#$ . 24450))
(make-variable-buffer-local 'gnus-message-citation-mode)#@702 Minor mode providing more font-lock support for nested citations.

When enabled, it automatically turns on `font-lock-mode'.

This is a minor mode.  If called interactively, toggle the
`Gnus-Message-Citation mode' mode.  If the prefix argument is
positive, enable the mode, and if it is zero or negative, disable
the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable
the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `gnus-message-citation-mode'.

The mode's hook is called both when the mode is enabled and when
it is disabled.

(fn &optional ARG)
(defalias 'gnus-message-citation-mode #[256 "\306 \307=\203 ?\202 \247\203 \310W\203 \311\202 \312\313\301!\2031 \314\300	\"\2031 \300	B\315\316!\203\202 \n@\311\203k :\203L \211A\262\242\202P \311\262\262\203d \317!\320\321!\"L\210\202: \322!\210\202: \266\311\304 \210\203| \323 \210\202\202 \300\305\310!!\210\324\325\203\214 \326\202\215 \327\"\210\330\331!\203\260 \306 \203\241 \211\306 \232\203\260 \332\333\334\203\254 \335\202\255 \336\337$\210\210\340 \210\207" [gnus-message-citation-mode local-minor-modes font-lock-defaults gnus-message-citation-keywords font-lock-set-defaults font-lock-mode current-message toggle 1 nil t boundp delq derived-mode-p message-mode make-local-variable append default-value kill-local-variable font-lock-flush run-hooks gnus-message-citation-mode-hook gnus-message-citation-mode-on-hook gnus-message-citation-mode-off-hook called-interactively-p any message "%s %sabled%s" "Gnus-Message-Citation mode" "en" "dis" " in current buffer" force-mode-line-update] 8 (#$ . 24686) (byte-code "\203\n \301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar gnus-message-citation-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205# \310\211%\207" [gnus-message-citation-mode-map gnus-message-citation-mode-hook variable-documentation put "Hook run after entering or leaving `gnus-message-citation-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode gnus-message-citation-mode "" boundp] 6)#@39 Turn on `gnus-message-citation-mode'.
(defalias 'turn-on-gnus-message-citation-mode #[0 "\300\301!\207" [gnus-message-citation-mode 1] 2 (#$ . 27094)])#@40 Turn off `gnus-message-citation-mode'.
(defalias 'turn-off-gnus-message-citation-mode #[0 "\300\301!\207" [gnus-message-citation-mode -1] 2 (#$ . 27251)])
(provide 'gnus-cite)