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 : deuglify.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" #$))

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

(byte-code "\300\301!\210\300\302!\207" [require gnus-art gnus-sum] 2)
#@35 Version of gnus-outlook-deuglify.
(defconst gnus-outlook-deuglify-version "1.5 Gnus version" (#$ . 479))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\304\305\314\315\306\301&	\210\310\316\317\320\304\305\314\315\306\301&	\210\310\321\322\323\304\305\314\324\306\301&	\210\310\325\302\326\304\305\314\327\306\301&	\210\310\330\331\332\304\305\314\324\306\301&	\210\310\333\334\335\304\305\314\324\306\301&	\210\310\336\337\340\304\305\314\324\306\301&	\210\310\341\342\343\304\305\314\324\306\301&	\210\310\344\302\345\304\305\314\346\306\301&	\207" [custom-declare-group gnus-outlook-deuglify nil "Deuglify articles generated by broken user agents like MS Outlook (Express)." :version "22.1" :group gnus custom-declare-variable gnus-outlook-deuglify-unwrap-min 45 "Minimum length of the cited line above the (possibly) wrapped line." :type integer gnus-outlook-deuglify-unwrap-max 95 "Maximum length of the cited line after unwrapping." gnus-outlook-deuglify-cite-marks ">|#%" "Characters that indicate cited lines." string gnus-outlook-deuglify-unwrap-stop-chars "Characters that inhibit unwrapping if they are the last one on the cited line above the possible wrapped line." (radio (const :format "None  " nil) (string :value ".?!")) gnus-outlook-deuglify-no-wrap-chars "`" "Characters that inhibit unwrapping if they are the first one in the possibly wrapped line." gnus-outlook-deuglify-attrib-cut-regexp "\$On \\|Am \$?\$Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\$,[^,]+, " "Regular expression matching the beginning of an attribution line that should be cut off." gnus-outlook-deuglify-attrib-verb-regexp "wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a écrit\\|schreef\\|escribió" "Regular expression matching the verb used in an attribution line." gnus-outlook-deuglify-attrib-end-regexp ": *\\|\\.\\.\\." "Regular expression matching the end of an attribution line." gnus-outlook-display-hook "A hook called after a deuglified article has been prepared.\nIt is run after `gnus-article-prepare-hook'." hook] 10)
#@45 Redisplay current buffer or article buffer.
(defalias 'gnus-outlook-display-article-buffer #[nil "r\206�pq\210\212\214~\210\301 \210`d}\210\302\303!\210*\304\305\306\")\207" [gnus-article-buffer article-goto-body gnus-treat-article nil gnus-run-hooks gnus-article-prepare-hook gnus-outlook-display-hook] 3 (#$ . 2547)])
#@323 Unwrap lines that appear to be wrapped citation lines.
You can control what lines will be unwrapped by frobbing
`gnus-outlook-deuglify-unwrap-min' and `gnus-outlook-deuglify-unwrap-max',
indicating the minimum and maximum length of an unwrapped citation line.  If
NODISPLAY is non-nil, don't redisplay the article buffer.
(defalias 'gnus-article-outlook-unwrap-lines #[(&optional nodisplay) "\306\307	\n\310\311!!\203`�rq\210\307\312 \210\313\314
\315
\316\317
\f\320\260\n\306\307#\203_�\321\225\322\224Z\323\225\323\224Z\211V\203[�\\W\203[�\324\325!\210\326\224b\210*\202 �*-?\205i�\327 \207" [gnus-outlook-deuglify-cite-marks gnus-outlook-deuglify-no-wrap-chars gnus-outlook-deuglify-unwrap-stop-chars stop-chars no-wrap cite-marks nil t buffer-live-p get-buffer article-goto-body re-search-forward "^\$[ 	" "]*\$\$[" "].*[^\n " "]\$[ 	]?\n\\1\$[^\n " "]+.*\$$" 2 1 3 replace-match "\\1\\2 \\3" 0 gnus-outlook-display-article-buffer inhibit-read-only case-fold-search gnus-article-buffer len3 len12 gnus-outlook-deuglify-unwrap-min gnus-outlook-deuglify-unwrap-max nodisplay] 12 (#$ . 2876) "P"])
#@85 Put the text from ATTR-START to the end of buffer at the top of the article buffer.
(defalias 'gnus-outlook-rearrange-article #[(attr-start) "\306\307\310!!\205`�rq\210\306\311 \210`\fU?\205_�\312 \210`\313 \203)�`\202*�d
\fW\2035�d\212\f
}\210\fb\210\314y\210\315\316!\204T�\317`d\320#\210db\210\321 \210d~\210)\322\f\211
$***\207" [gnus-outlook-deuglify-cite-marks cite-marks inhibit-read-only gnus-article-buffer attr-start to t buffer-live-p get-buffer article-goto-body gnus-kill-all-overlays gnus-article-search-signature nil looking-at ">" message-indent-citation yank-only newline transpose-regions cur] 5 (#$ . 4017)])
#@45 Repair a broken attribution line (Outlook).
(defalias 'gnus-outlook-repair-attribution-outlook #[nil "\306\307\310\311\f!!\2054�r\fq\210\307\312 \210\313\314	\315
\316	\317\320\260	\306\307#\2053�\321 \210\322\323!\210\324\224*+\207" [gnus-outlook-deuglify-cite-marks cite-marks inhibit-read-only case-fold-search gnus-article-buffer gnus-outlook-deuglify-attrib-verb-regexp nil t buffer-live-p get-buffer article-goto-body re-search-forward "^\$[^" "].+\$\$" "\$\$.*\n?[^\n" "].*\$?\$" "\$$" gnus-kill-all-overlays replace-match "\\1\\2\\4" 0 gnus-outlook-deuglify-attrib-end-regexp] 10 (#$ . 4664)])
#@40 Repair a big broken attribution block.
(defalias 'gnus-outlook-repair-attribution-block #[nil "\305\306\307\310\f!!\205,�r\fq\210\306\311 \210\312\313	\314Q\305\306#\205+�\315 \210\316\317!\210\320\224*+\207" [gnus-outlook-deuglify-cite-marks cite-marks inhibit-read-only case-fold-search gnus-article-buffer nil t buffer-live-p get-buffer article-goto-body re-search-forward "^[" " 	]*--* ?[^-]+ [^-]+ ?--*\\s *\n[^\n:]+:[ 	]*\$[^\n]+\$\n\$[^\n:]+:[ 	]*[^\n]+\n\$+" gnus-kill-all-overlays replace-match "\\1 wrote:\n" 0] 4 (#$ . 5287)])
#@68 Repair a broken attribution line (other user agents than Outlook).
(defalias 'gnus-outlook-repair-attribution-other #[nil "\306\307\310\311\f!!\2057�r\fq\210\307\312 \210\313\314
\315	\316	\317\320\321\260\306\307#\2056�\322 \210\323\324!\210\325\224*+\207" [gnus-outlook-deuglify-cite-marks cite-marks inhibit-read-only case-fold-search gnus-article-buffer gnus-outlook-deuglify-attrib-cut-regexp nil t buffer-live-p get-buffer article-goto-body re-search-forward "^\$" "\$?\$[^" "].+\$\n\$[^\n" "].*\$?\$" "\$.*\$" "\$$" gnus-kill-all-overlays replace-match "\\4 \\5\\6\\7" 0 gnus-outlook-deuglify-attrib-verb-regexp gnus-outlook-deuglify-attrib-end-regexp] 12 (#$ . 5840)])
#@96 Repair a broken attribution line.
If NODISPLAY is non-nil, don't redisplay the article buffer.
(defalias 'gnus-article-outlook-repair-attribution #[(&optional nodisplay) "\302 \206\f�\303 \206\f�\304 	\204�\305 \210)\207" [attrib-start nodisplay gnus-outlook-repair-attribution-other gnus-outlook-repair-attribution-block gnus-outlook-repair-attribution-outlook gnus-outlook-display-article-buffer] 1 (#$ . 6543) "P"])
#@87 Repair broken citations.
If NODISPLAY is non-nil, don't redisplay the article buffer.
(defalias 'gnus-article-outlook-rearrange-citation #[(&optional nodisplay) "\302\301!\211\203\f�\303!\210)	?\205�\304 \207" [attrib-start nodisplay gnus-article-outlook-repair-attribution gnus-outlook-rearrange-article gnus-outlook-display-article-buffer] 3 (#$ . 6971) "P"])
#@193 Full deuglify of broken Outlook (Express) articles.
Treat "smartquotes", unwrap lines, repair attribution and
rearrange citation.  If NODISPLAY is non-nil, don't redisplay the
article buffer.
(defalias 'gnus-outlook-deuglify-article #[(&optional nodisplay) "\301 \210\302\300!\210\303\300!\210?\205�\304 \207" [nodisplay gnus-article-treat-smartquotes gnus-article-outlook-unwrap-lines gnus-article-outlook-rearrange-citation gnus-outlook-display-article-buffer] 2 (#$ . 7343) "P"])
#@59 Deuglify broken Outlook (Express) articles and redisplay.
(defalias 'gnus-article-outlook-deuglify-article #[nil "\300\301!\207" [gnus-outlook-deuglify-article nil] 2 (#$ . 7834) nil])
(provide 'deuglify)

${this.title}

Code Editor : deuglify.elc