From 0c28d8421ee7939fad2d8910f2b042b74b1bb001 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 15 Dec 2000 12:32:33 +0000 Subject: [PATCH] (mh-find-path): Set read-mail-command. --- lisp/ChangeLog | 4 ++++ lisp/mail/mh-utils.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * mail/mh-utils.el (mh-find-path): Set read-mail-command. + 2000-12-15 Richard M. Stallman * 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 -- 2.39.2