diff options
author | Gerd Moellmann <[email protected]> | 2000-12-15 12:32:33 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 2000-12-15 12:32:33 +0000 |
commit | 0c28d8421ee7939fad2d8910f2b042b74b1bb001 (patch) | |
tree | 6cc77e563815997edef49de6c458d5aff1db50bb | |
parent | 8a1a77433361ff03d7c8b51151fc5cbc1ce7a452 (diff) |
(mh-find-path): Set read-mail-command.
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/mail/mh-utils.el | 4 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9d972b1b38..e500db042b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-12-15 Gerd Moellmann <[email protected]> + + * mail/mh-utils.el (mh-find-path): Set read-mail-command. + 2000-12-15 Richard M. Stallman <[email protected]> * dabbrev.el (dabbrev--last-case-pattern): Value is now diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el index 5b89c54cf3..30605bb931 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 |