diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-14 19:40:06 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-14 19:40:06 +0200 |
commit | d2186160a9e978960c0f96bc3b4fc65b5affc170 (patch) | |
tree | 05de2f4ac0720fc5fcd1477058d8ff8900204760 | |
parent | e8021719022a7c7bbbc15fe986a39f16f32869ac (diff) | |
download | emacs-d2186160a9e978960c0f96bc3b4fc65b5affc170.tar.gz |
Make image-map commands work with inline image attachments in mm
* lisp/gnus/mm-view.el (mm-inline-image): Use insert-image so that
point movement is more pleasant and so that image-map commands
work (bug#56554).
-rw-r--r-- | lisp/gnus/mm-view.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index 57ce36a9442..5cfde5a8647 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -86,7 +86,7 @@ This is only used if `mm-inline-large-images' is set to (defun mm-inline-image (handle) (let ((b (point-marker)) (inhibit-read-only t)) - (put-image + (insert-image (let ((image (mm-get-image handle))) (if (eq mm-inline-large-images 'resize) (gnus-rescale-image @@ -98,7 +98,7 @@ This is only used if `mm-inline-large-images' is set to (truncate (* mm-inline-large-images-proportion (- (nth 3 edges) (nth 1 edges))))))) image)) - b) + " ") (insert "\n") (mm-handle-set-undisplayer handle |