diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2016-07-14 02:19:24 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2016-07-14 02:19:24 +0000 |
| commit | 288ba2d406d6277720463f4057cb74534abcec96 (patch) | |
| tree | 628e42e0f1e5a0bc167e884253a0b11abba18b79 | |
| parent | d2533d72680f2c14730cf8699bb2cdd18eba4365 (diff) | |
* lisp/gnus/mm-decode.el (mm-convert-shr-links):
Use shr-image-map instead of shr-map (bug#23964).
| -rw-r--r-- | lisp/gnus/mm-decode.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index c653d73554..c503953728 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1836,7 +1836,6 @@ If RECURSIVE, search recursively." (delete-region ,(point-min-marker) ,(point-max-marker)))))))) -(defvar shr-map) (defvar shr-image-map) (autoload 'widget-convert-button "wid-edit") @@ -1852,7 +1851,7 @@ If RECURSIVE, search recursively." (widget-convert-button 'url-link start end :help-echo (get-text-property start 'help-echo) - :keymap (setq keymap (copy-keymap shr-map)) + :keymap (setq keymap (copy-keymap shr-image-map)) (get-text-property start 'shr-url)) ;; Remove keymap that `shr-urlify' adds. (put-text-property start end 'keymap nil) |