From 3598e44b315bd43acde404723481f3b3a54ce7c1 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 10 Jun 1998 16:34:01 +0000 Subject: [PATCH] (mime-view-display-message): Add new optional argument `default-keymap-or-function'. (mime-view-mode): Modify for `mime-view-display-message'. --- mime-view.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 1.7.10.4