# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835944977 0
# Node ID 84b8ad02c07c890e8cb5379e27288727e1df0a9d
# Parent  77f3cbbd5d70801b8416b40133e75bd3066b7005
(mail-user-agent): Replaces mua-paradigm.
(mh-find-path): Set mail-user-agent.

diff -r 77f3cbbd5d70 -r 84b8ad02c07c lisp/mail/mh-utils.el
--- a/lisp/mail/mh-utils.el	Fri Jun 28 06:51:32 1996 +0000
+++ b/lisp/mail/mh-utils.el	Fri Jun 28 06:56:17 1996 +0000
@@ -26,7 +26,7 @@
 
 ;;; Change Log:
 
-;; $Id: mh-utils.el,v 1.8 1996/01/14 07:34:30 erik Exp kwzh $
+;; $Id: mh-utils.el,v 1.9 1996/01/29 23:17:16 kwzh Exp rms $
 
 ;;; Code:
 
@@ -513,7 +513,7 @@
 	     (end-of-line)
 	     (buffer-substring start (point)))))))
 
-(defvar mua-paradigm "MH-E")		;from mua.el
+(defvar mail-user-agent 'mh-e-user-agent) ;from reporter.el 3.2
 
 (defun mh-find-path ()
   ;; Set mh-progs and mh-lib.
@@ -557,7 +557,7 @@
       (setq mh-previous-seq (mh-get-profile-field "Previous-Sequence:"))
       (if mh-previous-seq
 	  (setq mh-previous-seq (intern mh-previous-seq)))
-      (setq mua-paradigm "MH-E")
+      (setq mail-user-agent 'mh-e-user-agent)
       (run-hooks 'mh-find-path-hook))))
 
 (defun mh-find-progs ()