tm 7.71.

[elisp/tm.git] / tm-mh-e3.el

diff --git a/tm-mh-e3.el b/tm-mh-e3.el
index 0f88eba..a5b3d6d 100644 (file)
--- a/tm-mh-e3.el
+++ b/tm-mh-e3.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: tm-mh-e3.el,v 1.1 1994/07/10 20:03:10 morioka Exp morioka $
+;;; $Id: tm-mh-e3.el,v 1.2 1994/11/01 18:06:16 morioka Exp $
 ;;;
 ;;; This is a part of tm-mh-e.el which is a module for old mh-e
 ;;; to emulate mh-e 4.0.
@@ -20,17 +20,18 @@ The value of mh-show-mode-hook is called when a new message is displayed."
   (mh-set-mode-name "MH-Show")
   (run-hooks 'mh-show-mode-hook))
 
-(defun mh-display-msg (msg-num folder)
+(defun mh-display-msg (msg-num folder &optional show-buffer)
   ;; Display message NUMBER of FOLDER.
   ;; Sets the current buffer to the show buffer.
   (set-buffer folder)
+  (or show-buffer
+      (setq show-buffer mh-show-buffer))
   ;; Bind variables in folder buffer in case they are local
   (let ((formfile mhl-formfile)
        (clean-message-header mh-clean-message-header)
        (invisible-headers mh-invisible-headers)
        (visible-headers mh-visible-headers)
        (msg-filename (mh-msg-filename msg-num))
-       (show-buffer mh-show-buffer)
        (folder mh-current-folder))
     (if (not (file-exists-p msg-filename))
        (error "Message %d does not exist" msg-num))