# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 976883524 0
# Node ID 9266023b321cc9fa1b14bd0c4122051675ee1f96
# Parent  afd90be3ed755a3e32e9634013ae7f009b613a36
(mh-find-path): Set read-mail-command.

diff -r afd90be3ed75 -r 9266023b321c lisp/mail/mh-utils.el
--- a/lisp/mail/mh-utils.el	Fri Dec 15 12:06:34 2000 +0000
+++ b/lisp/mail/mh-utils.el	Fri Dec 15 12:32:04 2000 +0000
@@ -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 @@
 	     (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 @@
   (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