From e48735c103c7673fab4625093b4638b6a6c3194b Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 18:47:50 +0000 Subject: [PATCH] tm 7.64. --- ChangeLog | 20 ++++++++++++++++++++ Makefile | 2 +- TM-CFG | 2 +- tm-edit.el | 15 ++++++++------- tm-view.el | 8 ++++---- 5 files changed, 34 insertions(+), 13 deletions(-) diff --git a/ChangeLog b/ChangeLog index 04d32d2..efb06af 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,23 @@ +Thu May 23 01:34:26 1996 MORIOKA Tomohiko + + * tl: Version 7.27 was released. + * MEL: Version 4.7.1 was released. + * tm: Version 7.64 was released. + +Wed May 22 02:26:49 1996 MORIOKA Tomohiko + + * tm-view.el (mime-preview/insert-content-button): fixed. + + * tm-edit.el (mime-editor/yank-ignored-field-list): add "Replied"; + remove "Sender". + + (mime-editor/insert-binary-buffer, mime-editor/normalize-body): + Argument order of function `mime-encode-region' was changed. + + (mime-editor::edit-again): Argument order of function + `mime-decode-region' was changed. + + Mon May 20 16:24:30 1996 MORIOKA Tomohiko * tl: Version 7.26 was released. diff --git a/Makefile b/Makefile index 44a857b..140d88f 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.63.tar.gz +TARFILE = tm7.64.tar.gz elc: $(EMACS) $(FLAGS) -l inst-tm -f compile-tm diff --git a/TM-CFG b/TM-CFG index d6566ca..3593e94 100644 --- a/TM-CFG +++ b/TM-CFG @@ -48,7 +48,7 @@ (expand-file-name "../../.." exec-directory) (expand-file-name "../../../.." data-directory) )) ; install to shared directory (maybe "/usr/local") -;;(setq PREFIX "~/") ; install to you home directory +;;(setq PREFIX "~/") ; install to your home directory ;; Please specify tm package prefix [optional] (setq TM_PACKAGE_PREFIX "") diff --git a/tm-edit.el b/tm-edit.el index faab4ea..90c21fa 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.62 $ +;;; Version: $Revision: 7.63 $ ;;; 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.62 1996/05/19 16:16:42 morioka Exp $") + "$Id: tm-edit.el,v 7.63 1996/05/22 02:25:54 morioka Exp $") (defconst mime-editor/version (get-version-string mime-editor/RCS-ID)) @@ -368,7 +368,7 @@ If encoding is nil, it is determined from its contents.") ;;; (defvar mime-editor/yank-ignored-field-list - '("Received" "Sender" "Approved" "Path" "Status" "X-VM-.*" "X-UIDL") + '("Received" "Approved" "Path" "Replied" "Status" "X-VM-.*" "X-UIDL") "Delete these fields from original message when it is inserted as message/rfc822 part. Each elements are regexp of field-name. [tm-edit.el]") @@ -1080,7 +1080,8 @@ Optional argument ENCODING specifies an encoding method such as base64." (insert-buffer-substring buffer) ;; Encode binary message if necessary. (if encoding - (mime-encode-region encoding start (point-max)))) + (mime-encode-region start (point-max) encoding) + )) (if hide-p (progn (mime-flag-region (point-min) (1- (point-max)) ?\^M) @@ -1988,7 +1989,7 @@ Content-Transfer-Encoding: 7bit ) (mime-charset-encode-region beg (mime-editor/content-end) charset) - (mime-encode-region encoding beg (mime-editor/content-end)) + (mime-encode-region beg (mime-editor/content-end) encoding) (mime-editor/define-encoding encoding) )) (forward-line 1) @@ -2002,7 +2003,7 @@ Content-Transfer-Encoding: 7bit (end (mime-editor/content-end)) (body (buffer-substring beg end)) ) - (mime-encode-region encoding beg end) + (mime-encode-region beg end encoding) (mime-editor/define-encoding encoding)) (forward-line 1) ) @@ -2651,7 +2652,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" (if (search-forward "\n\n" nil t) (progn (mime-decode-region - encoding (match-end 0)(point-max)) + (match-end 0)(point-max) encoding) (setq encoded t encoding nil) ))))))) diff --git a/tm-view.el b/tm-view.el index cd3f386..b0f9996 100644 --- a/tm-view.el +++ b/tm-view.el @@ -8,7 +8,7 @@ ;;; modified by Steven L. Baur ;;; Maintainer: MORIOKA Tomohiko ;;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el) -;;; Version: $Revision: 7.63 $ +;;; Version: $Revision: 7.64 $ ;;; Keywords: mail, news, MIME, multimedia ;;; ;;; This file is part of tm (Tools for MIME). @@ -45,7 +45,7 @@ ;;; (defconst mime-viewer/RCS-ID - "$Id: tm-view.el,v 7.63 1996/05/20 14:56:33 morioka Exp $") + "$Id: tm-view.el,v 7.64 1996/05/22 02:26:49 morioka Exp $") (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) (defconst mime/viewer-version mime-viewer/version) @@ -215,8 +215,8 @@ Each elements are regexp of field-name. [tm-view.el]") (let ((server (assoc "server" params))) (setq access-type (cdr access-type)) (if server - (format "[%s %s ([%s] %s)]\n" num subj - access-type (cdr server)) + (insert (format "[%s %s ([%s] %s)]\n" num subj + access-type (cdr server))) (let ((site (assoc-value "site" params)) (dir (assoc-value "directory" params)) ) -- 1.7.10.4