(mm-convert-shr-links): Override the shr local map, so that Gnus commands work.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 951b062..7789881 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-06-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * mm-decode.el (mm-convert-shr-links): Override the shr local map, so
+       that Gnus commands work.
+
        * shr.el (shr-render-td): Support horizontal alignment.
 
        * eww.el (eww-put-color): Removed.

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 5212518..971c26e 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1831,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)