From: morioka <morioka>
Date: Mon, 2 Mar 1998 14:46:44 +0000 (+0000)
Subject: tm 6.21
X-Git-Tag: tm6_21~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=76429e73b11fa30d585ffd90dc5f6cfbb427219d;p=elisp%2Ftm.git

tm 6.21
---

diff --git a/Makefile b/Makefile
index 2300a1a..708b270 100644
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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)