bug: mime part moves

bug: mime part moves

[Shenghuo ZHU]

Congratulation! Muhuhultipart works, though it looks ugly when
composing. BTW, Lars, do you clean the garbage in draft directory when
you send it directly?

The bug I report is not about composition.

Try `2 b 2 b' in summary buffer (XEmacs 20.4). `RMS' moves.

Try `b b b b b b'. See what happens.

A patch is attached. But I am not sure whether the annotation is
deleted by `delete-region'.

-- 
Shenghuo

:- cut ----------------------------
--- ChangeLog	1998/11/14 06:28:25	1.1
+++ ChangeLog	1998/11/14 06:35:03
@@ -1,3 +1,8 @@
+Sat Nov 14 01:29:39 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* mm-view.el (mm-inline-image): Use mm-insert-inline.
+	* gnus-art.el (gnus-mm-display-part): Go to correct position.
+
 Sat Nov 14 05:47:57 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Pterodactyl Gnus v0.44 is released.

--- gnus-art.el	1998/11/14 05:26:03	1.1
+++ gnus-art.el	1998/11/14 06:26:34
@@ -2337,6 +2337,8 @@
 	    (unwind-protect
 		(progn
 		  (select-window (get-buffer-window (current-buffer) t))
+		  (goto-char point)
+		  (forward-line)
 		  (mm-display-part handle))
 	      (select-window window))))
       (goto-char point))))

--- mm-view.el	1998/11/14 06:11:39	1.1
+++ mm-view.el	1998/11/14 06:21:23
@@ -45,8 +45,7 @@
     (let ((annot (make-annotation image nil 'text)))
       (set-extent-property annot 'mm t)
       (set-extent-property annot 'duplicable t)
-      (mm-handle-set-undisplayer handle annot))
-    (insert " \n")))
+      (mm-insert-inline handle " \n"))))
 
 (defun mm-inline-text (handle)
   (let ((type (cadr (split-string (car (mm-handle-type handle)) "/")))