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 : nndraft.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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 "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\302\310!\210\302\311!\210\312\236\203/�\312\236A\313\314\315\"\240\210\202:�\312\313\314\315\"\316\211FB\312	\236\204F�\312\317D	B\316\207" [nnoo-definition-alist nnoo-state-alist require nnheader nnmail gnus-start gnus-group nnmh nnoo mm-util nndraft mapcar list (nnmh) nil "*internal-non-initialized-backend*"] 4)
#@109 Where nndraft will store its files.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndraft-directory (nnheader-concat gnus-directory "drafts/") (#$ . 808))
(byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312&\207" [nnoo-define nndraft-directory (nnmh-directory) custom-declare-variable nndraft-required-headers '(Date) "Headers to be generated when saving a draft message.\nThe headers in this variable and the ones in `message-required-headers'\nare generated if and only if they are also in `message-draft-headers'." :type (repeat sexp) :group message-headers] 8)
(defvar nndraft-current-group "")
(nnoo-define 'nndraft-current-group '(nnmh-current-group))
(defvar nndraft-get-new-mail nil)
(nnoo-define 'nndraft-get-new-mail '(nnmh-get-new-mail))
(defvar nndraft-current-directory nil)
(nnoo-define 'nndraft-current-directory '(nnmh-current-directory))
(defconst nndraft-version "nndraft 1.0")
(defvar nndraft-status-string "")
(byte-code "\300\301\302\"\210\303\304!\207" [nnoo-define nndraft-status-string (nnmh-status-string) nnoo-define-basics-1 nndraft] 3)
(defalias 'nndraft-open-server #[(server &optional defs) "\303\304	#\210\305\n!\204�\306 \210\307\304\310\n#\207\311\312\n!!\204&�\306 \210\307\304\313\n#\207\307\304\314\n$\210\315\207" [server defs nndraft-directory nnoo-change-server nndraft file-exists-p nndraft-close-server nnheader-report "No such file or directory: %s" file-directory-p file-truename "Not a directory: %s" "Opened server %s using directory %s" t] 5])
(nnoo-register-function 'nndraft-open-server)
(defalias 'nndraft-retrieve-headers #[(articles &optional group server fetch-old) "\306!\210r	q\210\307 \210\310\211\211
@;\203�\311\202s�
\203o�``}\210\312
\211A\242\211p$\203�eb\210\313\314\310\315#\203D�\316y\210\202G�db\210\317`d\"d`Z`d|\210eb\210\320\321\f\"c\210\320\322\n#c\210~\210db\210\323c\210\202�\324 \210\311,\207" [group nntp-server-buffer chars lines article articles nndraft-possibly-change-group erase-buffer nil headers nndraft-request-article search-forward "\n\n" t -1 count-lines format "221 %d Article retrieved.\n" "Lines: %d\nChars: %d\n" ".\n" nnheader-fold-continuation-lines server] 5])
(nnoo-register-function 'nndraft-retrieve-headers)
(defalias 'nndraft-request-article #[(id &optional group server buffer) "\306!\210	\247\205m�\307	!\310\n!\311\n\"\203�\n\202�
\206$�\312\f!\205l�\311\n\"\203C�\313\235\203>�\202E�\202E�\314\f!)\205l�rq\210eb\210\315\316\317!\320Q\321\322#\203j�\323\324\322\211#\210)\322,\207" [group id file auto newest buffer nndraft-possibly-change-group nndraft-article-filename nndraft-auto-save-file-name file-newer-than-file-p file-exists-p ("drafts" "delayed") nnmail-find-file re-search-forward "^" regexp-quote "$" nil t replace-match "" nntp-server-buffer message-draft-coding-system mm-text-coding-system mm-auto-save-coding-system nnmail-file-coding-system mail-header-separator] 4])
(nnoo-register-function 'nndraft-request-article)
#@64 Request a new buffer that is restored to the state of ARTICLE.
(defalias 'nndraft-request-restore-buffer #[(article &optional group server) "\303!\210\304	\np$\205�\305\306!\210\305\307!\210\310\207" [group article server nndraft-possibly-change-group nndraft-request-article message-remove-header "xref" "lines" t] 5 (#$ . 3837)])
(nnoo-register-function 'nndraft-request-restore-buffer)
(defalias 'nndraft-request-update-info #[(group info &optional server) "\304!\210	AA\211\305\306\307\"\310 \311#\240\210)\312	8\211\203,�\312	\233\313\236\205*�\313\236C\240\210)\311\207" [group info #1=#:c marks nndraft-possibly-change-group gnus-update-read-articles gnus-group-prefixed-name (nndraft "") nndraft-articles t 3 unsend] 6])
(nnoo-register-function 'nndraft-request-update-info)
(defalias 'nndraft-generate-headers #[nil "\212\302\303	\304#!)\207" [nndraft-required-headers message-draft-headers message-generate-headers message-headers-to-generate nil] 5])
#@53 Update groups' unread articles in the group buffer.
(defalias 'nndraft-update-unread-articles #[nil "\306 \210rq\210\307\310\311 \"\312	!\313\314\315\313\314\"\210\212	\313\211\205R�@\2035�\316
\"\204H�\317
!\210\320 \321U\203H�\322 \323y\210`|\210A\211\204$�\313.\207" [gnus-group-buffer groups gnus-group-marked gnus-get-new-news-hook inhibit-read-only group nndraft-request-list mapcar #[(elem) "\301@\302\303D\"\207" [elem gnus-group-prefixed-name nndraft ""] 4] nnmail-get-active copy-sequence nil t gnus-group-get-new-news-this-group string-match gnus-group-goto-group gnus-group-group-unread 0 point-at-bol 1 --dolist-tail-- gnus-permanently-visible-groups] 4 (#$ . 4815)])
#@68 Associate the current buffer with some article in the draft group.
(defalias 'nndraft-request-associate-buffer #[(group) "\306\307!\210\310!\210\311!\210\312p\312\211\313\314!r
q\210\315\216\316!\210\317\320\321!\322\323$\324\n!+\325	!\"\326 #\327 \210\330\331\332\312\322$\210\330\333\334\312\322$\210\335\336\337\340\341$\210\n,\207" [group file article buf gnus-verbose-backends #1=#:temp-buffer nndraft-open-server "" nndraft-request-group nndraft-possibly-change-group nil generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] insert-buffer-substring nndraft-request-accept-article nnoo-current-server nndraft t noinsert nndraft-article-filename expand-file-name make-auto-save-file-name clear-visited-file-modtime add-hook write-contents-functions nndraft-generate-headers after-save-hook nndraft-update-unread-articles message-add-action (nndraft-update-unread-articles) exit postpone kill buffer-file-name buffer-auto-save-file-name] 5 (#$ . 5523)])
(nnoo-register-function 'nndraft-request-associate-buffer)
(defalias 'nndraft-request-group #[(group &optional server dont-check info) "\306!\210	\204`�\307\n\"\f\310\211\311!\210\312\313\3141)�\315\310\316\317$0\202+�\210\310\"\211\310\211\203^�@\320\321\322!\"\211!\204U�\323\324!\"\210A\211\2048�.\325\326\327	E#\207" [group dont-check nndraft-directory pathname nnmail-pathname-coding-system file-name-coding-system nndraft-possibly-change-group nnmail-group-pathname nil nnheader-re-read-dir mapcar #[(name) "\301\302\303\"!\207" [name string-to-number substring 1] 4] (error) directory-files "\\`#[0-9]+#\\'" t file-exists-p expand-file-name int-to-string rename-file nndraft-auto-save-file-name nnoo-parent-function nndraft nnmh-request-group dir file n --dolist-tail-- server] 8])
(nnoo-register-function 'nndraft-request-group)
(defalias 'nndraft-request-move-article #[(article group server accept-form &optional last move-is-internal) "\306!\210\307\310!\311\312\f#\2057�r\nq\210\313 \210\314
!\210\315!\316p!\210	)\2057�\317C\f\320$?\2057�	*\207" [group result buf article server nntp-server-buffer nndraft-possibly-change-group get-buffer-create " *nndraft move*" nil nndraft-request-article erase-buffer insert-buffer-substring eval kill-buffer nndraft-request-expire-articles force accept-form] 5])
(nnoo-register-function 'nndraft-request-move-article)
(defalias 'nndraft-request-expire-articles #[(articles group &optional server force) "\306!\210\307\310\311\312\313\f
F#\314\203s�\211A\242\211>\204�\315\316!!\317!\203=�!\210)\320\321\322\316!!*\314\211\203o�@\317!\203f�!\210A\211\204T�*\202�,\207" [group nnmh-allow-delete-final nnmail-expiry-target articles server force nndraft-possibly-change-group t delete nnoo-parent-function nndraft nnmh-request-expire-articles nil nndraft-auto-save-file-name nndraft-article-filename file-exists-p 1 0 find-backup-file-name res article auto nnmail-delete-file-function kept-old-versions kept-new-versions backup --dolist-tail--] 8])
(nnoo-register-function 'nndraft-request-expire-articles)
(defalias 'nndraft-request-accept-article #[(group &optional server last noinsert) "\305!\210\306\307\310\311\n\fF#)\207" [group gnus-verbose-backends server last noinsert nndraft-possibly-change-group nil nnoo-parent-function nndraft nnmh-request-accept-article] 7])
(nnoo-register-function 'nndraft-request-accept-article)
(defalias 'nndraft-request-replace-article #[(article group buffer) "\306!\210\307\235\203�	\202�\n\310\311\312\f
E#)\207" [group message-draft-coding-system mm-text-coding-system nnmail-file-coding-system article buffer nndraft-possibly-change-group ("drafts" "delayed") nnoo-parent-function nndraft nnmh-request-replace-article] 6])
(nnoo-register-function 'nndraft-request-replace-article)
(defalias 'nndraft-request-create-group #[(group &optional server args) "\302!\210\303	!\203�\304	!\205�\305\207\3061�\307	!\210\3050\207\210\310\207" [group nndraft-current-directory nndraft-possibly-change-group file-exists-p file-directory-p t (file-error) gnus-make-directory nil] 2])
(nnoo-register-function 'nndraft-request-create-group)
(defalias 'nndraft-possibly-change-group #[(group) "\205�	\232?\205�\304\305!\210\306\n\"\211\207" [group nndraft-current-group nndraft-directory nndraft-current-directory nndraft-open-server "" nnheader-concat] 3])
(defalias 'nndraft-article-filename #[(article &rest args) "\303\304\305!\306	!\n$\207" [nndraft-current-directory article args apply concat file-name-as-directory int-to-string] 5])
(defalias 'nndraft-auto-save-file-name #[(file) "\212\302\303!q\210\304 \305p!\210)\207" [file buffer-file-name get-buffer-create " *draft tmp*" make-auto-save-file-name kill-buffer] 3])
#@43 Return the list of messages in the group.
(defalias 'nndraft-articles #[nil "\301!\210\302\303\304\305\306\307\310$\"\311\"\207" [nndraft-current-directory gnus-make-directory sort mapcar string-to-number directory-files nil "\\`[0-9]+\\'" t <] 8 (#$ . 10369)])
(byte-code "\300\301\302\"\210\303\301!\207" [nnoo-import-1 nndraft ((nnmh nnmh-retrieve-headers nnmh-request-group nnmh-close-group nnmh-request-list)) provide] 3)

${this.title}

Code Editor : nndraft.elc