;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:50 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/mspools.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`mspools.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'mspools nil "Show mail spools waiting to be read." :group 'mail :link '(emacs-commentary-link :tag "Commentary" "mspools.el")) #@66 *Non-nil means update *spools* buffer after visiting any folder. (custom-declare-variable 'mspools-update 'nil '(#$ . -771) :type 'boolean :group 'mspools) #@60 *Extension used for spool files (not including full stop). (custom-declare-variable 'mspools-suffix '"spool" '(#$ . -933) :type 'string :group 'mspools) #@65 *Non-nil if VM is used as mail reader, otherwise RMAIL is used. (custom-declare-variable 'mspools-using-vm '(fboundp 'vm) '(#$ . -1092) :type 'boolean :group 'mspools) #@130 *Directory where mail folders are kept. Ensure it has a trailing /. Defaults to `vm-folder-directory' if bound else to ~/MAIL/. (custom-declare-variable 'mspools-folder-directory '(if (boundp 'vm-folder-directory) vm-folder-directory "~/MAIL/") '(#$ . -1267) :type 'directory :group 'mspools) #@350 *Spool file for main mailbox. Only used by VM. This needs to be set to your primary mail spool - mspools will not run without it. By default this will be set to the environment variable $MAIL. Otherwise it will use `rmail-spool-directory' to guess where your primary spool is. If this fails, set it to something like /usr/spool/mail/login-name. (custom-declare-variable 'mspools-vm-system-mail '(or (getenv "MAIL") (concat rmail-spool-directory (user-login-name))) '(#$ . -1568) :type 'file :group 'mspools) #@65 List of entries (SPOOL . SIZE) giving spool name and file size. (defvar mspools-files nil (#$ . 2086)) #@33 Length of `mspools-files' list. (defvar mspools-files-len nil (#$ . 2195)) #@43 Name of buffer for displaying spool info. (defvar mspools-buffer "*spools*" (#$ . 2276)) #@33 Keymap for the *spools* buffer. (defvar mspools-mode-map nil (#$ . 2371)) (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 (#$ . 2676)]) #@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 (#$ . 3391) 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!\202r\312 !\n\204)\212\306\313 \210\314c\210\315\316!\210\317)\310\320 #\210\321e\212\306\210`)\"\f=\203F\322\316\fZ!\210\202J\322\316!\210 \203X\323P!\210\202i\324P!\210 PC\325 \210\n\205r\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 next-line vm-visit-folder rmail rmail-get-new-mail mspools-show-again noshow mspools-folder-directory rmail-inbox-list] 5 (#$ . 3846) 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 (#$ . 4612)]) #@51 Return the name of the spool on the current line. (defalias 'mspools-get-spool-name #[nil "\302e\212\303\210`)\"S\211 8@)\207" [line-num mspools-files count-lines nil] 4 (#$ . 4786)]) (byte-code "\2047\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\301\207" [mspools-mode-map make-sparse-keymap define-key "" mspools-visit-spool " " " " "?" mspools-help "q" mspools-quit "n" next-line "p" previous-line "g" revert-buffer] 4) #@52 Re-run mspools-show to revert the *spools* buffer. (defalias 'mspools-revert-buffer #[(ignore noconfirm) "\300\301!\207" [mspools-show noshow] 2 (#$ . 5326)]) #@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 (#$ . 5491) nil]) #@31 Show help for `mspools-mode'. (defalias 'mspools-help #[nil "\300\301!\207" [describe-function mspools-mode] 2 (#$ . 5673) nil]) #@27 Quit the *spools* buffer. (defalias 'mspools-quit #[nil "\301!\207" [mspools-buffer kill-buffer] 2 (#$ . 5808) nil]) #@263 Major mode for output from mspools-show. \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\211\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"] 2 (#$ . 5933)]) #@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 (#$ . 6472)]) #@60 Return (SPOOL . SIZE ) iff 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 (#$ . 7128)]) (provide 'mspools)