Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
.dir-locals.el	105 B	-rw-r--r--
canlock.elc	5.71 KB	-rw-r--r--
deuglify.elc	7.85 KB	-rw-r--r--
gmm-utils.elc	5.79 KB	-rw-r--r--
gnus-agent.elc	119.17 KB	-rw-r--r--
gnus-art.elc	262.11 KB	-rw-r--r--
gnus-async.elc	11.71 KB	-rw-r--r--
gnus-bcklg.elc	2.85 KB	-rw-r--r--
gnus-bookmark.elc	25.33 KB	-rw-r--r--
gnus-cache.elc	24.08 KB	-rw-r--r--
gnus-cite.elc	26.28 KB	-rw-r--r--
gnus-cloud.elc	18.45 KB	-rw-r--r--
gnus-cus.elc	39.5 KB	-rw-r--r--
gnus-delay.elc	4.61 KB	-rw-r--r--
gnus-demon.elc	7.52 KB	-rw-r--r--
gnus-diary.elc	8.41 KB	-rw-r--r--
gnus-dired.elc	8.03 KB	-rw-r--r--
gnus-draft.elc	12.03 KB	-rw-r--r--
gnus-dup.elc	4.59 KB	-rw-r--r--
gnus-eform.elc	4.76 KB	-rw-r--r--
gnus-fun.elc	9.93 KB	-rw-r--r--
gnus-gravatar.elc	4.15 KB	-rw-r--r--
gnus-group.elc	154.92 KB	-rw-r--r--
gnus-html.elc	13.41 KB	-rw-r--r--
gnus-icalendar.elc	40.93 KB	-rw-r--r--
gnus-int.elc	58.83 KB	-rw-r--r--
gnus-kill.elc	19.24 KB	-rw-r--r--
gnus-logic.elc	5.15 KB	-rw-r--r--
gnus-mh.elc	2.96 KB	-rw-r--r--
gnus-ml.elc	6.08 KB	-rw-r--r--
gnus-mlspl.elc	6.48 KB	-rw-r--r--
gnus-msg.elc	84.49 KB	-rw-r--r--
gnus-notifications.elc	5.38 KB	-rw-r--r--
gnus-picon.elc	8.06 KB	-rw-r--r--
gnus-range.elc	11.97 KB	-rw-r--r--
gnus-registry.elc	34.53 KB	-rw-r--r--
gnus-rfc1843.elc	1.59 KB	-rw-r--r--
gnus-salt.elc	27.54 KB	-rw-r--r--
gnus-score.elc	74.27 KB	-rw-r--r--
gnus-sieve.elc	8.14 KB	-rw-r--r--
gnus-spec.elc	12.88 KB	-rw-r--r--
gnus-srvr.elc	50.09 KB	-rw-r--r--
gnus-start.elc	138.21 KB	-rw-r--r--
gnus-sum.elc	431.26 KB	-rw-r--r--
gnus-topic.elc	46.53 KB	-rw-r--r--
gnus-undo.elc	4.69 KB	-rw-r--r--
gnus-util.elc	49.29 KB	-rw-r--r--
gnus-uu.elc	55.9 KB	-rw-r--r--
gnus-vm.elc	2.42 KB	-rw-r--r--
gnus-win.elc	10.95 KB	-rw-r--r--
gnus.elc	158.84 KB	-rw-r--r--
gssapi.elc	2.27 KB	-rw-r--r--
legacy-gnus-agent.elc	6.35 KB	-rw-r--r--
mail-source.elc	28.21 KB	-rw-r--r--
message.elc	237.92 KB	-rw-r--r--
mm-archive.elc	2.95 KB	-rw-r--r--
mm-bodies.elc	5.84 KB	-rw-r--r--
mm-decode.elc	55.66 KB	-rw-r--r--
mm-encode.elc	6.13 KB	-rw-r--r--
mm-extern.elc	4.25 KB	-rw-r--r--
mm-partial.elc	3.05 KB	-rw-r--r--
mm-url.elc	9.75 KB	-rw-r--r--
mm-util.elc	24.33 KB	-rw-r--r--
mm-uu.elc	21.99 KB	-rw-r--r--
mm-view.elc	16.82 KB	-rw-r--r--
mml-sec.elc	35.2 KB	-rw-r--r--
mml-smime.elc	10.44 KB	-rw-r--r--
mml.elc	44.72 KB	-rw-r--r--
mml1991.elc	7.59 KB	-rw-r--r--
mml2015.elc	25.61 KB	-rw-r--r--
nnagent.elc	10.44 KB	-rw-r--r--
nnbabyl.elc	16.84 KB	-rw-r--r--
nndiary.elc	38.56 KB	-rw-r--r--
nndir.elc	2.67 KB	-rw-r--r--
nndoc.elc	30.1 KB	-rw-r--r--
nndraft.elc	10.55 KB	-rw-r--r--
nneething.elc	11.45 KB	-rw-r--r--
nnfolder.elc	32.39 KB	-rw-r--r--
nngateway.elc	2.88 KB	-rw-r--r--
nnheader.elc	34.72 KB	-rw-r--r--
nnimap.elc	73.06 KB	-rw-r--r--
nnir.elc	62.86 KB	-rw-r--r--
nnmail.elc	52.09 KB	-rw-r--r--
nnmaildir.elc	90.83 KB	-rw-r--r--
nnmairix.elc	72.33 KB	-rw-r--r--
nnmbox.elc	18.57 KB	-rw-r--r--
nnmh.elc	15.14 KB	-rw-r--r--
nnml.elc	33.63 KB	-rw-r--r--
nnnil.elc	1.63 KB	-rw-r--r--
nnoo.elc	8.63 KB	-rw-r--r--
nnregistry.elc	1.72 KB	-rw-r--r--
nnrss.elc	29.02 KB	-rw-r--r--
nnspool.elc	15.72 KB	-rw-r--r--
nntp.elc	111.69 KB	-rw-r--r--
nnvirtual.elc	18.31 KB	-rw-r--r--
nnweb.elc	16.67 KB	-rw-r--r--
score-mode.elc	4.93 KB	-rw-r--r--
smiley.elc	5.31 KB	-rw-r--r--
smime.elc	18.76 KB	-rw-r--r--
spam-report.elc	11.41 KB	-rw-r--r--
spam-stat.elc	19.39 KB	-rw-r--r--
spam-wash.elc	1.23 KB	-rw-r--r--
spam.elc	80.84 KB	-rw-r--r--

Code Editor : gnus-spec.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'gnus)
(defvar gnus-summary-mark-positions nil)
(defvar gnus-group-mark-positions nil)
(defvar gnus-group-indentation "")
(defalias 'gnus-lrm-string-p '(macro . #[(string) "\301\302\303\304DDE\305BB\207" [string memq aref 1- length ('(8206 8207 8236))] 6]))
(defvar gnus-lrm-string (byte-code "\3001�\301\302!0\202�\210\202�\203�\303\301\302!\304\305#\207\306\207" [(error) string 8206 propertize invisible t ""] 4))
(defvar gnus-summary-line-format-spec nil)
(defvar gnus-summary-dummy-line-format-spec nil)
(defvar gnus-group-line-format-spec nil)
#@24 Alist of format specs.
(defvar gnus-format-specs (byte-code "\301B\302\303 BD\207" [emacs-version version gnus-version gnus-continuum-version] 3) (#$ . 973))
(defvar gnus-default-format-specs gnus-format-specs)
(defvar gnus-article-mode-line-format-spec nil)
(defvar gnus-summary-mode-line-format-spec nil)
(defvar gnus-group-mode-line-format-spec nil)
#@45 Update the format specification near point.
(defalias 'gnus-update-format #[(var) "\306\307\310\"\210\311\312\"!\211\n\236\313\211\203�\314\n\"\306\315\316\"!\317\306!J\211\306\315\320\"!J\307\321\"?#L\210\306\315\316\"!J	\f
E\nB\322\323!\210\324 \210\325 \210\326
!c,\207" [var type gnus-format-specs entry value spec intern string-match "gnus-\$[-a-z]+\$-line" match-string 1 nil delq format "%s-spec" gnus-parse-format "%s-alist" "mode" pop-to-buffer "*Gnus Format*" erase-buffer lisp-interaction-mode gnus-pp-to-string] 8 (#$ . 1333) (list (save-excursion (eval-defun nil) (re-search-forward "[ 	\n]" nil t) (if (re-search-backward "\$gnus-[-a-z]+-line-format\$" nil t) (progn (match-string 1)))))])
#@79 Update all (necessary) format specifications.
Return a list of updated types.
(defalias 'gnus-update-format-specifications #[(&optional force &rest types) "\204�	\203�\306 \306	!\232\203�\n\307\236A\232\204�\310\310\211\211\211\211\211A\242\211\203\353�\212\311\312\313\"!\314!\203k�J\211\203k�
\211\205d�\315\316!\211!\205d�)\203k�
q\210\311\312\317\"!J)\236A\211@\203\233�@\232\203\233�\311\312\320\"!A@L\210\202\347�;\204\246�\202\272�\321\311\312\322\"!J\323\324\325!\"?#\203\317�A
\240\210\240\210\202\330�
EB\311\312\320\"!
L\210\fB)\202)�\307\236\204\367�\307\nBB\f-\207" [force gnus-newsrc-file-version emacs-version gnus-format-specs updated val gnus-continuum-version version nil intern format "gnus-%s-buffer" boundp buffer-live-p get-buffer "gnus-%s-line-format" "gnus-%s-line-format-spec" gnus-parse-format "gnus-%s-line-format-alist" string-match "mode$" symbol-name type entry new-format types buffer] 8 (#$ . 2065)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\210\300\316\317\320\304\305\306\307&\210\300\321\322\323\304\305\306\307&\207" [custom-declare-variable gnus-mouse-face-0 'highlight "The \"%(hello%)\" face." :group gnus-format :type face gnus-mouse-face-1 'highlight "The \"%1(hello%)\" face." gnus-mouse-face-2 'highlight "The \"%2(hello%)\" face." gnus-mouse-face-3 'highlight "The \"%3(hello%)\" face." gnus-mouse-face-4 'highlight "The \"%4(hello%)\" face."] 8)
(defalias 'gnus-mouse-face-function #[(form type) "\302\303\304\305\306\"B\307	\310\232\203�\311\202�\312\313\314\315	\"!JD\257\207" [form type put-text-property (point) progn append ((point)) 'mouse-face 0 gnus-mouse-face quote intern format "gnus-mouse-face-%d"] 9])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\210\300\316\317\320\304\305\306\307&\210\300\321\322\323\304\305\306\307&\207" [custom-declare-variable gnus-face-0 'bold "The \"%{hello%}\" face." :group gnus-format :type face gnus-face-1 'italic "The \"%1{hello%}\" face." gnus-face-2 'bold-italic "The \"%2{hello%}\" face." gnus-face-3 'bold "The \"%3{hello%}\" face." gnus-face-4 'bold "The \"%4{hello%}\" face."] 8)
(defalias 'gnus-face-face-function #[(form type) "\302\303\304\305\306\"B\307\310\307\311\312\313\314\315	\"!JD\316BB\317BBEF\207" [form type add-text-properties (point) progn append ((point)) cons 'face list quote intern format "gnus-face-%d" ('default) ('(gnus-face t))] 12])
(defalias 'gnus-balloon-face-function #[(form type) "\302\303\304\305\306\"B\307\310\311\312	\"!\257\207" [form type put-text-property (point) progn append ((point)) 'help-echo intern format "gnus-balloon-face-%d"] 8])
(defalias 'gnus-spec-tab #[(column) "\301V\203�\302\303\304\305\306BB\307BBE\207\310!\311\312\313E\314\315\311\316\317DE\320BBE\302\303\304\305\321BB\322BBEF)\207" [column 0 insert-char 32 max - ((current-column)) (0) abs if > (current-column) let ((end (point))) = move-to-column ((delete-region (point) end) (delete-region (1- (point)) end) (insert " ")) ((current-column)) (0)] 9])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias gnus-correct-length string-width nil make-obsolete "27.1"] 4)
(defalias 'gnus-correct-substring #[(string start &optional end) "\306\211\211\211G\307P\n	W\203+�\nW\203+�\310\nH!\\\nT\211\202�\n\n	X\203N�\203?�X\203N�\310\nH!\\\nT\211\202.�\n\311
\fS#.\207" [string length seek wseek wend wstart 0 "�" char-width substring start end] 8])
#@44 Return a form that limits EL to MAX-WIDTH.
(defalias 'gnus-tilde-max-form #[(el max-width) "\304!\n9\2039�\305\306\307\nD	E\310W\203\"�\311\n\312\307\nD	EE\2024�\305\313\nD\314\311\n\310	FE\311\n\310	FF\nF\202j�\315\316\317\nDDC\305\306\320	E\310W\203U�\311\316\312\321	EE\202e�\305\322\314\311\316\310	FE\311\316\310	FF\323BBBE)\207" [max-width max el gnus-lrm-string abs if > string-width 0 gnus-correct-substring - gnus-lrm-string-p concat let val eval (string-width val) (string-width val) (gnus-lrm-string-p val) (val)] 11 (#$ . 5728)])
#@46 Return a form that cuts CUT-WIDTH off of EL.
(defalias 'gnus-tilde-cut-form #[(el cut-width) "\303!\n9\203,�\304\305\306\nD	E\307W\203#�\310\n\307\311\306\nD	EF\202'�\310\n	E\nF\202R�\312\313\314\nDDC\304\305\315	E\307W\203I�\310\313\307\311\316	EF\202M�\310\313	E\317BBBE)\207" [cut-width cut el abs if > string-width 0 gnus-correct-substring - let val eval (string-width val) (string-width val) (val)] 10 (#$ . 6282)])
#@54 Return a form that is blank when EL is IGNORE-VALUE.
(defalias 'gnus-tilde-ignore-form #[(el ignore-value) "9\203�\302\303	E\304F\207\305\306\307DDC\302\303\306	E\310BBE\207" [el ignore-value if equal #1="" let val eval (#1# val)] 6 (#$ . 6713)])
#@177 Return a form that pads EL to PAD-WIDTH accounting for multi-column
characters correctly.  This is because `format' may pad to columns
or to characters when given a pad value.
(defalias 'gnus-pad-form #[(el pad-width) "\304!\305W9\203-�\306\307\310\n\311DEDC\312\313\314	\205�\315	?\205&�\316FFE\202P�\317\320\321DD\307\310\n\322BBDD\312\323\314	\205C�\324\320	?\205J�\325F\326BBBE*\207" [pad-width side pad el abs 0 let need - string-width if (> need 0) concat (make-string need 32) (make-string need 32) let* val eval ((string-width val)) (> need 0) (make-string need 32) (make-string need 32) (val)] 8 (#$ . 6972)])
(defalias 'gnus-parse-format #[(format spec-alist &optional insert) "\304\305\306	\"\203�\307	\n\"\202�\310	\n#)\207" [case-fold-search format spec-alist insert nil string-match "\\`\$.*\$%[0-9]?[{(«]\$.*\$%[0-9]?[»})]\$.*\n?\$\\'\\|%[-0-9]*=\\|%[-0-9]*\\*" gnus-parse-complex-format gnus-parse-simple-format] 4])
(defalias 'gnus-parse-complex-format #[(format spec-alist) "\306\212\307 \210	c\210eb\210\310\311\306\312#\203�\313\314\306\312#\210\202\f�eb\210\315c\210\310\316\306\312#\203{�\317\224\2036�\320\317!\2027�\321\320\322!\323H\n\324U\204P�\n\325U\204P�\n\326U\203s�\313\327\n\324U\203\\�\330\202g�\n\325U\203f�\331\202g�\332\333\334\260\312\211#\210\202w�\313\335!\210*\202#�db\210\336c\210eb\210\306\310\337\306\312#\203\231�\313\340\312\211#\210\312\202\206�)eb\210\310\341\306\312#\203\263�\313\301\342\320\317!\"\312\211#\210\202\235�eb\210\343p!\203\315�\344\345\346\347
*\"\350\"BB\202\324�\351\347
*\"B+\207" [cursor-spec format delim number case-fold-search form nil gnus-set-work-buffer re-search-forward "\"" t replace-match "\\\"" "(\"" "%\$[0-9]+\$?\$[«»{}()]\$" 1 match-string "0" 2 0 40 123 171 "\"(" "mouse" "face" "balloon" " " " \"" "\")\"" "\")" "%\$[-0-9]+\$?\\*" "\"(point)\"" "%\$[-0-9]+\$=" "\"(tab %s)\"" read let (gnus-position) append gnus-complex-form-to-spec ((if gnus-position (put-text-property gnus-position (1+ gnus-position) 'gnus-position t))) progn spec-alist] 6])
(defalias 'gnus-complex-form-to-spec #[(form spec-alist) "\301\302\303\304\"\"\207" [form delq nil mapcar #[(sform) ";\203�\302	\303#\207@\304=\203�\305\207@\306=\203!�\307A@!\207\310\311\312@\"!\313AA	\"A@\"\207" [sform spec-alist gnus-parse-simple-format t point (setq gnus-position (point)) tab gnus-spec-tab intern format "gnus-%s-face-function" gnus-complex-form-to-spec] 4]] 5])
(defalias 'gnus-parse-simple-format #[(format spec-alist &optional insert) "\306\307\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211;<=>?@ABCDEF\212\310 \210c\210eb\210\311\312\307\313#\203 \307\211?;\307\211<F\307\211\307\211`S;\314\315!\203}�\316\317\320!!<\321\224\203w�\316\321\224T\321\225{!F\306\225b\202\350�\314\322!\203\347�\320u\210\323p!\211@>\nA@=>\324\267\202\337�=<\202[�=[<\202[�=F\202[�=[F\202[�=\202[�=[\202[�=;\203\320�=\202\325�\325\326=\"\202[�=\202[�\327\330\n\"\210\202[�\307\204[�\307f\211E\331=\203\320u\210\307f\211?\332=\203+\314\333!\203+\317\320!?\320\225b\210\202+E\332=\203+\314\333!\203+\334\317\320!!\320\225b\210\320u\210;`|\210\312c\210E\335=\203C\312c\210\202;�E\336=\203R\337DB\202\221?\203q\334\325?;\203c\340\202d\341?\"!\342D\337DB\202\221\206wEG\236A\211B\204\221E\343=\203\216\344B\202\221\345BBA@<\203\241\346<!c\210F\204\256
\204\256\f\203\337c\210B@HBA@\347U\203\310\350HDH\202\327BA@\351U\203\327\352HDH\f\203\342\353H\f\"H
\203\355\354H
\"HF\203\372\355HF\"H<\203\356H<\"HHDBD)\202;�	c\210B@DBD\202;�\357ed\"C)C\360\230\2032\307\202\326\361\312C\"\204@CC\202\326C\326\230\203ND@C\202\326C\362\230\203\\D@C\202\326C\363\230\203~\313@4\203u\364\352D@DD\202\326\352D@DC\202\326\361\365C\"\203\214D\237\202\326\361\366C\"\203\240D@\367C\321\"D\202\326\361\370C\"\203\271\317\320C\"D@\317\321C\"E\202\326\361\371C\"\203\315\317\320C\"D@D\202\326\325CD\237BBCA4\203\363A\205\f@\203\354A\202\f\364AB\202\fA;\203\376A\202\fA:\203\372AB\202\f\360.\207" [extended-spec elem-type tilde tilde-form ignore-value cut-width 0 nil gnus-set-work-buffer re-search-forward "%" t looking-at "\$[-.0-9]+\$\$,[-0-9]+\$?" string-to-number match-string 1 2 "~" read #s(hash-table size 11 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pad 154 pad-left 154 pad-right 161 max-right 169 max 169 max-left 176 cut 184 cut-left 184 cut-right 190 ignore 197 form 217)) format "%s" error "Unknown tilde type: %s" 117 38 "&\$[^;]+\$;" intern 37 64 115 "gnus-user-format-function-%s" "gnus-user-format-function-%c" gnus-tmp-header 108 (#1="" 115) ("*" 115) number-to-string 99 char-to-string 100 int-to-string gnus-tilde-ignore-form gnus-tilde-cut-form gnus-tilde-max-form gnus-pad-form buffer-substring-no-properties #1# string-match "%c" "%d" insert "\\`\$%[cs]\$+\\'" "\\`%[sc][^%]+\\'" substring "\\`\$[^%]+\$%[sc]\$[^%]+\$\\'" "\\`\$[^%]+\$%[sc]\\'" concat spec-beg pad-width value type user-defined dontinsert result elem fstring flist spec max-width spec-alist el] 19])
#@76 Eval the format variable FORMAT, using ALIST.
If PROPS, insert the result.
(defalias 'gnus-eval-format #[(format &optional alist props) "\304	\n#\n\203�\305`\306!\210`\n#\202�\306!)\207" [format alist props form gnus-parse-format add-text-properties eval] 4 (#$ . 12190)])
(defalias 'gnus-set-format #[(type &optional insertable) "\302\303\304\"!\305\302\303\306\"!J\302\303\307\"!J	#L\207" [type insertable intern format "gnus-%s-line-format-spec" gnus-parse-format "gnus-%s-line-format" "gnus-%s-line-format-alist"] 7])
(defalias 'gnus-summary-line-format-spec #[nil "	\n\261\210\306`\f\307\310
G\311V\203�\312\311\"\202�#\261\210`\313$\210\314\315\261\207" [gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation gnus-tmp-opening-bracket gnus-tmp-lines put-text-property format "%4d: %-20s" 20 truncate-string-to-width mouse-face " " "\n" gnus-tmp-name gnus-tmp-closing-bracket gnus-mouse-face gnus-tmp-subject-or-nil] 9])
(provide 'gnus-spec)

${this.title}

Code Editor : gnus-spec.elc