From dd89a21fa911bda572dc502cdf9119ec412c2385 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 18:56:31 +0000 Subject: [PATCH] tm 7.66. --- ChangeLog | 21 +++++++++++++++++++++ Makefile | 4 ++-- inst-tm | 4 ++-- signature.el | 12 ++++++------ tm-edit.el | 11 ++++++++--- 5 files changed, 39 insertions(+), 13 deletions(-) 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 + + * 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 + + * 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 + + * tm-edit.el (mime-file-types): New file type ".patch" was added. + + Mon May 27 15:14:29 1996 MORIOKA Tomohiko * 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 ;;; 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 -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 -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 -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 ;;; Maintainer: MORIOKA Tomohiko ;;; 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) -- 1.7.10.4