# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 933512128 0
# Node ID 1fa062857a8d5935ec69ef8291c29791ba684298
# Parent  784d7bc2a991ac1ce9de0e0ab5152c8fb458c0a1
(mh-find-path-run): New variable.
(mh-find-path): Test and set that.
Set mail-user-agent only the first time this function is run.
(mail-user-agent): Defvar deleted.

diff -r 784d7bc2a991 -r 1fa062857a8d lisp/mail/mh-utils.el
--- a/lisp/mail/mh-utils.el	Sun Aug 01 12:17:46 1999 +0000
+++ b/lisp/mail/mh-utils.el	Sun Aug 01 12:55:28 1999 +0000
@@ -541,7 +541,10 @@
 	     (end-of-line)
 	     (buffer-substring start (point)))))))
 
-(defvar mail-user-agent 'mh-e-user-agent) ;from reporter.el 3.2
+(defvar mail-user-agent)
+
+(defvar mh-find-path-run nil
+  "Non-nil if `mh-find-path' has been run already.")
 
 (defun mh-find-path ()
   ;; Set mh-progs, mh-lib, and mh-libs-progs
@@ -549,6 +552,9 @@
   ;; From profile file, set mh-user-path, mh-draft-folder,
   ;; mh-unseen-seq, mh-previous-seq, mh-inbox.
   (mh-find-progs)
+  (unless mh-find-path-run
+    (setq mh-find-path-run t)
+    (setq mail-user-agent 'mh-e-user-agent))
   (save-excursion
     ;; Be sure profile is fully expanded before switching buffers
     (let ((profile (expand-file-name (or (getenv "MH") "~/.mh_profile"))))
@@ -585,7 +591,6 @@
       (setq mh-previous-seq (mh-get-profile-field "Previous-Sequence:"))
       (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)))
   (and mh-auto-folder-collect
        (let ((mh-no-install t))		;only get folders if MH installed