From: morioka <morioka>
Date: Mon, 9 Mar 1998 18:47:50 +0000 (+0000)
Subject: tm 7.64.
X-Git-Tag: tm7_64~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e48735c103c7673fab4625093b4638b6a6c3194b;p=elisp%2Ftm.git

tm 7.64.
---

diff --git a/ChangeLog b/ChangeLog
index 04d32d2..efb06af 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,23 @@
+Thu May 23 01:34:26 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl: Version 7.27 was released.
+	* MEL: Version 4.7.1 was released.
+	* tm: Version 7.64 was released.
+
+Wed May 22 02:26:49 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tm-view.el (mime-preview/insert-content-button): fixed.
+
+	* tm-edit.el (mime-editor/yank-ignored-field-list): add "Replied";
+ 	remove "Sender".
+
+	(mime-editor/insert-binary-buffer, mime-editor/normalize-body):
+ 	Argument order of function `mime-encode-region' was changed.
+
+	(mime-editor::edit-again): Argument order of function
+ 	`mime-decode-region' was changed.
+
+
 Mon May 20 16:24:30 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* tl: Version 7.26 was released.
diff --git a/Makefile b/Makefile
index 44a857b..140d88f 100644
--- a/Makefile
+++ b/Makefile
@@ -48,7 +48,7 @@ TL_FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els \
 
 FILES	= $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
 
-TARFILE = tm7.63.tar.gz
+TARFILE = tm7.64.tar.gz
 
 elc:
 	$(EMACS) $(FLAGS) -l inst-tm -f compile-tm
diff --git a/TM-CFG b/TM-CFG
index d6566ca..3593e94 100644
--- a/TM-CFG
+++ b/TM-CFG
@@ -48,7 +48,7 @@
 	  (expand-file-name "../../.." exec-directory)
 	(expand-file-name "../../../.." data-directory)
 	)) ; install to shared directory (maybe "/usr/local")
-;;(setq PREFIX "~/")		; install to you home directory
+;;(setq PREFIX "~/")	; install to your home directory
 
 ;; Please specify tm package prefix [optional]
 (setq TM_PACKAGE_PREFIX "")
diff --git a/tm-edit.el b/tm-edit.el
index faab4ea..90c21fa 100644
--- a/tm-edit.el
+++ b/tm-edit.el
@@ -8,7 +8,7 @@
 ;;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/08/21 renamed from mime.el
-;;; Version: $Revision: 7.62 $
+;;; Version: $Revision: 7.63 $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -122,7 +122,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: tm-edit.el,v 7.62 1996/05/19 16:16:42 morioka Exp $")
+  "$Id: tm-edit.el,v 7.63 1996/05/22 02:25:54 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -368,7 +368,7 @@ If encoding is nil, it is determined from its contents.")
 ;;;
 
 (defvar mime-editor/yank-ignored-field-list
-  '("Received" "Sender" "Approved" "Path" "Status" "X-VM-.*" "X-UIDL")
+  '("Received" "Approved" "Path" "Replied" "Status" "X-VM-.*" "X-UIDL")
   "Delete these fields from original message when it is inserted
 as message/rfc822 part.
 Each elements are regexp of field-name. [tm-edit.el]")
@@ -1080,7 +1080,8 @@ Optional argument ENCODING specifies an encoding method such as base64."
 	(insert-buffer-substring buffer)
 	;; Encode binary message if necessary.
 	(if encoding
-	    (mime-encode-region encoding start (point-max))))
+	    (mime-encode-region start (point-max) encoding)
+	  ))
       (if hide-p
 	  (progn
 	    (mime-flag-region (point-min) (1- (point-max)) ?\^M)
@@ -1988,7 +1989,7 @@ Content-Transfer-Encoding: 7bit
 		   )
 	      (mime-charset-encode-region beg (mime-editor/content-end)
 					  charset)
-	      (mime-encode-region encoding beg (mime-editor/content-end))
+	      (mime-encode-region beg (mime-editor/content-end) encoding)
 	      (mime-editor/define-encoding encoding)
 	      ))
 	(forward-line 1)
@@ -2002,7 +2003,7 @@ Content-Transfer-Encoding: 7bit
 	       (end (mime-editor/content-end))
 	       (body (buffer-substring beg end))
 	       )
-	  (mime-encode-region encoding beg end)
+	  (mime-encode-region beg end encoding)
 	  (mime-editor/define-encoding encoding))
 	(forward-line 1)
 	)
@@ -2651,7 +2652,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 			      (if (search-forward "\n\n" nil t)
 				  (progn
 				    (mime-decode-region
-				     encoding (match-end 0)(point-max))
+				     (match-end 0)(point-max) encoding)
 				    (setq encoded t
 					  encoding nil)
 				    )))))))
diff --git a/tm-view.el b/tm-view.el
index cd3f386..b0f9996 100644
--- a/tm-view.el
+++ b/tm-view.el
@@ -8,7 +8,7 @@
 ;;; modified by Steven L. Baur <steve@miranova.com>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;;; Version: $Revision: 7.63 $
+;;; Version: $Revision: 7.64 $
 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -45,7 +45,7 @@
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 7.63 1996/05/20 14:56:33 morioka Exp $")
+  "$Id: tm-view.el,v 7.64 1996/05/22 02:26:49 morioka Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -215,8 +215,8 @@ Each elements are regexp of field-name. [tm-view.el]")
 	     (let ((server (assoc "server" params)))
 	       (setq access-type (cdr access-type))
 	       (if server
-		   (format "[%s %s ([%s] %s)]\n" num subj
-			   access-type (cdr server))
+		   (insert (format "[%s %s ([%s] %s)]\n" num subj
+				   access-type (cdr server)))
 		 (let ((site (assoc-value "site" params))
 		       (dir (assoc-value "directory" params))
 		       )