tm 7.84.

diff --git a/ChangeLog b/ChangeLog
index 7f18038..f1650ac 100644 (file)
--- 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'.
+
+\f
 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 (file)
--- 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 (file)
--- 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 (file)
--- 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