Proposed patch to mm-view.el (was: Has `mm-inline-image-xemacs' changed recently?)

[Lloyd Zusman <ljz@asfast.com>]

Enclosed is a proposed patch to the `mm-inline-image-xemacs' function
in `mm-view.el'.  I'd like to know what you folks think of this
patch.

The reason for this patch is as follows:

If the point is at the end of the buffer at the moment that an inline
image is being inserted, the `(insert "\n")' in the
`mm-inline-image-xemacs' function cannot put the newline after the
glyph that is added by `make-annotation', and the newline ends up
being inserted before the glyph.

The reason for this is that `make-annotation' causes the glyph to not
take up any space within the logical buffer (in the XEmacs 21.4.3
documentation, see Info->Lispref->Annotation Basics).  Therefore,
there will be no way to insert any characters following the glyph if
it's been placed at the end of the buffer.

My change to `mm-inline-image-xemacs' inserts the "\n" and then moves
the point to the left of it, *before* `make-annotation' is called.
This ensures that the newline will always be positioned following the
glyph.  This, in turn, ensures that message parts that are to be
inserted after the inline image will actually be able to appear after
the glyph.

Here's my patch.  Comments?

Thank you very much.


*** mm-view.el.orig	Fri May 25 07:08:43 2001
--- mm-view.el	Fri May 25 07:09:37 2001
***************
*** 49,58 ****
       `(lambda () (remove-images ,b (1+ ,b))))))
  
  (defun mm-inline-image-xemacs (handle)
    (let ((b (point))
  	(annot (make-annotation (mm-get-image handle) nil 'text))
  	buffer-read-only)
-     (insert "\n")
      (mm-handle-set-undisplayer
       handle
       `(lambda ()
--- 49,59 ----
       `(lambda () (remove-images ,b (1+ ,b))))))
  
  (defun mm-inline-image-xemacs (handle)
+   (insert "\n")
+   (forward-char -1)
    (let ((b (point))
  	(annot (make-annotation (mm-get-image handle) nil 'text))
  	buffer-read-only)
      (mm-handle-set-undisplayer
       handle
       `(lambda ()


-- 
 Lloyd Zusman
 ljz@asfast.com