Current File : //usr/local/share/emacs/27.2/lisp/mail/mspools.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\n EC\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 \325 C#\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)
Mini Shell