diff options
Diffstat (limited to 'lisp/mail/mspools.el')
| -rw-r--r-- | lisp/mail/mspools.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el index f7527fa186..1f8651727e 100644 --- a/lisp/mail/mspools.el +++ b/lisp/mail/mspools.el @@ -196,7 +196,7 @@ your primary spool is. If this fails, set it to something like mspools-vm-system-mail ; your mailbox vm-crash-box ;crash for mailbox )) - + ;; Mailing list inboxes ;; must have VM already loaded to get vm-folder-directory. (mapcar '(lambda (s) @@ -206,8 +206,8 @@ your primary spool is. If this fails, set it to something like (concat mspools-folder-directory s "." mspools-suffix) (concat mspools-folder-directory s ".crash"))) ;; So I create a vm-spool-files entry for each of those mail drops - (mapcar 'file-name-sans-extension - (directory-files mspools-folder-directory nil + (mapcar 'file-name-sans-extension + (directory-files mspools-folder-directory nil (format "^[^.]+\\.%s" mspools-suffix))) )) )) @@ -225,14 +225,14 @@ Buffer is not displayed if SHOW is non-nil." (delete-region (point-min) (point-max))) ;; else buffer doesn't exist so create it (get-buffer-create mspools-buffer)) - + ;; generate the list of spool files (if mspools-using-vm (mspools-set-vm-spool-files)) - + (mspools-get-spool-files) (if (not noshow) (pop-to-buffer mspools-buffer)) - + (setq buffer-read-only t) (mspools-mode) ) @@ -244,9 +244,9 @@ Buffer is not displayed if SHOW is non-nil." (setq spool-name (mspools-get-spool-name)) (if (null spool-name) (message "No spool on current line") - + (setq folder-name (mspools-get-folder-from-spool spool-name)) - + ;; put in a little "*" to indicate spool file has been read. (if (not mspools-update) (save-excursion @@ -266,7 +266,7 @@ Buffer is not displayed if SHOW is non-nil." (next-line (- 1 mspools-files-len)) ;back to top of list ;; else just on to next line (next-line 1)) - + ;; Choose whether to use VM or RMAIL for reading folder. (if mspools-using-vm (vm-visit-folder (concat mspools-folder-directory folder-name)) @@ -275,8 +275,8 @@ Buffer is not displayed if SHOW is non-nil." (setq rmail-inbox-list (list (concat mspools-folder-directory spool-name))) (rmail-get-new-mail)) - - + + (if mspools-update ;; generate new list of spools. (save-excursion @@ -313,7 +313,7 @@ Buffer is not displayed if SHOW is non-nil." (if mspools-mode-map () (setq mspools-mode-map (make-sparse-keymap)) - + (define-key mspools-mode-map "\C-c\C-c" 'mspools-visit-spool) (define-key mspools-mode-map "\C-m" 'mspools-visit-spool) (define-key mspools-mode-map " " 'mspools-visit-spool) @@ -334,7 +334,7 @@ Buffer is not displayed if SHOW is non-nil." nil." (interactive) (mspools-show noshow)) - + (defun mspools-help () "Show help for `mspools-mode'." (interactive) |