martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make image-map commands work with inline image attachments in mm

Browse Source 
* 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).
This commit is contained in:
Lars Ingebrigtsen
2022-07-14 19:40:06 +02:00
parent e802171902
commit d2186160a9
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/mm-view.el
View File

@@ -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