diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-28 06:56:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-28 06:56:17 +0000 |
| commit | e82beb64584f492722b523f7c6f3b8adfacd6365 (patch) | |
| tree | f0ba96f7f400ec8c81bc5cd80bd268ab68da215d | |
| parent | 3af3fce293194d2bf409f0d4417e2f118d74e30d (diff) | |
| download | emacs-e82beb64584f492722b523f7c6f3b8adfacd6365.tar.gz | |
(mail-user-agent): Replaces mua-paradigm.
(mh-find-path): Set mail-user-agent.
| -rw-r--r-- | lisp/mail/mh-utils.el | 6 |
1 files 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 () |