--- a/lisp/vm/vm-mime.el	Mon Aug 13 08:54:26 2007 +0200
+++ b/lisp/vm/vm-mime.el	Mon Aug 13 08:54:51 2007 +0200
@@ -2577,10 +2577,13 @@
 		   (delete-char 1)))
 		((stringp object)
 		 (let ((overridding-file-coding-system 'no-conversion))
-		   (insert-before-markers " ")
-		   (forward-char -1)
-		   (insert-file-contents-literally object)
-		   (delete-char 1))))
+		   (if (vm-xemacs-p)
+		       (insert-file-contents-literally object)
+		     (insert-before-markers " ")
+		     (forward-char -1)
+		     (insert-file-contents-literally object)
+		     (goto-char (point-max))
+		     (delete-char -1)))))
 	  ;; gather information about the object from the extent.
 	  (if (setq already-mimed (vm-extent-property e 'vm-mime-encoded))
 	      (setq layout (vm-mime-parse-entity