From 050d2808f8f2082b60a935c83d42b343432974b6 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Mon, 8 Jun 1998 15:27:55 +0000
Subject: [PATCH] (mime-put-keymap-region): New macro.
 (mime-preview-text/html): Use macro
 `mime-put-keymap-region'.

---
 mime-w3.el |    9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/mime-w3.el b/mime-w3.el
index 7d0e3d8..b5b0e41 100644
--- a/mime-w3.el
+++ b/mime-w3.el
@@ -27,6 +27,14 @@
 (require 'w3)
 (require 'mime-text)
 
+(defmacro mime-put-keymap-region (start end keymap)
+  `(put-text-property ,start ,end
+		      ',(if (featurep 'xemacs)
+			    'keymap
+			  'local-map)
+		      ,keymap)
+  )
+
 (defun mime-preview-text/html (entity situation)
   (save-restriction
     (narrow-to-region (point-max)(point-max))
@@ -34,6 +42,7 @@
     (let ((beg (point-min)))
       (remove-text-properties beg (point-max) '(face nil))
       (w3-region beg (point-max))
+      (mime-put-keymap-region beg (point-max) w3-mode-map)
       )))
 
 
-- 
1.7.10.4