;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:43 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/mspools.el
;;; in Emacs version 24.3.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 (#$ . 1936))
#@33 Length of `mspools-files' list.
(defvar mspools-files-len nil (#$ . 2045))
#@43 Name of buffer for displaying spool info.
(defvar mspools-buffer "*spools*" (#$ . 2126))
#@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) (#$ . 2221))
(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 (#$ . 2848)])
#@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!\203q\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 (#$ . 3563) 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 (#$ . 4018) 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 (#$ . 4769)])
#@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 (#$ . 4943)])
#@52 Re-run mspools-show to revert the *spools* buffer.
(defalias 'mspools-revert-buffer #[(ignore noconfirm) "\300\301!\207" [mspools-show noshow] 2 (#$ . 5134)])
#@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 (#$ . 5299) nil])
#@31 Show help for `mspools-mode'.
(defalias 'mspools-help #[nil "\300\301!\207" [describe-function mspools-mode] 2 (#$ . 5481) nil])
#@27 Quit the *spools* buffer.
(defalias 'mspools-quit #[nil "\301!\207" [mspools-buffer kill-buffer] 2 (#$ . 5616) nil])
#@263 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}
(defalias 'mspools-mode #[nil "\304 \210\305\300!\210\306\307	!\210\310\311\312\313!\207" [revert-buffer-function mspools-mode-map major-mode mode-name kill-all-local-variables make-local-variable mspools-revert-buffer use-local-map mspools-mode "MSpools" run-mode-hooks mspools-mode-hook] 2 (#$ . 5741)])
#@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 (#$ . 6318)])
#@60 Return (SPOOL . SIZE ), if SIZE of spool file is non-zero.
(defalias 'mspools-size-folder #[(spool) "	P\304\305!\206
\306\307!8\211\205!\n\310V\205!	\nB*\207" [mspools-folder-directory spool size file nil file-symlink-p 7 file-attributes 0] 4 (#$ . 6974)])
(provide 'mspools)