Mercurial > emacs
changeset 18901:b9b03935853a
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 21 Jul 1997 20:30:49 +0000 |
| parents | 23ee59ec294b |
| children | 7ce2d04d5561 |
| files | lisp/mail/mh-utils.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mh-utils.el Mon Jul 21 20:00:36 1997 +0000 +++ b/lisp/mail/mh-utils.el Mon Jul 21 20:30:49 1997 +0000 @@ -537,11 +537,6 @@ ;; 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 @@ (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 @@ ;; 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)