changeset 34599:9266023b321c

(mh-find-path): Set read-mail-command.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 15 Dec 2000 12:32:04 +0000
parents afd90be3ed75
children b1fc8bfd0f73
files lisp/mail/mh-utils.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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