Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
binhex.elc	8.56 KB	-rw-r--r--
blessmail.el	2.5 KB	-rw-r--r--
emacsbug.elc	15 KB	-rw-r--r--
feedmail.elc	98.21 KB	-rw-r--r--
flow-fill.elc	3.15 KB	-rw-r--r--
footnote.elc	26.54 KB	-rw-r--r--
hashcash.elc	10.83 KB	-rw-r--r--
ietf-drums.elc	8.65 KB	-rw-r--r--
mail-extr.elc	32.53 KB	-rw-r--r--
mail-hist.elc	13.44 KB	-rw-r--r--
mail-parse.elc	2.3 KB	-rw-r--r--
mail-prsvr.elc	1.08 KB	-rw-r--r--
mail-utils.elc	10.13 KB	-rw-r--r--
mailabbrev.elc	14.4 KB	-rw-r--r--
mailalias.elc	14.49 KB	-rw-r--r--
mailclient.elc	4.13 KB	-rw-r--r--
mailheader.elc	5.54 KB	-rw-r--r--
metamail.elc	4.21 KB	-rw-r--r--
mspools.elc	8.74 KB	-rw-r--r--
qp.elc	4.14 KB	-rw-r--r--
reporter.elc	9 KB	-rw-r--r--
rfc2045.elc	826 B	-rw-r--r--
rfc2047.elc	24.87 KB	-rw-r--r--
rfc2231.elc	6.35 KB	-rw-r--r--
rfc2368.elc	2.32 KB	-rw-r--r--
rfc822.elc	5.45 KB	-rw-r--r--
rmail-loaddefs.el	7.79 KB	-rw-r--r--
rmail-spam-filter.elc	12.71 KB	-rw-r--r--
rmail.elc	124.13 KB	-rw-r--r--
rmailedit.elc	9.82 KB	-rw-r--r--
rmailkwd.elc	4.98 KB	-rw-r--r--
rmailmm.elc	41.24 KB	-rw-r--r--
rmailmsc.elc	1.34 KB	-rw-r--r--
rmailout.elc	17.84 KB	-rw-r--r--
rmailsort.elc	6.17 KB	-rw-r--r--
rmailsum.elc	54.29 KB	-rw-r--r--
sendmail.elc	53.92 KB	-rw-r--r--
smtpmail.elc	25.46 KB	-rw-r--r--
supercite.elc	57.29 KB	-rw-r--r--
uce.elc	7.54 KB	-rw-r--r--
undigest.elc	7.81 KB	-rw-r--r--
unrmail.elc	5.25 KB	-rw-r--r--
uudecode.elc	5.26 KB	-rw-r--r--
yenc.elc	3.48 KB	-rw-r--r--

Code Editor : mspools.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 "\300\301\302\303\304\305\306\307&\210\310\311\302\312\313\314\304\301&\210\310\315\316\317\313\320\304\301&\210\310\321\322\323\313\314\304\301&\210\310\324\325\326\313\327\304\301&\210\310\330\331\332\313\333\304\301&\207" [custom-declare-group mspools nil "Show mail spools waiting to be read." :group mail :link (emacs-commentary-link :tag "Commentary" "mspools.el") custom-declare-variable mspools-update "Non-nil means update *spools* buffer after visiting any folder." :type boolean mspools-suffix "spool" "Extension used for spool files (not including full stop)." string mspools-using-vm (fboundp 'vm) "Non-nil if VM is used as mail reader, otherwise RMAIL is used." mspools-folder-directory (if (boundp 'vm-folder-directory) vm-folder-directory "~/MAIL/") "Directory where mail folders are kept.  Ensure it has a trailing /.\nDefaults to `vm-folder-directory' if bound else to ~/MAIL/." directory mspools-vm-system-mail (or (getenv "MAIL") (concat rmail-spool-directory (user-login-name))) "Spool file for main mailbox.  Only used by VM.\nThis needs to be set to your primary mail spool - mspools will not run\nwithout it.  By default this will be set to the environment variable\n$MAIL.  Otherwise it will use `rmail-spool-directory' to guess where\nyour primary spool is.  If this fails, set it to something like\n/usr/spool/mail/login-name." file] 8)
#@65 List of entries (SPOOL . SIZE) giving spool name and file size.
(defvar mspools-files nil (#$ . 1789))
#@33 Length of `mspools-files' list.
(defvar mspools-files-len nil (#$ . 1898))
#@43 Name of buffer for displaying spool info.
(defvar mspools-buffer "*spools*" (#$ . 1979))
#@33 Keymap for the *spools* buffer.
(defvar mspools-mode-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210)\207" [map make-sparse-keymap define-key "" mspools-visit-spool "
" " " "?" mspools-help "q" mspools-quit "n" next-line "p" previous-line "g" revert-buffer] 4) (#$ . 2074))
(byte-code "\203�\305\306!\210	\204�\307\n!\203�\310\n!\210\204�\f\305\207" [mspools-using-vm vm-init-file-loaded vm-init-file mspools-folder-directory vm-folder-directory require vm-vars file-readable-p load-file] 2)
#@53 Set value of `vm-spool-files'.  Only needed for VM.
(defalias 'mspools-set-vm-spool-files #[nil "\306!\204\n�\307\310!\210	\204�\307\311!\210\312\nEC\313\314\313\315\316	\317\320\321\f\"#\"\"\"\211\207" [mspools-vm-system-mail mspools-folder-directory vm-primary-inbox vm-crash-box mspools-suffix vm-spool-files file-readable-p error "Need to set mspools-vm-system-mail to the spool for primary inbox" "Set `mspools-folder-directory' to where the spool files are" append mapcar #[(s) "	P	\303\nR	\304QE\207" [mspools-folder-directory s mspools-suffix "." ".crash"] 5 "make the appropriate entry for vm-spool-files"] file-name-sans-extension directory-files nil format "\\`[^.]+\\.%s"] 12 (#$ . 2701)])
#@108 Show the list of non-empty spool files in the *spools* buffer.
Buffer is not displayed if SHOW is non-nil.
(defalias 'mspools-show #[(&optional noshow) "\304!\203�q\210\305ed|\210\202�\306!\210\n\203�\307 \210\310 \210\204(�\311!\210\312\313 \207" [mspools-buffer buffer-read-only mspools-using-vm noshow get-buffer nil get-buffer-create mspools-set-vm-spool-files mspools-get-spool-files pop-to-buffer t mspools-mode] 2 (#$ . 3418) nil])
#@62 Visit the folder on the current line of the *spools* buffer.
(defalias 'mspools-visit-spool #[nil "\306\211\307 \211\204�\310\311!\202l�\312	!\n\204)�\212\306\313 \210\314c\210\315\316!\210\317)\310\320	#\210\321e\322 \"\f=\203A�\316\fZy\210\202D�\316y\210
\203R�\323P!\210\202c�\324P!\210	PC\325 \210\n\205l�\212\326\327!)*\207" [folder-name spool-name mspools-update buffer-read-only mspools-files-len mspools-using-vm nil mspools-get-spool-name message "No spool on current line" mspools-get-folder-from-spool beginning-of-line "*" delete-char 1 t "folder %s spool %s" count-lines point-at-eol vm-visit-folder rmail rmail-get-new-mail mspools-show-again noshow mspools-folder-directory rmail-inbox-list] 5 (#$ . 3873) nil])
#@58 Return folder name corresponding to the spool file NAME.
(defalias 'mspools-get-folder-from-spool #[(name) "\301!\207" [name file-name-sans-extension] 2 (#$ . 4624)])
#@51 Return the name of the spool on the current line.
(defalias 'mspools-get-spool-name #[nil "\302e\303 \"S\211	8@)\207" [line-num mspools-files count-lines point-at-eol] 4 (#$ . 4798)])
#@52 Re-run mspools-show to revert the *spools* buffer.
(defalias 'mspools-revert-buffer #[(ignore noconfirm) "\300\301!\207" [mspools-show noshow] 2 (#$ . 4989)])
#@71 Update the *spools* buffer.  This is useful if mspools-update is
nil.
(defalias 'mspools-show-again #[(&optional noshow) "\301!\207" [noshow mspools-show] 2 (#$ . 5154) nil])
#@31 Show help for `mspools-mode'.
(defalias 'mspools-help #[nil "\300\301!\207" [describe-function mspools-mode] 2 (#$ . 5336) nil])
#@27 Quit the *spools* buffer.
(defalias 'mspools-quit #[nil "\301!\207" [mspools-buffer kill-buffer] 2 (#$ . 5471) nil])
(defvar mspools-mode-hook nil)
(byte-code "\300\301N\204\f�\302\300\301\303#\210\304\305!\204�\302\305\306\307#\210\300\207" [mspools-mode-hook variable-documentation put "Hook run after entering MSpools mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp mspools-mode-map definition-name mspools-mode] 4)
(defvar mspools-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204�\303\301\302\304\305!#\210\306\307!\204�\303\307\310\311#\210\312\313 !\210\307\302N\204-�\303\307\302\304\314!#\210\306\300!\204B�\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P�\303\300\302\304\320!#\210\303\311\321\322#\207" [mspools-mode-abbrev-table mspools-mode-map variable-documentation put purecopy "Keymap for `mspools-mode'." boundp mspools-mode-syntax-table definition-name mspools-mode (lambda (#1=#:def-tmp-var) (defvar mspools-mode-syntax-table #1#)) make-syntax-table "Syntax table for `mspools-mode'." (lambda (#1#) (defvar mspools-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `mspools-mode'." derived-mode-parent special-mode] 5)
#@437 Major mode for output from mspools-show.
\<mspools-mode-map>Move point to one of the items in this buffer, then use
\[mspools-visit-spool] to go to the spool that the current line refers to.
\[revert-buffer] to regenerate the list of spools.
\{mspools-mode-map}

In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `mspools-mode-hook', as the final or penultimate step
during initialization.
(defalias 'mspools-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203�\314\311\313\310\313N#\210\315!\204'�\316\317 \"\210\320\f!\211\2036�
\321 =\203<�\322\f\323 \"\210)\324\325\"\204V�=\204V�\326\325C#\210\327!\210\330\f!\210\306\331!\210\332)\333\334!\207" [delay-mode-hooks major-mode mode-name mspools-mode-map mspools-mode-syntax-table parent make-local-variable t special-mode mspools-mode "MSpools" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table revert-buffer-function mspools-revert-buffer run-mode-hooks mspools-mode-hook mspools-mode-abbrev-table local-abbrev-table] 6 (#$ . 6752) nil])
#@67 Find the list of spool files and display them in *spools* buffer.
(defalias 'mspools-get-spool-files #[nil "\306\211\211\211\211\211\211\204�\307\310!\210\311\306\312\313\"#\314\315\"\316\306\"\211\211Gq\210\203d�\317@\211@
AA`\312\320\f#c\210`\321c\210\202=�\203l�\322\323!\210eb.\207" [any end beg len spool head nil error "Set `mspools-folder-directory' to where the spool files are" directory-files format "\\`[^.]+\\.%s\\'" mapcar mspools-size-folder delq t " %10d %s" "\n" delete-char -1 folders mspools-folder-directory mspools-suffix mspools-files mspools-files-len mspools-buffer] 8 (#$ . 7992)])
#@60 Return (SPOOL . SIZE ), if SIZE of spool file is non-zero.
(defalias 'mspools-size-folder #[(spool) "	P\304\305!\206
�\306!\3078\262\211\205$�\n\310V\205$�	\nB*\207" [mspools-folder-directory spool size file nil file-symlink-p file-attributes 7 0] 4 (#$ . 8652)])
(provide 'mspools)

${this.title}

Code Editor : mspools.elc