# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869461144 0
# Node ID 438ea21518f78b07012eb160cee05cf94d3be0cf
# Parent  436555108230db6620bd335788908da23dfc85b3
(mh-find-path): Handle mh-auto-folder-collect here,
not when this file is loaded.

diff -r 436555108230 -r 438ea21518f7 lisp/mail/mh-utils.el
--- 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