;;;
-;;; $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.
(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))