This commit was manufactured by cvs2svn to create tag 'tm6_58'.

[elisp/tm.git] / tm-vm.el

diff --git a/tm-vm.el b/tm-vm.el
index 00c4b41..9649c1d 100644 (file)
--- a/tm-vm.el
+++ b/tm-vm.el
@@ -1,6 +1,6 @@
 ;;;
 ;;; tm-vm.el: tm-MUA for VM
-;;; This version is tested under VM-5.72 with tm-6.19.0
+;;; This version is tested under VM-5.76 with tm-6.20
 ;;;
 ;;; Written  by MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp>
 ;;; Modified by SHIONO <jun@p5.nm.fujitsu.co.jp>
@@ -15,7 +15,7 @@
 (require 'vm)
 
 (defconst tm-vm/RCS-ID
-  "$Id: tm-vm.el,v 6.0 1995/05/10 18:44:02 morioka Exp $")
+  "$Id: tm-vm.el,v 6.1 1995/05/16 12:33:21 morioka Exp $")
 (defconst tm-vm/version (get-version-string tm-vm/RCS-ID))
 
 (define-key vm-mode-map "Z" 'tm-vm/view-message)
@@ -74,7 +74,8 @@ This function is called by `mime-viewer/quit' command via
          (narrow-to-region (vm-start-of mp) (point-max)))
       (select-window (vm-get-buffer-window (current-buffer)))
       (mime/viewer-mode nil
-                       (mime::parse-field-body/Content-Type (or ct ""))
+                       (mime::parse-field-body/Content-Type
+                        (message/unfolding-string (or ct "")))
                        cte))))
 
 (defun tm-vm/decode-message-header (&optional count)