Commit 59fed028 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mh-find-path): Handle mh-auto-folder-collect here,

not when this file is loaded.
parent 1d29eec2
...@@ -537,6 +537,11 @@ Non-nil third argument means not to show the message." ...@@ -537,6 +537,11 @@ Non-nil third argument means not to show the message."
;; From profile file, set mh-user-path, mh-draft-folder, ;; From profile file, set mh-user-path, mh-draft-folder,
;; mh-unseen-seq, mh-previous-seq, mh-inbox. ;; mh-unseen-seq, mh-previous-seq, mh-inbox.
(mh-find-progs) (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 (save-excursion
;; Be sure profile is fully expanded before switching buffers ;; Be sure profile is fully expanded before switching buffers
(let ((profile (expand-file-name (or (getenv "MH") "~/.mh_profile")))) (let ((profile (expand-file-name (or (getenv "MH") "~/.mh_profile"))))
...@@ -971,11 +976,4 @@ Set the `mh-progs' and `mh-lib' variables to the file names." ...@@ -971,11 +976,4 @@ Set the `mh-progs' and `mh-lib' variables to the file names."
(provide 'mh-utils) (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 ;;; mh-utils.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment