tm 7.48.2.

diff --git a/ChangeLog b/ChangeLog
index e82969e..9c47e30 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+Mon Mar 25 13:30:53 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * 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  <shuhei@cmpt01.phys.tohoku.ac.jp>
+
+        * 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  <morioka@jaist.ac.jp>
 
        * signature.el: Function `signature-check-in-bbdb' was moved to
@@ -6,6 +17,7 @@ Thu Mar 14 13:39:57 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
        * tm-bbdb.el (signature-check-in-bbdb): New function; moved from
        signature.el.
 
+\f
 Wed Mar 13 18:05:28 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * tl: Version 7.18 was released.

diff --git a/Makefile b/Makefile
index 490b618..9a43214 100644 (file)
--- 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 (file)
--- 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 (file)
--- a/methods/ChangeLog
+++ b/methods/ChangeLog
@@ -1,3 +1,14 @@
+Sun Mar 24 22:40:03 1996  Rob Kooper <kooper@cc.gatech.edu>
+
+       * tm-au: patch for SGI machine (cf. [tm-en:392])
+
+Mon Mar 11 15:05:27 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * 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   <kooper@cc.gatech.edu>
 
        * 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 (executable)
--- 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 (executable)
--- 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 (file)
--- a/mh-e/ChangeLog
+++ b/mh-e/ChangeLog
@@ -1,3 +1,14 @@
+Mon Mar 25 11:57:17 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * 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])
+
+\f
 Wed Mar  6 02:03:17 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
 
        * tm/mh-e: Version 7.56 was released.

diff --git a/mh-e/Makefile b/mh-e/Makefile
index ba06d3a..b26948b 100644 (file)
--- 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 (file)
--- a/mh-e/tm-mh-e.el
+++ b/mh-e/tm-mh-e.el
@@ -9,7 +9,7 @@
 ;;; modified by YAMAOKA Katsumi <yamaoka@ga.sony.co.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; 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 (file)
--- a/mh-e/tmh-comp.el
+++ b/mh-e/tmh-comp.el
@@ -10,7 +10,7 @@
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; 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 (file)
--- a/tm-file.el
+++ b/tm-file.el
@@ -5,8 +5,9 @@
 ;;; Copyright (C) 1995 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; modified by KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
 ;;; 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