;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\324\312\313\325DD\326\316\317%\210\310\327\312\313\330DD\331\316\332%\210\310\333\312\313\334DD\335\316\336%\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 funcall function #[0 "\300\207" [nil] 1 #1=""] "Non-nil means update *spools* buffer after visiting any folder." :type boolean mspools-suffix #[0 "\300\207" ["spool"] 1 #1#] "Extension used for spool files (not including full stop)." string mspools-using-vm #[0 "\300\301!\207" [fboundp vm] 2 #1#] "Non-nil if VM is used as mail reader, otherwise RMAIL is used." mspools-folder-directory #[0 "\301\300!\203\207\302\207" [vm-folder-directory boundp "~/MAIL/"] 2 #1#] "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 #[0 "\301\302!\206\n\303 P\207" [rmail-spool-directory getenv "MAIL" user-login-name] 2 #1#] "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 (#$ . 1608))
#@33 Length of `mspools-files' list.
(defvar mspools-files-len nil (#$ . 1717))
#@43 Name of buffer for displaying spool info.
(defvar mspools-buffer "*spools*" (#$ . 1798))
#@33 Keymap for the *spools* buffer.
(defvar mspools-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\303#\210\301
\305\303#\210\301
\306\307#\210\301
\310\311#\210\207" [make-sparse-keymap define-key "" mspools-visit-spool "
" " " "n" next-line "p" previous-line] 5) (#$ . 1893))
(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 #[0 "\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 #[257 "
P\302	R\303QE\207" [mspools-folder-directory mspools-suffix "." ".crash"] 6 "make the appropriate entry for vm-spool-files\n\n(fn S)"] file-name-sans-extension directory-files nil format "\\`[^.]+\\.%s"] 12 (#$ . 2407)])
#@131 Show the list of non-empty spool files in the *spools* buffer.
Buffer is not displayed if SHOW is non-nil.

(fn &optional NOSHOW)
(defalias 'mspools-show #[256 "\303!\203q\210\304\305 \210\202\306!\210\n\203\307 \210\310 \210\211\204'\311!\210\312\313 \207" [mspools-buffer buffer-read-only mspools-using-vm get-buffer nil erase-buffer get-buffer-create mspools-set-vm-spool-files mspools-get-spool-files pop-to-buffer t mspools-mode] 3 (#$ . 3129) nil])
#@62 Visit the folder on the current line of the *spools* buffer.
(defalias 'mspools-visit-spool #[0 "\306 \307
\204\310\311!\207\312!\262
\204\"\212\313 \210\314\315c\210\316\317!\210*\310\320#\210\321e\322 \"\n=\2038\317\nZ\2029\317y\210\203H\323\fP!\210\202V\324\fP!\210\fPC\325 \210\205^\212\326 )\207" [mspools-update inhibit-read-only mspools-files-len mspools-using-vm mspools-folder-directory rmail-inbox-list mspools-get-spool-name nil message "No spool on current line" mspools-get-folder-from-spool beginning-of-line t "*" delete-char 1 "folder %s spool %s" count-lines point-at-eol vm-visit-folder rmail rmail-get-new-mail mspools-revert-buffer] 6 (#$ . 3603) nil])
#@69 Return folder name corresponding to the spool file NAME.

(fn NAME)
(defalias 'mspools-get-folder-from-spool #[257 "\300
!\207" [file-name-sans-extension] 3 (#$ . 4301)])
#@51 Return the name of the spool on the current line.
(defalias 'mspools-get-spool-name #[0 "\301e\302 \"S\2118@\207" [mspools-files count-lines point-at-eol] 3 (#$ . 4478)])
#@87 Re-run `mspools-show' to revert the *spools* buffer.

(fn &optional IGNORE NOCONFIRM)
(defalias 'mspools-revert-buffer #[512 "\300\301!\207" [mspools-show noshow] 4 (#$ . 4656)])
#@95 Update the *spools* buffer.
This is useful if `mspools-update' is nil.

(fn &optional NOSHOW)
(defalias 'mspools-show-again #[256 "\300
!\207" [mspools-show] 3 (#$ . 4841) nil])
(make-obsolete 'mspools-show-again 'revert-buffer "28.1")
#@31 Show help for `mspools-mode'.
(defalias 'mspools-help #[0 "\300\301!\207" [describe-function mspools-mode] 2 (#$ . 5083) nil])
(make-obsolete 'mspools-help 'describe-mode "28.1")
#@27 Quit the *spools* buffer.
(defalias 'mspools-quit #[0 "\301!\207" [mspools-buffer kill-buffer] 2 (#$ . 5268) nil])
(make-obsolete 'mspools-quit 'quit-window "28.1")
(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)
#@439 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 #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\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 mspools-mode-abbrev-table 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 local-abbrev-table] 5 (#$ . 6597) nil])
#@67 Find the list of spool files and display them in *spools* buffer.
(defalias 'mspools-get-spool-files #[0 "\204\305\306!\210\307\310\311\312	\"#\313\310\314\315\"\"\211\211Gr\fq\210\211\211\203=\211@\211\242
\243\311\316#c\210\317c\266
A\266\202\202!\210n\204F\320\321!\210eb)\207" [mspools-folder-directory mspools-suffix mspools-files mspools-files-len mspools-buffer error "Set `mspools-folder-directory' to where the spool files are" directory-files nil format "\\`[^.]+\\.%s\\'" delq mapcar mspools-size-folder " %10d %s" "\n" delete-char -1] 10 (#$ . 7831)])
#@72 Return (SPOOL . SIZE ), if SIZE of spool file is non-zero.

(fn SPOOL)
(defalias 'mspools-size-folder #[257 "
P\301\302!\206
\262\303!\304
8\262
\262
\211\205$\211\305V\205$
B\207" [mspools-folder-directory nil file-symlink-p file-attributes 7 0] 6 (#$ . 8414)])
(provide 'mspools)