Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
2576 (forward-char -1) 2576 (forward-char -1)
2577 (insert-buffer-substring object) 2577 (insert-buffer-substring object)
2578 (delete-char 1))) 2578 (delete-char 1)))
2579 ((stringp object) 2579 ((stringp object)
2580 (let ((coding-system-for-read 'no-conversion)) 2580 (let ((coding-system-for-read 'no-conversion))
2581 (insert-before-markers " ") 2581 (if (vm-xemacs-p)
2582 (forward-char -1) 2582 (insert-file-contents-literally object)
2583 (insert-file-contents-literally object) 2583 (insert-before-markers " ")
2584 (delete-char 1)))) 2584 (forward-char -1)
2585 (insert-file-contents-literally object)
2586 (goto-char (point-max))
2587 (delete-char -1)))))
2585 ;; gather information about the object from the extent. 2588 ;; gather information about the object from the extent.
2586 (if (setq already-mimed (vm-extent-property e 'vm-mime-encoded)) 2589 (if (setq already-mimed (vm-extent-property e 'vm-mime-encoded))
2587 (setq layout (vm-mime-parse-entity 2590 (setq layout (vm-mime-parse-entity
2588 nil (list "text/plain" "charset=us-ascii") 2591 nil (list "text/plain" "charset=us-ascii")
2589 "7bit") 2592 "7bit")