X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmm-decode.el;h=971c26e200a0e35030c3ef40207d3e4044c44b98;hb=d35146fa43e9e2d8d346073c3c0692162abf4759;hp=948b2a2fd1c7f87008d3caee7880a67f87586d48;hpb=e64fc4c264019ff9818b7a9a09678a4a34858228;p=gnus

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 948b2a2fd..971c26e20 100644
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1817,6 +1817,8 @@ If RECURSIVE, search recursively."
 	    (delete-region ,(point-min-marker)
 			   ,(point-max-marker))))))))
 
+(defvar shr-map)
+
 (defun mm-convert-shr-links ()
   (let ((start (point-min))
 	end)
@@ -1829,6 +1831,7 @@ If RECURSIVE, search recursively."
 	 :help-echo (get-text-property start 'help-echo)
 	 :keymap shr-map
 	 (get-text-property start 'shr-url))
+	(put-text-property start end 'local-map nil)
 	(setq start end)))))
 
 (defun mm-handle-filename (handle)