Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : gnus-cite.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:21 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/gnus-cite.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (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 "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314\315\316&	\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] 10)
#@38 Format of opened cited text buttons.
(custom-declare-variable 'gnus-cited-opened-text-button-line-format '"%(%{[-]%}%)\n" '(#$ . 912) :group 'gnus-cite :type 'string)
#@38 Format of closed cited text buttons.
(custom-declare-variable 'gnus-cited-closed-text-button-line-format '"%(%{[+]%}%)\n" '(#$ . 1085) :group 'gnus-cite :type 'string)
#@187 The number of lines of hidden cited text to remain visible.
Or a pair (cons) of numbers which are the number of lines at the top
and bottom of the text, respectively, to remain visible.
(custom-declare-variable 'gnus-cited-lines-visible 'nil '(#$ . 1260) :group 'gnus-cite :type '(choice (const :tag "none" nil) integer (cons :tag "Top and Bottom" integer integer)))
#@106 Maximum article size (in bytes) where parsing citations is allowed.
Set it to nil to parse all articles.
(custom-declare-variable 'gnus-cite-parse-max-size '25000 '(#$ . 1634) :group 'gnus-cite :type '(choice (const :tag "all" nil) integer))
#@48 Maximum possible length for a citation prefix.
(custom-declare-variable 'gnus-cite-max-prefix '20 '(#$ . 1882) :group 'gnus-cite :type 'integer)
#@118 *Regexp matching normal Supercite attribution lines.
The first grouping must match prefixes added by other packages.
(custom-declare-variable 'gnus-supercite-regexp '(concat "^\$" message-cite-prefix-regexp "\$? *" ">>>>> +\"\$[^\"\n]+\$\" +==") '(#$ . -2034) :group 'gnus-cite :type 'regexp)
#@117 Regexp matching mangled Supercite attribution lines.
The first regexp group should match the Supercite attribution.
(custom-declare-variable 'gnus-supercite-secondary-regexp '"^.*\"\$[^\"\n]+\$\" +==" '(#$ . 2338) :group 'gnus-cite :type 'regexp)
#@73 Minimum number of identical prefixes before we believe it's a citation.
(custom-declare-variable 'gnus-cite-minimum-match-count '2 '(#$ . 2593) :group 'gnus-cite :type 'integer)
#@56 *Regexp matching the beginning of an attribution line.
(custom-declare-variable 'gnus-cite-attribution-prefix '"In article\\|in <\\|On \$Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\$,\\|----- ?Original Message ?-----" '(#$ . -2777) :group 'gnus-cite :type 'regexp)
#@113 *Regexp matching the end of an attribution line.
The text matching the first grouping will be used as a button.
(custom-declare-variable 'gnus-cite-attribution-suffix '"\$\\(wrote\\|writes\\|said\\|says\\|>\$\$:\\|\\.\\.\\.\$\\|----- ?Original Message ?-----\\)[ 	]*$" '(#$ . -3047) :group 'gnus-cite :type 'regexp)
#@59 Regexp matching Microsoft-type rest-of-message citations.
(custom-declare-variable 'gnus-cite-unsightly-citation-regexp '"^-----Original Message-----\nFrom: \$.+\n\$+\n" '(#$ . 3373) :version "22.1" :group 'gnus-cite :type 'regexp)
#@166 Non-nil means don't regard lines beginning with ">From " as cited text.
Those lines may have been quoted by MTAs in order not to mix up with
the envelope From line.
(custom-declare-variable 'gnus-cite-ignore-quoted-from 't '(#$ . 3614) :version "22.1" :group 'gnus-cite :type 'boolean)
(byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\207" [custom-declare-face gnus-cite-attribution ((t (:italic t))) "Face used for attribution lines." :group gnus-cite put gnus-cite-attribution-face face-alias] 6)
#@110 Face used for attribution lines.
It is merged with the face for the cited text belonging to the attribution.
(custom-declare-variable 'gnus-cite-attribution-face ''gnus-cite-attribution '(#$ . 4130) :version "22.1" :group 'gnus-cite :type 'face)
(byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\210\300\311\312\303\304\305%\210\306\313\310\311#\210\300\314\315\303\304\305%\210\306\316\310\314#\210\300\317\320\303\304\305%\210\306\321\310\317#\210\300\322\323\303\304\305%\210\306\324\310\322#\210\300\325\326\303\304\305%\210\306\327\310\325#\210\300\330\331\303\304\305%\210\306\332\310\330#\210\300\333\334\303\304\305%\210\306\335\310\333#\210\300\336\337\303\304\305%\210\306\340\310\336#\210\300\341\342\303\304\305%\210\306\343\310\341#\210\300\344\345\303\304\305%\210\306\346\310\344#\207" [custom-declare-face gnus-cite-1 ((((class color) (background dark)) (:foreground "light blue")) (((class color) (background light)) (:foreground "MidnightBlue")) (t (:italic t))) "Citation face." :group gnus-cite put gnus-cite-face-1 face-alias 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] 6)
#@237 *List of faces used for highlighting citations.

When there are citations from multiple articles in the same message,
Gnus will try to give each citation from each article its own face.
This should make it easier to see who wrote what.
(custom-declare-variable '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) '(#$ . -6915) :group 'gnus-cite :type '(repeat face) :set #[(symbol value) "\306	\"\307\302!\203
�	G\307\310!\203D�\311\312\313	\312\211\203;�@\314
D\315\316F\fBTA\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 #1=#:--cl-dolist-temp--] 7])
#@65 Only hide excess citation if above this percentage of the body.
(custom-declare-variable 'gnus-cite-hide-percentage '50 '(#$ . 7758) :group 'gnus-cite :type 'number)
#@70 Only hide excess citation if above this number of lines in the body.
(custom-declare-variable 'gnus-cite-hide-absolute '10 '(#$ . 7930) :group 'gnus-cite :type 'integer)
#@74 If non-nil, put a blank line between the citation header and the button.
(custom-declare-variable 'gnus-cite-blank-line-after-header 't '(#$ . 8106) :group 'gnus-cite :type 'boolean)
#@231 List of faces that are not worth reading.
If an article has more pages below the one you are looking at, but
nothing on those pages is a word of at least three letters that is not
in a boring face, then the pages will be skipped.
(custom-declare-variable 'gnus-article-boring-faces '(cons 'gnus-signature gnus-cite-face-list) '(#$ . 8296) :type '(repeat face) :group 'gnus-article-hiding)
(byte-code "\302B\303\302!\204�\304\302\305\"\210\306B\303\306!\204�\304\306\305\"\210\307B\303\307!\204-�\304\307\305\"\210\310B\303\310!\204<�\304\310\305\"\210\311B\303\311!\204K�\304\311\305\"\210\312B\303\312!\204Z�\304\312\305\"\210\301B\303\301!\204i�\304\301\313\"\210\314B\303\314!\204x�\304\314\305\"\210\315B\303\315!\204\207�\304\315	\"\210\316B\303\316!\204\226�\304\316\305\"\210\305\207" [current-load-list gnus-cited-opened-text-button-line-format-alist gnus-cite-article default-boundp set-default nil gnus-cite-overlay-list gnus-cite-prefix-alist gnus-cite-attribution-alist gnus-cite-loose-prefix-alist gnus-cite-loose-attribution-alist ((98 (marker-position beg) 100) (101 (marker-position end) 100) (110 (count-lines beg end) 100) (108 (- end beg) 100)) gnus-cited-opened-text-button-line-format-spec gnus-cited-closed-text-button-line-format-alist gnus-cited-closed-text-button-line-format-spec] 3)
#@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) "\212\204�	q\210\306\n!\210\307\f\310\307\211\211\211\211\211\211\203\206�@A@A@A\206Q�\fB
B\203,�@A\236\204[�\236\204[�\311#\210\202[�\203\342�@A@A\312!\313
\"Aeb\210Sy\210\314\315 \310#\203\315�\316\317\224\317\225\320$\210\311#\210\311#\210\202\212�\205\f@A@\312!\311#\210\202\346�.\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 (#$ . 9635) (list 'force)])
#@52 Dissect the article buffer looking for cited text.
(defalias 'gnus-dissect-cited-text #[nil "\212q\210\306\307\310\"\210	\307\211\211\211\211\203i�\211A@\211\211A@
\203�
\211A@eb\210\fy\210\311 \312BB
\203W�\fS
@U\203W�
\211A@\202B�eb\210\fSy\210\311 BB\202+�\313 \210\311 \312BBdb\210\314 \210\311 \312BB\315\316\"\211\307A\203\211@@)\211A@)@U\203\377�\211@A)\312\232\204\270�@B\211A@)A\312\232\204\321�\211A@)B\211@A)\312\232\203\367�\211A@)A\312\232\203\367�\211AA)\203A\202@BA\211\202\214�@\203@B\237\211\n\211AA)\203~\n\211A@)A\312\232\203w\n\211@A)\n\211AA)@A\232\203w\n\211A@)@b\203w\317y\203w`\n\211AA)@@U\203w\n\211\211AA)A\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 1 prefix alist omarks x] 7 (#$ . 11180)])
#@109 Do word wrapping in the current article.
If WIDTH (the numerical prefix), use that text width when filling.
(defalias 'gnus-article-fill-cited-article #[(&optional force width) "\212q\210\306\307\310 \306\211	\203�\311	!\202�\n\214
A\203x�
\211@@)
\211A@)@}\210\312\313
\211@A)!\314Q
\211@A)\315\230\203P�\315\202Y�
\211@A)\316P\306\317ed\"\210+
\211@@)\306\211\223\210
A\211\202�
\203\207�
\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 " *" "" " " fill-region inhibit-point-motion-hooks buffer-read-only x use-hard-newlines 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 (#$ . 12208) (list t current-prefix-arg)])
#@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\"\210\212q\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\fB\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 (#$ . 13150) (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\211A@)\306\nS\307\310$\311\312\203C�\313!\204C�\314V\2037�\203C�\314W\205\233�\205\233�\203X�\315\307\310\n\307\310BB%\210\202i�\316\310!\210\317\307\312\n\307\310BB%\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 (#$ . 14880)])
#@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\313db\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 (#$ . 15956) (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 "\212q\210	A\212q\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 (#$ . 17391) 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 (#$ . 17692)])
(defalias 'gnus-cite-delete-overlays #[nil "\303\211\203�\n@\303\304\305\217\210\nA\211\204�*\303\207" [gnus-cite-overlay-list overlay #1=#:--cl-dolist-temp-- 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!DB
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\211B\202\"\203B\327BB\330\331\"\205\243@\211@AA\203IG&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�\306b\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\211eb\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) "\212q\210\306\307\310\"\210\307\311	\n\"A\310\307
\205`�
@
Aeb\210Sy\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 (#$ . 24040)])
#@47 Say whether the current line is a cited line.
(defalias 'gnus-cited-line-p #[nil "\212\304 \210\305\306\307	\"\305\211\203(�@`\nG`\\{\n\230\203!�\310A\211\204�**\207" [found gnus-cite-prefix-alist prefix #1=#:--cl-dolist-temp-- beginning-of-line nil mapcar car t] 4 (#$ . 24383)])
#@38 Maximum supported level of citation.
(defvar gnus-message-max-citation-depth (length gnus-cite-face-list) (#$ . 24680))
(byte-code "\302B\303\302!\204�\304\302\305	\306Q\"\210\302\207" [current-load-list message-cite-prefix-regexp gnus-message-cite-prefix-regexp default-boundp set-default "^\$?:" "\$"] 5)
#@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 (#$ . 24999)])
#@66 Keywords for highlighting different levels of message citations.
(defvar gnus-message-citation-keywords (byte-code "\305\306\307\n\306\211\203$�\f@\310D\311\312F	BT\fA\211\204
�\306	\237,BC\207" [count list gnus-cite-face-list face #1=#:--cl-dolist-temp-- gnus-message-search-citation-line nil 1 quote prepend t] 6) (#$ . 25613))
(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 (#$ . 26009))
(make-variable-buffer-local 'gnus-message-citation-mode)
#@318 Toggle `gnus-message-citation-mode' in current buffer.
This buffer local minor mode provides additional font-lock support for
nested citations.
With prefix ARG, turn `gnus-message-citation-mode' on if and only if ARG
is positive.
Automatically turn `font-lock-mode' on when `gnus-message-citation-mode'
is turned on.
(defalias 'gnus-message-citation-mode #[(&optional arg) "\306 	\307=\203�\n?\202(�	\203�\310	!\311V\202(�\n\204\"�\312\202(�\313\314\302\"\210\315\316=\203\213�\f@\315\211 !!\203q�!:\203M�!\211A!@\202R�!\315! \n\203i�\317 !\320\321 !\"\"L\210\2028�\322 !\210\2028�+\315\323 \210\324J\203\203�\325 \210\202\213�\n\203\213�\324\326!\210\327\330\n\203\225�\331\202\226�\332\"\210\333 \203\266�\306 \203\251�\306 \232\203\266�\313\334\n\203\263�\335\202\264�\336\"\210)\337 \210\n\207" [#1=#:last-message arg gnus-message-citation-mode major-mode font-lock-defaults keywords current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil message-mode 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 "Gnus-Message-Citation mode %sabled" "en" "dis" force-mode-line-update default defaults gnus-message-citation-keywords] 4 (#$ . 26246) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode gnus-message-citation-mode "" boundp gnus-message-citation-mode-map] 5)
#@39 Turn on `gnus-message-citation-mode'.
(defalias 'turn-on-gnus-message-citation-mode #[nil "\300\301!\207" [gnus-message-citation-mode 1] 2 (#$ . 27865)])
#@40 Turn off `gnus-message-citation-mode'.
(defalias 'turn-off-gnus-message-citation-mode #[nil "\300\301!\207" [gnus-message-citation-mode -1] 2 (#$ . 28025)])
(byte-code "\300 \210\301\302!\207" [gnus-ems-redefine provide gnus-cite] 2)

${this.title}

Code Editor : gnus-cite.elc