From: morioka <morioka>
Date: Tue, 10 Mar 1998 04:50:24 +0000 (+0000)
Subject: tm 7.84.
X-Git-Tag: tm7_84~1
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Ftm.git;a=commitdiff_plain;h=f0a284c80bae5a16a58fe2f6c542c4e4d3002969

tm 7.84.
---

diff --git a/ChangeLog b/ChangeLog
index 7f18038..f1650ac 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+Sun Sep  8 18:18:02 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* MU: Version 0.31 was released.
+	* tm: Version 7.84 was released.
+
+	* tm-edit.el (mime-editor/insert-file): Use function
+ 	`std11-wrap-as-quoted-string' instead of
+ 	`rfc822/wrap-as-quoted-string'.
+
+Sun Sep  8 17:46:57 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* TM-CFG: Must check return value of `get-latest-path'.
+
+
 Sat Sep  7 17:20:36 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* tl: Version 7.61.3 was released.
diff --git a/Makefile b/Makefile
index e6ccc17..fda2e65 100644
--- a/Makefile
+++ b/Makefile
@@ -1,8 +1,8 @@
 #
-# $Id: Makefile,v 7.29 1996/09/07 17:20:36 morioka Exp $
+# $Id: Makefile,v 7.29 1996/09/07 17:20:36 morioka Exp morioka $
 #
 
-VERSION = 7.83
+VERSION = 7.84
 
 SHELL	= /bin/sh
 MAKE	= make
diff --git a/TM-CFG b/TM-CFG
index c8197a1..71745fa 100644
--- a/TM-CFG
+++ b/TM-CFG
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: TM-CFG,v 7.22 1996/09/07 16:54:05 morioka Exp morioka $
+;;; $Id: TM-CFG,v 7.23 1996/09/08 17:46:57 morioka Exp morioka $
 ;;;
 
 (defvar default-load-path load-path)
@@ -41,7 +41,11 @@
 ;;;
 
 ;; Use latest version installed in load-path.
-(add-path (get-latest-path "vm" 'all-paths))
+
+(let ((path (get-latest-path "vm" 'all-paths)))
+  (if path
+      (add-path path)
+    ))
 
 ;; Or please specify path.
 ;; (add-path "vm-5.95beta" 'all-paths)
@@ -51,7 +55,11 @@
 ;;;
 
 ;; Use latest version installed in load-path.
-(add-path (get-latest-path "mailcrypt" 'all-paths))
+
+(let ((path (get-latest-path "mailcrypt" 'all-paths)))
+  (if path
+      (add-path path)
+    ))
 
 ;; Or please specify path.
 ;; (add-path "mailcrypt-3.4" 'all-paths)
@@ -60,7 +68,10 @@
 ;;; @@ Please specify BBDB path.
 ;;;
 
-(add-path (get-latest-path "bbdb" 'all-paths))
+(let ((path (get-latest-path "bbdb" 'all-paths)))
+  (if path
+      (add-path path)
+    ))
 
 ;; Or please specify path.
 ;; (add-path "bbdb-1.50" 'all-paths)
diff --git a/tm-edit.el b/tm-edit.el
index 3ff125c..d879307 100644
--- a/tm-edit.el
+++ b/tm-edit.el
@@ -6,7 +6,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.83 $
+;; Version: $Revision: 7.84 $
 ;; Keywords: mail, news, MIME, multimedia, multilingual
 
 ;; This file is part of tm (Tools for MIME).
@@ -121,7 +121,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: tm-edit.el,v 7.83 1996/09/07 17:09:09 morioka Exp $")
+  "$Id: tm-edit.el,v 7.84 1996/09/08 18:18:02 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -899,7 +899,7 @@ Charset is automatically obtained from the `mime/lc-charset-alist'."
 	    (setq attribute (car cell))
 	    (setq value (cdr cell))
 	    (if (eq value 'file)
-		(setq value (rfc822/wrap-as-quoted-string
+		(setq value (std11-wrap-as-quoted-string
 			     (file-name-nondirectory file)))
 	      )
 	    (setq parameters (concat parameters "; " attribute "=" value))
@@ -916,7 +916,7 @@ Charset is automatically obtained from the `mime/lc-charset-alist'."
 		  (setq attribute (car cell))
 		  (setq value (cdr cell))
 		  (if (eq value 'file)
-		      (setq value (rfc822/wrap-as-quoted-string
+		      (setq value (std11-wrap-as-quoted-string
 				   (file-name-nondirectory file)))
 		    )
 		  (setq parameters