From: morioka Date: Mon, 9 Mar 1998 19:01:15 +0000 (+0000) Subject: tm 7.66.1. X-Git-Tag: tm7_66_1~1 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5822d3f1822ae0e279af4b76d3990b201caa598b;p=elisp%2Ftm.git tm 7.66.1. --- diff --git a/ChangeLog b/ChangeLog index 6914e83..51c97ca 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,27 @@ +Mon Jun 3 14:52:18 1996 MORIOKA Tomohiko + + * 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 + + * tm-ew-e.el (mime/encode-field): must count a space after `:'. + +Mon Jun 3 14:31:15 1996 MORIOKA Tomohiko + + * tm-ew-e.el (tm-eword::encode-rwl): must insert a space between + encoded-words. + +Fri May 31 14:51:49 Jens Lautenbacher + + * tm-def.el (tm:browse-url): If argument `URL' is exist, funcall + `browse-url-browser-function' with `URL'. + + Tue May 28 03:40:11 1996 MORIOKA Tomohiko * tl: Version 7.29 was released. diff --git a/Makefile b/Makefile index d546dc1..2b6c15b 100644 --- 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 --- 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 --- a/mh-e/ChangeLog +++ b/mh-e/ChangeLog @@ -1,3 +1,15 @@ +Mon Jun 3 14:40:35 1996 MORIOKA Tomohiko + + * tm/mh-e: Version 7.63 was released. + +Thu May 30 00:18:04 1996 MORIOKA Tomohiko + + * 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'. + + Mon May 20 15:24:56 1996 MORIOKA Tomohiko * tm/mh-e: Version 7.62 was released. diff --git a/mh-e/Makefile b/mh-e/Makefile index f12f673..07e18e1 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.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 --- 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.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 --- a/tm-def.el +++ b/tm-def.el @@ -6,7 +6,7 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; 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 --- a/tm-ew-e.el +++ b/tm-ew-e.el @@ -6,7 +6,7 @@ ;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko -;;; 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