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

not when this file is loaded.

1 files changed, 5 insertions, 7 deletions

diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el
index 03be2a5348f..32079d8bc76 100644
--- a/lisp/mail/mh-utils.el
+++ b/lisp/mail/mh-utils.el
@@ -537,6 +537,11 @@ Non-nil third argument means not to show the message."
   ;; 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 @@ Set the `mh-progs' and `mh-lib' variables to the file names."
 
 (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