From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 28 Jun 1996 06:56:17 +0000 (+0000)
Subject: (mail-user-agent): Replaces mua-paradigm.
X-Git-Tag: emacs-19.34~331
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2795b1cb9351c53716eb2be8f7b67b991625140;p=emacs.git

(mail-user-agent): Replaces mua-paradigm.
(mh-find-path): Set mail-user-agent.
---

diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el
index 1cba38253ac..d2505918c86 100644
--- a/lisp/mail/mh-utils.el
+++ b/lisp/mail/mh-utils.el
@@ -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 @@ Non-nil third argument means not to show the message."
 	     (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 @@ Non-nil third argument means not to show the message."
       (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 ()