X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-w3.el;fp=mime-w3.el;h=b5b0e41c704a1cd5ed3a9d87297c8bbf27ff94b2;hb=050d2808f8f2082b60a935c83d42b343432974b6;hp=7d0e3d8684fcb8a9ccfbfc9116bd16d3c86f8c10;hpb=1eb1f530d3aa5f1c1440911c4f1130e4b44d6cac;p=elisp%2Fsemi.git

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)
       )))