master d2186160a9: Make image-map commands work with inline image attachments in mm

[Lars Ingebrigtsen]

branch: master
commit d2186160a9e978960c0f96bc3b4fc65b5affc170
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/gnus/mm-view.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el
index 57ce36a944..5cfde5a864 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