From: morioka <morioka>
Date: Mon, 9 Mar 1998 18:56:31 +0000 (+0000)
Subject: tm 7.66.
X-Git-Tag: tm7_66~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dd89a21fa911bda572dc502cdf9119ec412c2385;p=elisp%2Ftm.git

tm 7.66.
---

diff --git a/ChangeLog b/ChangeLog
index bf4a4ec..6914e83 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,24 @@
+Tue May 28 03:40:11 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl: Version 7.29 was released.
+	* MEL: Version 5.0 was released.
+	* tm: Version 7.66 was released.
+
+	* inst-tm (install-elc): modifies about error message.
+
+Tue May 28 03:06:10 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tm-edit.el (mime-editor/insert-signature): Use variable
+ 	`signature-file-name' instead of `signature'.
+
+	* signature.el (insert-signature): local variable `signature' was
+ 	renamed to `signature-file-name'.
+
+Mon May 27 17:33:03 1996  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
+
+	* tm-edit.el (mime-file-types): New file type ".patch" was added.
+
+
 Mon May 27 15:14:29 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* tl: Version 7.27.1 was released.
diff --git a/Makefile b/Makefile
index 70e373d..d546dc1 100644
--- a/Makefile
+++ b/Makefile
@@ -44,11 +44,11 @@ MEL_FILES = mel/*.el mel/Makefile mel/mk-mel mel/mel-els mel/ChangeLog
 
 TL_FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els \
 		tl/*.el tl/*.bdf \
-		tl/doc/*.texi tl/ChangeLog
+		tl/doc/*.ol tl/doc/*.tex tl/ChangeLog
 
 FILES	= $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
 
-TARFILE = tm7.65.tar.gz
+TARFILE = tm7.66.tar.gz
 
 elc:
 	$(EMACS) $(FLAGS) -l inst-tm -f compile-tm
diff --git a/inst-tm b/inst-tm
index be32757..1f30392 100644
--- a/inst-tm
+++ b/inst-tm
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: inst-tm,v 7.2 1996/05/27 14:56:29 morioka Exp $
+;;; $Id: inst-tm,v 7.3 1996/05/28 03:40:11 morioka Exp $
 ;;;
 
 (load-file "TM-CFG")
@@ -135,7 +135,7 @@
 		    (delete-file src-file)
 		    (throw 'tag nil)
 		    )
-		(error (princ (nth 1 err)))
+		(error (princ (format "%s\n" (nth 1 err))))
 		)))
 	  (princ (format "%s -> %s\n" file dest))
 	  ))
diff --git a/signature.el b/signature.el
index d72825e..08220bc 100644
--- a/signature.el
+++ b/signature.el
@@ -14,7 +14,7 @@
 ;;; Maintainer: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Created: 1994/7/11
 ;;; Version:
-;;;	$Id: signature.el,v 7.9 1996/04/19 18:12:43 morioka Exp $
+;;;	$Id: signature.el,v 7.10 1996/05/28 03:04:34 morioka Exp $
 ;;; Keywords: mail, news, signature
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -131,7 +131,7 @@ It is inserted at the end of file if signature-insert-at-eof in non-nil,
 and otherwise at the current point.  A prefix argument enables user to
 specify a file named <signature-file-name>-DISTRIBUTION interactively."
   (interactive "P")
-  (let ((signature
+  (let ((signature-file-name
          (expand-file-name
           (or (and signature-use-bbdb
                    (signature/get-sigtype-from-bbdb arg))
@@ -139,8 +139,8 @@ specify a file named <signature-file-name>-DISTRIBUTION interactively."
                    (signature/get-sigtype-interactively))
               (signature/get-signature-file-name))
           )))
-    (or (file-readable-p signature)
-        (error "Cannot open signature file: %s" signature))
+    (or (file-readable-p signature-file-name)
+        (error "Cannot open signature file: %s" signature-file-name))
     (if signature-insert-at-eof
         (progn
           (goto-char (point-max))
@@ -148,9 +148,9 @@ specify a file named <signature-file-name>-DISTRIBUTION interactively."
           (or signature-delete-blank-lines-at-eof (delete-blank-lines))
           ))
     (run-hooks 'signature-insert-hook)
-    (insert-file-contents signature)
+    (insert-file-contents signature-file-name)
     (force-mode-line-update)
-    signature))
+    signature-file-name))
 
 
 ;;; @ end
diff --git a/tm-edit.el b/tm-edit.el
index 9f5df12..ab57b66 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.64 $
+;;; Version: $Revision: 7.66 $
 ;;; 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.64 1996/05/24 08:50:14 morioka Exp $")
+  "$Id: tm-edit.el,v 7.66 1996/05/28 03:06:10 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -334,6 +334,11 @@ To insert a signature file automatically, call the function
      nil
      "attachment"	(("filename" . file))
      )
+    ("\\.patch$"
+     "application" "octet-stream" (("type" . "patch"))
+     nil
+     "attachment"	(("filename" . file))
+     )
     ("\\.signature"
      "text"	"plain"		nil	nil)
     (".*"
@@ -952,7 +957,7 @@ Charset is automatically obtained from the `mime/lc-charset-alist'."
          (function
           (lambda ()
             (apply (function mime-editor/insert-tag)
-                   (mime-find-file-type signature))
+                   (mime-find-file-type signature-file-name))
             )))
         )
     (insert-signature arg)