|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/gnus/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:41 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-cite.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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\315\306\323\324&\210\317\325\326\327\315\306\323\324&\210\317\330\307\331\315\306\323\332&\210\317\333\334\335\315\306\323\336&\210\317\337\340\341\315\306\323\342&\210\317\343\344\345\315\306\323\346&\210\317\347\350\351\315\306\323\346&\210\317\352\353\354\315\306\323\342&\210\317\355\356\357\315\306\323\346&\210\317\360\361\362\315\306\323\346&\210\317\363\364\365\366\367\315\306\323\346& \210\317\370\371\372\366\367\315\306\323\373& \210\374\375\376\377\315\306%\210\201@ \201A \201B \375#\210\201@ \201A \201C \367#\210\317\201A \201D \201E \366\367\315\306\323\201F & \210\374\201G \201H \201I \315\306%\210\201@ \201J \201B \201G #\210\201@ \201J \201C \367#\210\374\201K \201L \201I \315\306%\210\201@ \201M \201B \201K #\210\201@ \201M \201C \367#\210\374\201N \201O \201I \315\306%\210\201@ \201P \201B \201N #\210\201@ \201P \201C \367#\210\374\201Q \201R \201I \315\306%\210\201@ \201S \201B \201Q #\210\201@ \201S \201C \367#\210\374\201T \201U \201I \315\306%\210\201@ \201V \201B \201T #\210\201@ \201V \201C \367#\210\374\201W \201X \201I \315\306%\210\201@ \201Y \201B \201W #\210\201@ \201Y \201C \367#\210\374\201Z \201[ \201I \315\306%\210\201@ \201\\ \201B \201Z #\210\201@ \201\\ \201C \367#\210\374\201] \201^ \201I \315\306%\210\201@ \201_ \201B \201] #\210\201@ \201_ \201C \367#\210\374\201` \201a \201I \315\306%\210\201@ \201b \201B \201` #\210\201@ \201b \201C \367#\210\374\201c \201d \201I \315\306%\210\201@ \201e \201B \201c #\210\201@ \201e \201C \367#\210\374\201f \201g \201I \315\306%\210\201@ \201h \201B \201f #\210\201@ \201h \201C \367#\210\317\201i \201j \201k \315\306\323\201l \201m \201n & \210\317\201o \201p \201q \315\306\323\201r &\210\317\201s \201t \201u \315\306\323\342&\210\317\201v \371\201w \315\306\323\373&\210\317\201x \201y \201z \323\201{ \315\201| &\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 "%(%{[-]%}%)\n" "Format of opened cited text buttons." :type string gnus-cited-closed-text-button-line-format "%(%{[+]%}%)\n" "Format of closed cited text buttons." gnus-cited-lines-visible "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 25000 "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 20 "Maximum possible length for a citation prefix." integer gnus-supercite-regexp (concat "^\\(" message-cite-prefix-regexp "\\)? *" ">>>>> +\"\\([^\"\n]+\\)\" +==") "*Regexp matching normal Supercite attribution lines.\nThe first grouping must match prefixes added by other packages." regexp gnus-supercite-secondary-regexp "^.*\"\\([^\"\n]+\\)\" +==" "Regexp matching mangled Supercite attribution lines.\nThe first regexp group should match the Supercite attribution." gnus-cite-minimum-match-count 2 "Minimum number of identical prefixes before we believe it's a citation." gnus-cite-attribution-prefix "In article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),\\|----- ?Original Message ?-----" "*Regexp matching the beginning of an attribution line." gnus-cite-attribution-suffix "\\(\\(wrote\\|writes\\|said\\|says\\|>\\)\\(:\\|\\.\\.\\.\\)\\|----- ?Original Message ?-----\\)[ ]*$" "*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 "^-----Original Message-----\nFrom: \\(.+\n\\)+\n" "Regexp matching Microsoft-type rest-of-message citations." :version "22.1" gnus-cite-ignore-quoted-from t "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 custom-declare-face gnus-cite-attribution ((t (:italic t))) "Face used for attribution lines." put gnus-cite-attribution-face face-alias obsolete-face 'gnus-cite-attribution "Face used for attribution lines.\nIt is merged with the face for the cited text belonging to the attribution." face gnus-cite-1 ((((class color) (background dark)) (:foreground "light blue")) (((class color) (background light)) (:foreground "MidnightBlue")) (t (:italic t))) "Citation face." gnus-cite-face-1 gnus-cite-2 ((((class color) (background dark)) (:foreground "light cyan")) (((class color) (background light)) (:foreground "firebrick")) (t (:italic t))) gnus-cite-face-2 gnus-cite-3 ((((class color) (background dark)) (:foreground "light yellow")) (((class color) (background light)) (:foreground "dark green")) (t (:italic t))) gnus-cite-face-3 gnus-cite-4 ((((class color) (background dark)) (:foreground "light pink")) (((class color) (background light)) (:foreground "OrangeRed")) (t (:italic t))) gnus-cite-face-4 gnus-cite-5 ((((class color) (background dark)) (:foreground "pale green")) (((class color) (background light)) (:foreground "dark khaki")) (t (:italic t))) gnus-cite-face-5 gnus-cite-6 ((((class color) (background dark)) (:foreground "beige")) (((class color) (background light)) (:foreground "dark violet")) (t (:italic t))) gnus-cite-face-6 gnus-cite-7 ((((class color) (background dark)) (:foreground "orange")) (((class color) (background light)) (:foreground "SteelBlue4")) (t (:italic t))) gnus-cite-face-7 gnus-cite-8 ((((class color) (background dark)) (:foreground "magenta")) (((class color) (background light)) (:foreground "magenta")) (t (:italic t))) gnus-cite-face-8 gnus-cite-9 ((((class color) (background dark)) (:foreground "violet")) (((class color) (background light)) (:foreground "violet")) (t (:italic t))) gnus-cite-face-9 gnus-cite-10 ((((class color) (background dark)) (:foreground "plum1")) (((class color) (background light)) (:foreground "medium purple")) (t (:italic t))) gnus-cite-face-10 gnus-cite-11 ((((class color) (background dark)) (:foreground "turquoise")) (((class color) (background light)) (:foreground "turquoise")) (t (:italic t))) gnus-cite-face-11 gnus-cite-face-list '(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) "*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." (repeat face) :set #[(symbol value) "\306 \"\307\302!\203
G\307\310!\203D \311\312\313 \312 \211 \203; @ \314
D\315\316F\fB TA\211\204! \312\f\237,BC\207" [symbol value gnus-message-max-citation-depth count list face custom-set-default boundp gnus-message-citation-keywords gnus-message-search-citation-line nil 1 quote prepend t --dolist-tail--] 7] gnus-cite-hide-percentage 50 "Only hide excess citation if above this percentage of the body." number gnus-cite-hide-absolute 10 "Only hide excess citation if above this number of lines in the body." gnus-cite-blank-line-after-header "If non-nil, put a blank line between the citation header and the button." gnus-article-boring-faces (cons 'gnus-signature gnus-cite-face-list) "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) gnus-article-hiding] 10)
(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)
#@531 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.
(defalias 'gnus-article-highlight-citation #[(&optional force same-buffer) "r\203 p\202\n q\210\306\n!\210\307 \f\310\307\211\211\211\211\211\211 \203\212 @A@A@A\206U \fB
B\2030 @A\236\204_ \236\204_ \311#\210\202_ \203\346 @A@A\312!\313
\"Aeb\210Sy\210\314 \315 \310#\203\321 \316\317\224\317\225\320$\210\311#\210\311 #\210\202\216 \205@A@\312!\311 #\210\202\352 .\f\207" [same-buffer gnus-article-buffer force gnus-cite-prefix-alist gnus-cite-face-list face-alist gnus-cite-parse-maybe nil t gnus-cite-add-face gnus-cite-find-prefix assoc re-search-forward point-at-eol gnus-article-add-button 1 gnus-cite-toggle 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-attribution-suffix gnus-cite-attribution-face] 11 (#$ . 9081) (list 'force)])
#@52 Dissect the article buffer looking for cited text.
(defalias 'gnus-dissect-cited-text #[nil "rq\210\306\307\310\"\210 \307\211\211\211\211 \203i \211A@\211\211A@
\203
\211A@eb\210\fy\210\311 \312B B
\203W \fS
@U\203W
\211A@\202B eb\210\fSy\210\311 B B\202+ \313 \210\311 \312B Bdb\210\314 \210\311 \312B B\315 \316\"\211 \307A\203\211 @@)A@@U\203\363 \211 @A)\312\232\204\264 @ BA@A\312\232\204\311 \211 A@) B\211 @A)\312\232\203\353 A@A\312\232\203\353 \211 AA)\203\371 A\202\371 @ BA\211\202\214 @\203@ B \237\211\n\211 AA)\203d\nA@A\312\232\203]\n\211 @A)\nAA@A\232\203]\nA@@b\203]\317\320!\203]\321y\203]`\nAA@@U\203]\n\211AAA\241\210\202\nA\211\202 .\207" [gnus-article-buffer gnus-cite-prefix-alist m marks number numbers gnus-cite-parse-maybe nil t point-marker "" article-goto-body gnus-article-search-signature sort car-less-than-car looking-at "[ ]*$" 1 prefix alist omarks x] 7 (#$ . 10630)])
(defalias 'gnus-article-fill-cited-long-lines #[nil "\300\301\302\"\207" [gnus-article-fill-cited-article nil t] 3])
#@189 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.
(defalias 'gnus-article-fill-cited-article #[(&optional width long-lines) "rq\210\306\307\310 \306\211 \203 \311 !\202 \n \214
A\203\272
\211 @@)
A@@}\210\312\313
\211 @A)!\314Q
\211 @A)\315\230\203L \315\202U
\211 @A)\316P?\306 \204q \317
\211 @A)!\203\247 \204\203 \320ed\"\210\202\247 eb\210m\204\247 \306\210i\321 V\322y\210\203\206 \214\323\324!`}\210\320ed\"\210)\202\206 ,
\211 @@)\306\211\223\210
A\211\202
\203\311
\211 @@)\306\211\223\210\306\211 \306\211 \306\211!.\207" [gnus-article-buffer width fill-column filladapt-mode adaptive-fill-mode marks nil t gnus-dissect-cited-text prefix-numeric-value "^" regexp-quote " *" "" " " gnus-article-foldable-buffer fill-region window-width 1 line-beginning-position 0 inhibit-point-motion-hooks buffer-read-only x long-lines use-hard-newlines do-fill fill-prefix adaptive-fill-regexp gnus-cite-prefix-alist gnus-cite-attribution-alist gnus-cite-loose-prefix-alist gnus-cite-loose-attribution-alist gnus-cite-article] 8 (#$ . 11757) "P"])
(defalias 'gnus-article-foldable-buffer #[(prefix) "\304\211eb\210m\204I \nGd`ZV\204 \nGu\210\305\304w\210l\2047 i\236\211\2040 i\306B\211B \211AT\241\210)\304\210i\307 V\203C \310\311y\210\202 \205Q G\312W*\207" [columns do-fill prefix elem nil " " 0 window-width t 1 3] 4])
#@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) "\306\307\310\"\210\306\311\310\"\210rq\210\312\211\310\313\314D \244e\312\211\211\211 ! \" # $\315 d\316\317$\211 \203O \310 b\210\317\320 \321\"%\"\210\322y\210` \202)
?\205V\323 ##\205V\312\211#\203| #\211 &@A)\324\230\203| #A\211#\204f #\203\212 #\211 &@@)#\203\245 #\211 &@A)\324\230\204\245 #A\211#\204\217 #\203\263 #\211 &@@)\f\203\376 \203\376 '\203\376 \fb\210':\203\317 '@\202\321 'y\210` Y\203\336 \312\202\376 \325 ':\203\376 b\210'A[y\210`\fX\203\373 \312\202\376 \325 \f\203X \203X \326\314!\210\327 \f\312\223\327 \312\223\330\313\312\f !%\210\fb\210(\2034\212\331\332\312\310#)\2044\333c\210\334\325 \211\335`\336)!\210`\317\f B\nD$\210`\313\337$\210\f`\312\223\210\202X .\n\207" [gnus-article-buffer gnus-hidden-properties start end beg found 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 point props inhibit-point-motion-hooks marks buffer-read-only arg x gnus-cited-lines-visible gnus-cite-blank-line-after-header gnus-cited-closed-text-button-line-format-spec] 10 (#$ . 13284) (byte-code "\300\301 \302C\"\207" [append gnus-article-hidden-arg force] 3)])
#@124 Toggle hiding the text in REGION.
ARG can be nil or a number. Positive means hide, negative
means show, nil means toggle.
(defalias 'gnus-article-toggle-cited-text #[(args &optional arg) "@\211@ A\211 A@) \306\n S\307\310$ \311 \312 \203C \313 !\204C \314V\2037 \203C \314W\205\233 \205\233 \203X \315\307\310\n \307\310 BB%\210\202i \316\310!\210\317\307\312\n \307\310 BB%\210 \320\321!\210)\212
b\210\322 \323y\210`|\210\324`\325`\326\203\215 \202\217 !!\210`\327$\210`\307\330$).\207" [args region beg end x start text-property-any article-type cite t nil zerop 0 gnus-remove-text-properties-when gnus-add-wash-type gnus-add-text-properties-when gnus-set-mode-line article point-at-bol 1 put-text-property gnus-article-add-button eval gnus-article-toggle-cited-text annotation hidden inhibit-point-motion-hooks buffer-read-only arg 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] 9 (#$ . 15011)])
#@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) "rq\210\306\307!\210\310\307 \"\204\261 \212\311\n!\210\312 \210` \313\314\315\313 db\210\316 \210\317`\"\203R
\320\211 @A) \"AG\\A\211\2048 \n\204h
\321_ \f_V\203\257
V\203\257 \322\307!\210 \203\257 \320\211 @A) \"AA\f\203o \f@\fAeb\210
Sy\210
\236\204\207 \323`\324y\210`\325\307D \244#\210\202\207 .\326\327!)\207" [gnus-article-buffer arg force gnus-cite-attribution-alist total hidden gnus-delete-wash-type cite gnus-article-check-hidden-text gnus-cite-parse-maybe article-goto-body nil t 0 gnus-article-search-signature count-lines assoc 100 gnus-add-wash-type gnus-add-text-properties 1 article-type gnus-set-mode-line article inhibit-point-motion-hooks buffer-read-only atts start x gnus-cite-prefix-alist gnus-cite-hide-percentage gnus-cite-hide-absolute gnus-hidden-properties] 7 (#$ . 16087) (byte-code "\300\301 \302\"\207" [append gnus-article-hidden-arg (force)] 3)])
#@39 Hide cited text in non-root articles.
(defalias 'gnus-article-hide-citation-in-followups #[nil "rq\210 Ar q\210\304\n!)?\205 \305 *\207" [gnus-article-buffer gnus-article-current article gnus-summary-buffer gnus-article-displayed-root-p gnus-article-hide-citation] 2 (#$ . 17522) nil])
#@26 Always parse the buffer.
(defalias 'gnus-cite-parse-maybe #[(&optional force no-overlay) "\306 \210\307\211\307\211\f\204 \310 \210
\205 \311
V?\205) @ AB\f\312 \207" [gnus-cite-prefix-alist gnus-cite-attribution-alist gnus-cite-loose-prefix-alist gnus-cite-loose-attribution-alist no-overlay gnus-cite-parse-max-size gnus-cite-localize nil gnus-cite-delete-overlays buffer-size gnus-cite-parse-wrapper gnus-article-current gnus-cite-article] 3 (#$ . 17817)])
(defalias 'gnus-cite-delete-overlays #[nil "\303\211\205 \n@\303\304\305\217\210\nA\211\204 \303*\207" [gnus-cite-overlay-list overlay --dolist-tail-- nil (byte-code "\302!\203 \302!eY\203 \302!dX\203 \303 \"\304\305\306\217\210\304\207" [overlay gnus-cite-overlay-list gnus-overlay-end delete nil (gnus-delete-overlay overlay) ((error))] 3) ((error))] 4])
(defalias 'gnus-cite-parse-wrapper #[nil "\301 \210\302\212\303 \210)\212\304 \210)\212\305 *\207" [inhibit-point-motion-hooks article-goto-body t gnus-cite-parse-attributions gnus-cite-parse gnus-cite-connect-attributions] 1])
(defalias 'gnus-cite-parse #[nil "\306e`\"T\307\212db\210\310 \210`)\311\312Q\313\211\211\211\211\211\211\211 !` W\203\324 `\314\313w\210`\315\316!\211
b\210
\"\\W\203f \317#!\203f \320\225\203c \320\225T\202f
T\f
\"\\V\203t
\"\\$\203\210 \313 \317\321!\307 \203\210
T\322 \fS\307#\203\310 \323\225
\f{\324\323\nG\313\n$\210\325\n \"\211 \203\271 ! AB\241\210\202\302 \n!D B
b\210\202\210 b\210!T!\202. eb\210\307\313\211 \2034\322% \307#\203\326!\203\306e\"\306e\323\224\"\323\225\202 \326!\203\306e\"\306e \"\313
\203\337
\fW\203\337
T\211 B \202\" \203B\327 B B \330 \331\" \205\243 @\211 @ A A \203I G&W\203u 'B'\202I 'B' \313 ( ))\203\237)@()A)(\332(A \"\241\210\202\203*\202I.\f\207" [message-cite-prefix-regexp guess-limit prefix numbers end begin count-lines t gnus-article-search-signature "^\\(" "\\)" nil "^>
\n" point-at-bol 2 looking-at 1 ">From " re-search-forward 0 set-text-properties assoc number-or-marker-p "" sort #[(a b) "@G @GV\207" [a b] 2] gnus-set-difference start entry alist prefix-regexp max case-fold-search line gnus-cite-max-prefix gnus-supercite-regexp gnus-cite-ignore-quoted-from gnus-cite-unsightly-citation-regexp gnus-cite-minimum-match-count gnus-cite-prefix-alist current loop] 13])
(defalias 'gnus-cite-parse-attributions #[nil "\306\307 d\310#\205\206 \311\224\311\225\312e \" \313\f! \314\315!\210\316!\205) \315\224\315\225{ \nb\210\317\212\314\311!\210`)\310#\205K \307 \n\310#?\205K \312e`T\" \f=\203W \306 b\210\212\314\311!\210`T) { \320\"\204\201 \f
FB\310BB.\202 )\207" [al-alist gnus-cite-attribution-suffix start end wrote prefix nil re-search-forward t 0 count-lines gnus-cite-find-prefix beginning-of-line 1 looking-at re-search-backward assoc gnus-supercite-secondary-regexp tag gnus-cite-attribution-prefix in al gnus-cite-loose-attribution-alist] 4])
(defalias 'gnus-cite-connect-attributions #[nil "\305\306\"\307\310\306\311#\210\307\310\312\313#\210\307\310\306\314#\210\307\315\312\316#\210\307\310\306\317#\210 \306 \203F @ A\nAG\fW\203' \320\n\"\320\n \"\202' *\307\321\312\306#\210\307\321\306\211#\207" [gnus-cite-prefix-alist gnus-cite-loose-prefix-alist entry alist gnus-cite-minimum-match-count append nil gnus-cite-match-attributions small #[(prefix tag) "\205 \302\303 !\304\303!\305\260\207" [tag prefix "\\`" regexp-quote "[ ]*" ">"] 5] t #[(prefix tag) "\205\n \301\302!\303Q\207" [tag "\\<" regexp-quote "\\>"] 3] #[(prefix tag) "\205\n \301\302!\303Q\207" [tag "\\<" regexp-quote "\\>"] 3] small-if-unique #[(prefix tag) "\301\302!\303Q\207" [prefix "\\`" regexp-quote ".+"] 3] #[(prefix tag) "\301\302!\303Q\207" [prefix "\\`" regexp-quote ".+"] 3] delq first] 4])
(defalias 'gnus-cite-match-attributions #[(sort after fun) "\306\307\211\211\211\211\211\211\211\211\211 \205d@A@A@\3108\3118 \203T \"\202U \312 \313=\203a \306\202s \314=\203l \307\202s \315!G\310W \203~ \202 \316\317\307 \307\211\211\211\211 \f ! \" # $$\203\350 $@#$A$#@\"#A!\320\321!\"\f \203\301 \"G\202\303 \f \f\fV\203\227
\203\227 \322
\"\"\203\227 W\203\227 # \202\227 .\n\203 \323\"\n@B%B%\203
\n@B%B%\n >\203 &\nA\307 ' ! (\323\n \" (\203`(@'(A('\n=\204&'\324'A!\"\241\210'A\204&\323' \" \323'\"\202&+\202 .\f\207" [gnus-cite-loose-attribution-alist size best smallest limit regexp t nil 2 3 "" small first gnus-cite-find-loose -1 1000000 apply min string-match delq gnus-set-difference tag prefix in wrote att case-fold-search atts fun sort after gnus-cite-loose-prefix-alist compare numbers candidate cite cites gnus-cite-attribution-alist gnus-cite-prefix-alist current loop] 12])
(defalias 'gnus-cite-find-loose #[(prefix) "\306\211\306 \203$ @\211@ A\307 !
\230\203 \fB\202 \f,\207" [gnus-cite-loose-attribution-alist atts att line lines prefix nil gnus-cite-find-prefix] 3])
(defalias 'gnus-cite-add-face #[(number prefix face) "\205H \306\307\211\211 eb\210\310
Sy!\205G Gu\210\311\307w\210`\312\210\311\307x\210` \nW\205G \313 \n\"\211B\314 \315\306#\210\314 \300#,\207" [face overlay to from inhibit-point-motion-hooks number t nil zerop " " 1 gnus-make-overlay gnus-overlay-put evaporate prefix gnus-cite-overlay-list] 4])
(defalias 'gnus-cite-toggle #[(prefix) "rq\210\306\307\310\"\210\307\311 \n\"A\310\307
\205`
@
Aeb\210 Sy\210\312`\313\"\203; \314`\315y\210`#\210\202T \236\204T \316\317!\210\320`\315y\210`\321\317D\244#\210 \322\323!\210)\202 -\207" [gnus-article-buffer prefix gnus-cite-prefix-alist number inhibit-point-motion-hooks numbers gnus-cite-parse-maybe nil t assoc get-text-property invisible remove-text-properties 1 gnus-add-wash-type cite gnus-add-text-properties article-type gnus-set-mode-line article buffer-read-only gnus-hidden-properties gnus-cite-attribution-alist gnus-article-mime-handle-alist gnus-article-mime-handle-alist-1] 5])
(defalias 'gnus-cite-find-prefix #[(line) "\305\306 \203 @ A\f A>\203 @\202 \n+\207" [gnus-cite-prefix-alist entry prefix alist line "" nil] 3])
#@58 Make the citation variables local to the article buffer.
(defalias 'gnus-cite-localize #[nil "\301\205 \302\211A@!\210\202 )\207" [vars (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] 3 (#$ . 24154)])
#@38 Maximum supported level of citation.
(defvar gnus-message-max-citation-depth (length gnus-cite-face-list) (#$ . 24497))
(defvar gnus-message-cite-prefix-regexp (concat "^\\(?:" message-cite-prefix-regexp "\\)"))
#@121 Search for a cited line and set match data accordingly.
Returns nil if there is no such line before LIMIT, t otherwise.
(defalias 'gnus-message-search-citation-line #[(limit) "\306 \307#\205F \310\311\312\313\314!\315\"\"G\n^\316\nT\317_\320\"\321 \322
\f\240\210
A \240\210\317_
\233\f\240\210\317_T
\233 \240\210\323
!\210,\307\207" [gnus-message-cite-prefix-regexp limit gnus-message-max-citation-depth end start mlist re-search-forward t apply concat split-string match-string-no-properties 0 "[ [:alnum:]]+" make-list 2 nil point-at-bol point-at-eol set-match-data cdepth] 5 (#$ . 24716)])
#@66 Keywords for highlighting different levels of message citations.
(defvar gnus-message-citation-keywords (byte-code "\305\306\307\n\306\211 \203$ \f@\310 D\311\312F BT\fA\211\204
\306 \237,BC\207" [count list gnus-cite-face-list face --dolist-tail-- gnus-message-search-citation-line nil 1 quote prepend t] 6) (#$ . 25330))
(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 (#$ . 25718))
(make-variable-buffer-local 'gnus-message-citation-mode)
#@125 Minor mode providing more font-lock support for nested citations.
When enabled, it automatically turns on `font-lock-mode'.
(defalias 'gnus-message-citation-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V \312=\203v \f@\313\211 \203\\ :\2038 \211A @\202= \313 \n\203T \314 !\315\316 !!\"L\210\202# \317 !\210\202# +\313\320 \210\321J\203n \322 \210\202v \n\203v \321\323!\210\324\325\n\203\200 \326\202\201 \327\"\210\330\331!\203\242 \306 \203\225 \306 \232\203\242 \332\333\n\203\237 \334\202\240 \335\"\210)\336 \210\n\207" [#1=#:last-message arg gnus-message-citation-mode major-mode font-lock-defaults keywords current-message toggle prefix-numeric-value 0 message-mode nil make-local-variable append default-value kill-local-variable font-lock-set-defaults font-lock-mode font-lock-fontify-buffer 1 run-hooks gnus-message-citation-mode-hook gnus-message-citation-mode-on-hook gnus-message-citation-mode-off-hook called-interactively-p any message "Gnus-Message-Citation mode %sabled" "en" "dis" force-mode-line-update default defaults gnus-message-citation-keywords] 4 (#$ . 25955) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \305\211%\207" [gnus-message-citation-mode-map add-minor-mode gnus-message-citation-mode "" boundp nil] 6)
#@39 Turn on `gnus-message-citation-mode'.
(defalias 'turn-on-gnus-message-citation-mode #[nil "\300\301!\207" [gnus-message-citation-mode 1] 2 (#$ . 27277)])
#@40 Turn off `gnus-message-citation-mode'.
(defalias 'turn-off-gnus-message-citation-mode #[nil "\300\301!\207" [gnus-message-citation-mode -1] 2 (#$ . 27437)])
(byte-code "\300 \210\301\302!\207" [gnus-ems-redefine provide gnus-cite] 2)