tm 6.21

diff --git a/Makefile b/Makefile
index 2300a1a..708b270 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -1,5 +1,5 @@
 #
-# $Id: Makefile,v 6.6 1995/05/15 04:20:56 morioka Exp morioka $
+# $Id: Makefile,v 6.7 1995/05/16 12:26:22 morioka Exp morioka $
 #
 
 SHELL = /bin/csh
@@ -51,9 +51,11 @@ FILES        = tm/README.eng tm/rel-*.ol \
        tm/doc/Makefile tm/doc/*.pln tm/doc/*.ol tm/doc/*.tex tm/doc/*.texi \
        tm/gnus/Makefile tm/gnus/Makefile.bc tm/gnus/*.el \
        tm/mh-e/Makefile tm/mh-e/Makefile.bc tm/mh-e/*.el \
-       tl/README.eng tl/Makefile tl/Makefile.bc tl/*.el tl/doc/*.texi
+       tl/README.eng \
+       tl/Makefile tl/Makefile.bc tl/loadpath \
+       tl/*.el tl/doc/*.texi
 
-TARFILE = tm6.20.tar
+TARFILE = tm6.21.tar
 
 
 lpath-nemacs:

diff --git a/Makefile.bc b/Makefile.bc
index fdd7dea..d1729a7 100644 (file)
--- a/Makefile.bc
+++ b/Makefile.bc
@@ -1,5 +1,5 @@
 #
-# $Id: Makefile.bc,v 6.0 1995/05/15 04:13:07 morioka Exp $
+# $Id: Makefile.bc,v 6.1 1995/05/16 12:18:30 morioka Exp $
 #
 
 TM_EL  = signature.el \
@@ -13,7 +13,7 @@ ALL_EL        = $(TM_EL) tm-setup.el mime-setup.el
 TM_VM_EL  = tm-vm.el
 TM_VM_ELC = ${TM_VM_EL:el=elc}
 
-BATCH  = $(EMACS) -batch -q .lpath.el -f eval-current-buffer
+BATCH  = $(EMACS) -batch -q loadpath -f eval-current-buffer
 
 .SUFFIXES:     .el .elc
 

diff --git a/gnus/Makefile.bc b/gnus/Makefile.bc
index 7e6203e..c291860 100644 (file)
--- a/gnus/Makefile.bc
+++ b/gnus/Makefile.bc
@@ -1,10 +1,10 @@
 #
-# $Id: Makefile.bc,v 6.2 1995/05/15 03:40:20 morioka Exp $
+# $Id: Makefile.bc,v 6.3 1995/05/16 12:21:08 morioka Exp $
 #
 
 .SUFFIXES:     .el .elc
 
-BATCH  = $(EMACS) -batch ../.lpath.el -f eval-current-buffer .
+BATCH  = $(EMACS) -batch ../loadpath -f eval-current-buffer .
 
 .el.elc:
        $(BATCH) -l $(NNTP) -l $(GNUS) -f batch-byte-compile $<

diff --git a/make-lpath b/make-lpath
index b5c4ab0..41e2d32 100755 (executable)
--- a/make-lpath
+++ b/make-lpath
@@ -1,10 +1,10 @@
 #!/bin/csh -f
 
-echo "(setq load-path" > .lpath.el
-echo "      (nconc '("'"."' >> .lpath.el
-echo '               "'`pwd`'"' >> .lpath.el
-echo '               "'`(cd ../tl; pwd)`'"' >> .lpath.el
+echo "(setq load-path" > loadpath
+echo "      (nconc '("'"."' >> loadpath
+echo '               "'`pwd`'"' >> loadpath
+echo '               "'`(cd ../tl; pwd)`'"' >> loadpath
 foreach i ($argv)
-echo '               "'$i'"' >> .lpath.el
+echo '               "'$i'"' >> loadpath
 end
-echo '               ) load-path))' >> .lpath.el
+echo '               ) load-path))' >> loadpath

diff --git a/mh-e/Makefile.bc b/mh-e/Makefile.bc
index 4169381..00b9069 100644 (file)
--- a/mh-e/Makefile.bc
+++ b/mh-e/Makefile.bc
@@ -1,10 +1,10 @@
 #
-# $Id: Makefile.bc,v 6.0 1995/05/15 03:41:24 morioka Exp $
+# $Id: Makefile.bc,v 6.1 1995/05/16 12:20:36 morioka Exp $
 #
 
 .SUFFIXES:     .el .elc
 
-BATCH  = $(EMACS) -batch ../.lpath.el -f eval-current-buffer .
+BATCH  = $(EMACS) -batch ../loadpath -f eval-current-buffer .
 
 .el.elc:
        $(BATCH) -l mh-e -f batch-byte-compile $<

diff --git a/tm-view.el b/tm-view.el
index 4a3c02e..e8b3405 100644 (file)
--- a/tm-view.el
+++ b/tm-view.el
@@ -21,7 +21,7 @@
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 6.20 1995/05/10 19:18:05 morioka Exp $")
+  "$Id: tm-view.el,v 6.21 1995/05/16 12:07:52 morioka Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -436,8 +436,20 @@
              (cons ctype (reverse dest))
            )))))
 
-(defun mime/Content-Type ()
-  (let ((str (message/get-field-body "Content-Type")))
+(defun mime/Content-Type (&optional port)
+  "Read field-body of Content-Type field from PORT and parse it.
+PORT must be buffer or string. If PORT is omitted,
+it is regarded as current-buffer. [tm-view]"
+  (if (null port)
+      (setq port (current-buffer))
+    )
+  (let ((str (if (get-buffer port)
+                (save-window-excursion
+                  (switch-to-buffer port)
+                  (message/get-field-body "Content-Type")
+                  )
+              port)
+            ))
     (if str
        (mime::parse-field-body/Content-Type
         (message/unfolding-string str))

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)