Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-mime.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 7e54bd776075
children 05472e90ae02
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
2575 (forward-char -1) 2575 (forward-char -1)
2576 (insert-buffer-substring object) 2576 (insert-buffer-substring object)
2577 (delete-char 1))) 2577 (delete-char 1)))
2578 ((stringp object) 2578 ((stringp object)
2579 (let ((overridding-file-coding-system 'no-conversion)) 2579 (let ((overridding-file-coding-system 'no-conversion))
2580 (insert-before-markers " ") 2580 (if (vm-xemacs-p)
2581 (forward-char -1) 2581 (insert-file-contents-literally object)
2582 (insert-file-contents-literally object) 2582 (insert-before-markers " ")
2583 (delete-char 1)))) 2583 (forward-char -1)
2584 (insert-file-contents-literally object)
2585 (goto-char (point-max))
2586 (delete-char -1)))))
2584 ;; gather information about the object from the extent. 2587 ;; gather information about the object from the extent.
2585 (if (setq already-mimed (vm-extent-property e 'vm-mime-encoded)) 2588 (if (setq already-mimed (vm-extent-property e 'vm-mime-encoded))
2586 (setq layout (vm-mime-parse-entity 2589 (setq layout (vm-mime-parse-entity
2587 nil (list "text/plain" "charset=us-ascii") 2590 nil (list "text/plain" "charset=us-ascii")
2588 "7bit") 2591 "7bit")