tm 7.66.1.

diff --git a/ChangeLog b/ChangeLog
index 6914e83..51c97ca 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,27 @@
+Mon Jun  3 14:52:18 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl: Version 7.29.1 was released.
+       * MEL: Version 5.2 was released.
+       * tm: Version 7.66.1 was released.
+       * tm/mh-e: Version 7.63 was released.
+
+       * doc/Makefile (world): fixed.
+
+Mon Jun  3 14:33:35 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tm-ew-e.el (mime/encode-field): must count a space after `:'.
+
+Mon Jun  3 14:31:15 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tm-ew-e.el (tm-eword::encode-rwl): must insert a space between
+       encoded-words.
+
+Fri May 31 14:51:49    Jens Lautenbacher <jtl@tkm.physik.uni-karlsruhe.de>
+
+       * tm-def.el (tm:browse-url): If argument `URL' is exist, funcall
+       `browse-url-browser-function' with `URL'.
+
+\f
 Tue May 28 03:40:11 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * tl: Version 7.29 was released.

diff --git a/Makefile b/Makefile
index d546dc1..2b6c15b 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -48,7 +48,7 @@ TL_FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els \
 
 FILES  = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
 
-TARFILE = tm7.66.tar.gz
+TARFILE = tm7.66.1.tar.gz
 
 elc:
        $(EMACS) $(FLAGS) -l inst-tm -f compile-tm

diff --git a/doc/Makefile b/doc/Makefile
index e7bf9e9..4a5c8b3 100644 (file)
--- a/doc/Makefile
+++ b/doc/Makefile
@@ -1,5 +1,5 @@
 #
-# $Id: Makefile,v 3.0 1996/04/19 13:39:16 morioka Exp morioka $
+# $Id: Makefile,v 3.1 1996/06/03 14:52:18 morioka Exp $
 #
 
 EMACS=mule
@@ -43,7 +43,7 @@ GOMI  = *.aux *.toc *.log \
 
 all:   world
 
-world: all-ja all-en
+world: ja en
 
 
 ja:    info-ja dvi-ja

diff --git a/mh-e/ChangeLog b/mh-e/ChangeLog
index 7a5a42d..c7716ea 100644 (file)
--- a/mh-e/ChangeLog
+++ b/mh-e/ChangeLog
@@ -1,3 +1,15 @@
+Mon Jun  3 14:40:35 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tm/mh-e: Version 7.63 was released.
+
+Thu May 30 00:18:04 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tm-mh-e.el: mh-e bundled in Emacs 19.31 does not have variable
+       `mh-e-version', so version check code was changed.
+
+       Does not back up original `mh-display-msg'.
+
+\f
 Mon May 20 15:24:56 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * tm/mh-e: Version 7.62 was released.

diff --git a/mh-e/Makefile b/mh-e/Makefile
index f12f673..07e18e1 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.62.tar
+TARFILE = tm-mh-e7.63.tar
 
 
 elc:

diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el
index fedc896..d0c4b25 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.62 $
+;;; Version: $Revision: 7.63 $
 ;;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -33,9 +33,9 @@
 (require 'tl-str)
 (require 'tl-misc)
 (require 'mh-e)
-(if (not (boundp 'mh-e-version))
+(or (featurep 'mh-utils)
     (require 'tm-mh-e3)
-  )
+    )
 (require 'tm-view)
 
 (or (fboundp 'mh-get-header-field)
@@ -50,7 +50,7 @@
 ;;;
 
 (defconst tm-mh-e/RCS-ID
-  "$Id: tm-mh-e.el,v 7.62 1996/05/20 15:24:56 morioka Exp $")
+  "$Id: tm-mh-e.el,v 7.63 1996/05/30 00:18:04 morioka Exp $")
 
 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
 
@@ -68,10 +68,10 @@
 ;;; @ functions
 ;;;
 
-(if (not (fboundp 'tm-mh-e/original-mh-display-msg))
-    (fset 'tm-mh-e/original-mh-display-msg
-         (symbol-function 'mh-display-msg))
-  )
+;; (if (not (fboundp 'tm-mh-e/original-mh-display-msg))
+;;     (fset 'tm-mh-e/original-mh-display-msg
+;;           (symbol-function 'mh-display-msg))
+;;   )
 
 (defun mh-display-msg (msg-num folder &optional show-buffer mode)
   (or mode

diff --git a/tm-def.el b/tm-def.el
index 32a815d..70265ac 100644 (file)
--- a/tm-def.el
+++ b/tm-def.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-def.el,v 7.44 1996/05/27 14:51:15 morioka Exp $
+;;;    $Id: tm-def.el,v 7.45 1996/05/31 17:52:07 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, definition
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -304,7 +304,9 @@
 
 (defun tm:browse-url (&optional url)
   (if (fboundp browse-url-browser-function)
-      (call-interactively browse-url-browser-function)
+      (if url 
+        (funcall browse-url-browser-function url)
+      (call-interactively browse-url-browser-function))
     (if (fboundp tm:mother-button-dispatcher)
        (call-interactively tm:mother-button-dispatcher)
       )

diff --git a/tm-ew-e.el b/tm-ew-e.el
index f500554..e51b5c9 100644 (file)
--- a/tm-ew-e.el
+++ b/tm-ew-e.el
@@ -6,7 +6,7 @@
 ;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version: $Revision: 7.18 $
+;;; Version: $Revision: 7.20 $
 ;;; Keywords: mail, news, MIME, RFC 1522, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -36,7 +36,7 @@
 ;;;
 
 (defconst tm-ew-e/RCS-ID
-  "$Id: tm-ew-e.el,v 7.18 1996/05/09 18:08:47 morioka Exp $")
+  "$Id: tm-ew-e.el,v 7.20 1996/06/03 14:33:35 morioka Exp $")
 (defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID))
 
 
@@ -317,8 +317,14 @@
     ))
 
 (defun tm-eword::encode-rwl (column rwl &optional mode)
-  (let (ret dest ps special str)
+  (let (ret dest ps special str ew-f pew-f)
     (while rwl
+      (setq ew-f (nth 2 (car rwl)))
+      (if (and pew-f ew-f)
+         (setq rwl (cons '(" ") rwl)
+               pew-f nil)
+       (setq pew-f ew-f)
+       )
       (setq ret (tm-eword::encode-string-1 column rwl mode))
       (setq str (car ret))
       (if (eq (elt str 0) ?\n)
@@ -483,7 +489,7 @@
                                         "bcc" "resent-bcc" "dcc")
                                       )
                               (car (tm-eword::encode-address-list
-                                    (+ (length field-name) 1) field-body))
+                                    (+ (length field-name) 2) field-body))
                               )
                              (t
                               (catch 'tag