From b4a987debe84058d9c8fb325edc547d99f595035 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 16:36:27 +0000 Subject: [PATCH] tm 7.48.2. --- ChangeLog | 12 ++++++++++++ Makefile | 2 +- gnus/s-path | 2 +- methods/ChangeLog | 11 +++++++++++ methods/tm-au | 22 ++++++++++++++-------- methods/tmdecode | 8 ++++++-- mh-e/ChangeLog | 11 +++++++++++ mh-e/Makefile | 2 +- mh-e/tm-mh-e.el | 7 +++++-- mh-e/tmh-comp.el | 18 ++++++++++++++++-- tm-file.el | 8 ++++++-- 11 files changed, 84 insertions(+), 19 deletions(-) diff --git a/ChangeLog b/ChangeLog index e82969e..9c47e30 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,14 @@ +Mon Mar 25 13:30:53 1996 MORIOKA Tomohiko + + * tl: Version 7.19 was released. + * tm: Version 7.48.2 was released. + * tm/mh-e: Version 7.57 was released. + +Wed Mar 20 13:00:06 1996 Shuhei KOBAYASHI + + * tm-file.el (mime-article/extract-file): Confirm before + overwriting an existing file. (cf. [tm-ja:1674]) + Thu Mar 14 13:39:57 1996 MORIOKA Tomohiko * signature.el: Function `signature-check-in-bbdb' was moved to @@ -6,6 +17,7 @@ Thu Mar 14 13:39:57 1996 MORIOKA Tomohiko * tm-bbdb.el (signature-check-in-bbdb): New function; moved from signature.el. + Wed Mar 13 18:05:28 1996 MORIOKA Tomohiko * tl: Version 7.18 was released. diff --git a/Makefile b/Makefile index 490b618..9a43214 100644 --- a/Makefile +++ b/Makefile @@ -45,7 +45,7 @@ TL_FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els tl/*.el \ FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES) -TARFILE = tm7.48.1.tar.gz +TARFILE = tm7.48.2.tar.gz elc: $(EMACS) $(FLAGS) -l inst-tm -f compile-tm diff --git a/gnus/s-path b/gnus/s-path index ad86e44..88f713f 100644 --- a/gnus/s-path +++ b/gnus/s-path @@ -9,7 +9,7 @@ ;; please edit ;; It is relative style. Added path is searched from load-path. -(add-path "sgnus-0.52/lisp/" 'all-paths) +(add-path "sgnus-0.57/lisp/" 'all-paths) ;; It is absolute style. ;; (add-path "/usr/local/share/emacs/site-lisp/sgnus/lisp/") diff --git a/methods/ChangeLog b/methods/ChangeLog index 0406800..140571b 100644 --- a/methods/ChangeLog +++ b/methods/ChangeLog @@ -1,3 +1,14 @@ +Sun Mar 24 22:40:03 1996 Rob Kooper + + * tm-au: patch for SGI machine (cf. [tm-en:392]) + +Mon Mar 11 15:05:27 1996 MORIOKA Tomohiko + + * tm-html: + When starting netscape to view a html message it would always start a + new netscape browser. Following patch to tm/methods/tm-html will + prevent this. (cf.[bug-tm-en:373]) + Mon Mar 10 23:07:42 1996 Rob Kooper * tm-html: When starting netscape to view a html message it would diff --git a/methods/tm-au b/methods/tm-au index 79ce71b..ae38d8e 100755 --- a/methods/tm-au +++ b/methods/tm-au @@ -1,6 +1,6 @@ #!/bin/sh - # -# $Id: tm-au,v 3.1 1995/12/18 11:34:57 morioka Exp $ +# $Id: tm-au,v 3.2 1996/03/25 12:35:55 morioka Exp $ # if [ "$TM_TMP_DIR" = "" ]; then @@ -9,26 +9,32 @@ if [ "$TM_TMP_DIR" = "" ]; then fi if [ "$5" = "" ]; then - filename="$TM_TMP_DIR/mime$$.au" + filename="$TM_TMP_DIR/mime$$.au" else - filename="$TM_TMP_DIR/$5" + filename="$TM_TMP_DIR/$5" fi case "$4" in "play") echo "$2; $3 ->" - if [ "$AUDIOSERVER" = "" ]; then - tmdecode $3 $1 /dev/audio - else + if [ "$AUDIOSERVER" = "" ]; then + if [ `uname` = "IRIX" ]; then + tmdecode $3 $1 $filename + sfplay $filename + trap 'rm -f $filename' 0 1 2 3 13 15 + else + tmdecode $3 $1 /dev/audio + fi + else tmdecode $3 $1 $filename autool -v 40 $filename trap 'rm -f $filename' 0 1 2 3 13 15 - fi + fi ;; "extract") echo "$2; $3 -> $filename" - echo "extract to $filename" + echo "extract to $filename" tmdecode $3 $1 $filename ;; esac diff --git a/methods/tmdecode b/methods/tmdecode index d720bfc..f98401b 100755 --- a/methods/tmdecode +++ b/methods/tmdecode @@ -1,6 +1,6 @@ #!/bin/sh - # -# $Id: tmdecode,v 3.0 1995/12/18 11:36:36 morioka Exp $ +# $Id: tmdecode,v 3.0 1995/12/18 11:36:36 morioka Exp morioka $ # trap 'rm -f $2' 0 1 2 3 13 15 @@ -19,7 +19,7 @@ case "$1" in eval "cat $2 $OUTPUT" ;; "base64") - #decode-b < $2 > $3 + #eval "decode-b < $2 $OUTPUT" eval "mmencode -u $2 $OUTPUT" ;; "quoted-printable") @@ -28,6 +28,10 @@ case "$1" in "x-uue"|"x-uuencode") (cd $TM_TMP_DIR ; uudecode $2) ;; +"x-gzip64") + #eval "decode-b < $2 | gzip -cd $OUTPUT" + eval "mmencode -u $2 | gzip -cd $OUTPUT" + ;; *) echo "unknown encoding" exit -1 diff --git a/mh-e/ChangeLog b/mh-e/ChangeLog index fdfeeb5..5fe6cd4 100644 --- a/mh-e/ChangeLog +++ b/mh-e/ChangeLog @@ -1,3 +1,14 @@ +Mon Mar 25 11:57:17 1996 MORIOKA Tomohiko + + * tm/mh-e: Version 7.57 was released. + + * tm-mh-e.el (mh-temp-buffer): declare for mh-e 4.1 or earlier. + (cf. [tm-ja:1672]) + + * tmh-comp.el (tm-mh-e::insert-letter): New function; for version + independent (cf. [tm-ja:1672]) + + Wed Mar 6 02:03:17 1996 Morioka Tomohiko * tm/mh-e: Version 7.56 was released. diff --git a/mh-e/Makefile b/mh-e/Makefile index ba06d3a..b26948b 100644 --- a/mh-e/Makefile +++ b/mh-e/Makefile @@ -24,7 +24,7 @@ TMDIR19 = $(HOME)/lib/emacs19/lisp FILES = tm/mh-e/*.el tm/mh-e/Makefile tm/mh-e/mk-tmh tm/mh-e/*.ol -TARFILE = tm-mh-e7.56.tar +TARFILE = tm-mh-e7.57.tar elc: diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el index e9114a3..cb56498 100644 --- a/mh-e/tm-mh-e.el +++ b/mh-e/tm-mh-e.el @@ -9,7 +9,7 @@ ;;; modified by YAMAOKA Katsumi ;;; Maintainer: MORIOKA Tomohiko ;;; Created: 1993/11/21 (obsolete mh-e-mime.el) -;;; Version: $Revision: 7.56 $ +;;; Version: $Revision: 7.57 $ ;;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual ;;; ;;; This file is part of tm (Tools for MIME). @@ -41,13 +41,16 @@ (or (fboundp 'mh-get-header-field) (defalias 'mh-get-header-field 'mh-get-field) ) +(or (boundp 'mh-temp-buffer) + (defconst mh-temp-buffer " *mh-temp*") + ) ;;; @ version ;;; (defconst tm-mh-e/RCS-ID - "$Id: tm-mh-e.el,v 7.56 1996/03/06 02:03:17 morioka Exp $") + "$Id: tm-mh-e.el,v 7.57 1996/03/25 11:57:17 morioka Exp $") (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID)) diff --git a/mh-e/tmh-comp.el b/mh-e/tmh-comp.el index 6a8ce6e..a02d538 100644 --- a/mh-e/tmh-comp.el +++ b/mh-e/tmh-comp.el @@ -10,7 +10,7 @@ ;;; Maintainer: MORIOKA Tomohiko ;;; Created: 1996/2/29 (separated from tm-mh-e.el) ;;; Version: -;;; $Id: tmh-comp.el,v 2.0 1996/02/29 15:11:19 morioka Exp $ +;;; $Id: tmh-comp.el,v 3.0 1996/03/25 11:56:31 morioka Exp $ ;;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual ;;; ;;; This file is part of tm (Tools for MIME). @@ -391,6 +391,20 @@ then prompt for the message sequence. See also documentation for mh-note-forw "Forwarded:" config))))) +(cond ((not (boundp 'mh-e-version)) + (defun tm-mh-e::insert-letter (folder number verbatim) + (mh-insert-letter verbatim folder number) + ) + ) + ((string-lessp mh-e-version "5") + (defun tm-mh-e::insert-letter (folder number verbatim) + (mh-insert-letter number folder verbatim) + ) + ) + (t + (defalias 'tm-mh-e::insert-letter 'mh-insert-letter) + )) + (defun tm-mh-e/insert-letter (verbatim) "Interface to mh-insert-letter." (interactive "P") @@ -402,7 +416,7 @@ then prompt for the message sequence. See also documentation for mh-sent-from-folder "+inbox") nil)) (number (tm-mh-e/prompt-for-message "Message number: " folder))) - (mh-insert-letter folder number verbatim))) + (tm-mh-e::insert-letter folder number verbatim))) (defun tm-mh-e/yank-cur-msg () "Interface to mh-yank-cur-msg." diff --git a/tm-file.el b/tm-file.el index ff565ca..f5cf4fa 100644 --- a/tm-file.el +++ b/tm-file.el @@ -5,8 +5,9 @@ ;;; Copyright (C) 1995 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko +;;; modified by KOBAYASHI Shuhei ;;; Version: -;;; $Id: tm-file.el,v 7.2 1995/12/21 18:08:22 morioka Exp $ +;;; $Id: tm-file.el,v 7.4 1996/03/25 12:48:13 morioka Exp $ ;;; Keywords: mail, news, MIME, multimedia ;;; ;;; This file is part of tm (Tools for MIME). @@ -38,7 +39,7 @@ )) (encoding (cdr (assq 'encoding cal))) (filename - (if name + (if (and name (not (string-equal name ""))) (expand-file-name name (call-interactively (function @@ -53,6 +54,9 @@ (the-buf (current-buffer)) (tmp-buf (generate-new-buffer (file-name-nondirectory filename))) ) + (if (file-exists-p filename) + (or (yes-or-no-p (format "File %s exists. Save anyway? " filename)) + (error ""))) (re-search-forward "\n\n") (append-to-buffer tmp-buf (match-end 0) end) (save-excursion -- 1.7.10.4