Mercurial > hg > xemacs-beta

diff lisp/vm/vm-mime.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children 7d55a9ba150c
line wrap: on
line diff
--- a/lisp/vm/vm-mime.el	Mon Aug 13 09:21:56 2007 +0200
+++ b/lisp/vm/vm-mime.el	Mon Aug 13 09:23:06 2007 +0200
@@ -2578,10 +2578,13 @@
 		   (delete-char 1)))
 		((stringp object)
 		 (let ((coding-system-for-read '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