From a2795b1cb9351c53716eb2be8f7b67b991625140 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 28 Jun 1996 06:56:17 +0000 Subject: [PATCH] (mail-user-agent): Replaces mua-paradigm. (mh-find-path): Set mail-user-agent. --- lisp/mail/mh-utils.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 () -- 2.39.2