From: morioka <morioka>
Date: Wed, 10 Jun 1998 16:34:01 +0000 (+0000)
Subject: (mime-view-display-message): Add new optional argument
X-Git-Tag: remi-1_6_0~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3598e44b315bd43acde404723481f3b3a54ce7c1;p=elisp%2Fsemi.git

(mime-view-display-message): Add new optional argument
`default-keymap-or-function'.
(mime-view-mode): Modify for `mime-view-display-message'.
---

diff --git a/mime-view.el b/mime-view.el
index ae87bbb..b494a2e 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1047,7 +1047,8 @@ The compressed face will be piped to this command.")
 
 (defvar mime-view-redisplay nil)
 
-(defun mime-view-display-message (message &optional preview-buffer mother)
+(defun mime-view-display-message (message &optional preview-buffer
+					  mother default-keymap-or-function)
   (let ((win-conf (current-window-configuration))
 	(raw-buffer (mime-entity-buffer message)))
     (or preview-buffer
@@ -1069,6 +1070,7 @@ The compressed face will be piped to this command.")
 				'((entity-button . invisible)
 				  (header . visible)
 				  ))
+      (mime-view-define-keymap default-keymap-or-function)
       (set-buffer-modified-p nil)
       )
     (setq buffer-read-only t)
@@ -1113,8 +1115,8 @@ button-2	Move to point under the mouse cursor
 	       (setq mime-raw-message-info (mime-parse-message ctl encoding))
 	       ))))
     (prog1
-	(mime-view-display-message message obuf mother)
-      (mime-view-define-keymap default-keymap-or-function)
+	(mime-view-display-message message obuf mother
+				   default-keymap-or-function)
       (let ((point
 	     (next-single-property-change (point-min) 'mime-view-entity)))
 	(if point