(mh-find-path): Set read-mail-command.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d972b1b38f..e500db042be 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-12-15  Gerd Moellmann  <gerd@gnu.org>
+
+        * mail/mh-utils.el (mh-find-path): Set read-mail-command.
+
 2000-12-15  Richard M. Stallman  <rms@caffeine.ai.mit.edu>
 
         * dabbrev.el (dabbrev--last-case-pattern): Value is now
diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el
index 5b89c54cf30..30605bb9311 100644
--- a/lisp/mail/mh-utils.el
+++ b/lisp/mail/mh-utils.el
@@ -1,7 +1,7 @@
 ;;; mh-utils.el --- mh-e code needed for both sending and reading
 ;; Time-stamp: <95/10/22 17:58:16 gildea>
 
-;; Copyright (C) 1993, 1995, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1995, 1997, 2000 Free Software Foundation, Inc.
 
 ;; This file is part of mh-e, part of GNU Emacs.
 
@@ -542,6 +542,7 @@ Non-nil third argument means not to show the message."
              (buffer-substring start (point)))))))
 
 (defvar mail-user-agent)
+(defvar read-mail-command)
 
 (defvar mh-find-path-run nil
   "Non-nil if `mh-find-path' has been run already.")
@@ -554,6 +555,7 @@ Non-nil third argument means not to show the message."
   (mh-find-progs)
   (unless mh-find-path-run
     (setq mh-find-path-run t)
+    (setq read-mail-command 'mh-rmail)
     (setq mail-user-agent 'mh-e-user-agent))
   (save-excursion
     ;; Be sure profile is fully expanded before switching buffers