From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 21 Jul 1997 04:59:04 +0000 (+0000)
Subject: (mh-find-path): Handle mh-auto-folder-collect here,
X-Git-Tag: emacs-20.1~1057
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59fed028fe15e8c4998ede9cc8e09d8c414f7e8f;p=emacs.git

(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 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