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

not when this file is loaded.

diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el
index 03be2a5348f9df47c0cdcd3427599fc3043cb470..32079d8bc76e0a04f32072e96634de4e882b18ce 100644 (file)
--- 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