From: Richard M. Stallman Date: Mon, 21 Jul 1997 20:30:49 +0000 (+0000) Subject: (mh-make-folder-list-background): X-Git-Tag: emacs-20.1~1045 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eaff57bb126defa4507588ae2a9463b380d62422;p=emacs.git (mh-make-folder-list-background): Don't call mh-find-path if we were called from there. (mh-find-path): Move mh-make-folder-list-background call to the end. --- diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el index 32079d8bc76..3ee71e412df 100644 --- a/lisp/mail/mh-utils.el +++ b/lisp/mail/mh-utils.el @@ -537,11 +537,6 @@ 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")))) @@ -579,7 +574,12 @@ Non-nil third argument means not to show the message." (if mh-previous-seq (setq mh-previous-seq (intern mh-previous-seq))) (setq mail-user-agent 'mh-e-user-agent) - (run-hooks 'mh-find-path-hook)))) + (run-hooks 'mh-find-path-hook))) + (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 (defun mh-file-command-p (file) "Return t if file FILE is the name of a executable regular file." @@ -764,7 +764,8 @@ Set the `mh-progs' and `mh-lib' variables to the file names." ;; Call mh-set-folder-list to wait for the result. (cond ((not mh-make-folder-list-process) - (mh-find-path) + (unless mh-inbox + (mh-find-path)) (let ((process-connection-type nil)) (setq mh-make-folder-list-process (start-process "folders" nil (expand-file-name "folders" mh-progs)