Mercurial > emacs

changeset 15531:84b8ad02c07c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-user-agent): Replaces mua-paradigm. (mh-find-path): Set mail-user-agent.
author Richard M. Stallman <rms@gnu.org>
date Fri, 28 Jun 1996 06:56:17 +0000
parents 77f3cbbd5d70
children 98148b219a27
files lisp/mail/mh-utils.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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 ()