Mercurial > emacs
changeset 18889:438ea21518f7
(mh-find-path): Handle mh-auto-folder-collect here,
not when this file is loaded.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 21 Jul 1997 04:59:04 +0000 |
| parents | 436555108230 |
| children | 825fe2874454 |
| files | lisp/mail/mh-utils.el |
| diffstat | 1 files changed, 5 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mh-utils.el Mon Jul 21 00:58:41 1997 +0000 +++ b/lisp/mail/mh-utils.el Mon Jul 21 04:59:04 1997 +0000 @@ -537,6 +537,11 @@ ;; From profile file, set mh-user-path, mh-draft-folder, ;; mh-unseen-seq, mh-previous-seq, mh-inbox. (mh-find-progs) + (and mh-auto-folder-collect + (let ((mh-no-install t)) ;only get folders if MH installed + (condition-case err + (mh-make-folder-list-background) + (file-error)))) ;so don't complain if not installed (save-excursion ;; Be sure profile is fully expanded before switching buffers (let ((profile (expand-file-name (or (getenv "MH") "~/.mh_profile")))) @@ -971,11 +976,4 @@ (provide 'mh-utils) -(and (not noninteractive) - mh-auto-folder-collect - (let ((mh-no-install t)) ;only get folders if MH installed - (condition-case err - (mh-make-folder-list-background) - (file-error)))) ;so don't complain if not installed - ;;; mh-utils.el ends here