Make links not shadow local commands

[gnus] / lisp / mm-decode.el

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 5212518..98be1c5 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1819,6 +1819,8 @@ If RECURSIVE, search recursively."
 
 (defvar shr-map)
 
+(autoload 'widget-convert-button "wid-edit")
+
 (defun mm-convert-shr-links ()
   (let ((start (point-min))
        end)
@@ -1831,6 +1833,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)