From 04947254acc41d871e666080acaf7330d60d32e4 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 10 Mar 1998 04:54:54 +0000 Subject: [PATCH] tm 7.85. --- ChangeLog | 31 +++++++++++++++++++++++++++++++ Makefile | 2 +- tm-edit.el | 8 ++++---- tm-ew-d.el | 14 +++++++++++--- tm-parse.el | 8 ++++---- tm-play.el | 4 ++-- tm-view.el | 8 ++++---- 7 files changed, 57 insertions(+), 18 deletions(-) diff --git a/ChangeLog b/ChangeLog index f1650ac..a53aeaa 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,34 @@ +Sun Sep 15 04:17:35 1996 MORIOKA Tomohiko + + * tl: Version 7.61.4 was released. + * MU: Version 0.33 was released. + * tm: Version 7.85 was released. + + * tm-edit.el (mime-editor::edit-again, mime/edit-again): Use + function `std11-field-end' instead of `rfc822/field-end'. + +Sat Sep 14 08:56:05 1996 MORIOKA Tomohiko + + * tm-view.el: Use std11.el instead of tl-822.el. + + * tm-view.el (mime-article/get-subject): Use function + `std11-strip-quoted-string' instead of + `rfc822/strip-quoted-string'. + + * tm-play.el (mime-article/get-original-filename): Use function + `std11-strip-quoted-string' instead of + `rfc822/strip-quoted-string'. + + * tm-parse.el (mime/parse-parameter, mime/parse-message): Use + function `std11-strip-quoted-string' instead of + `rfc822/strip-quoted-string'; Use std11 instead of tl-822. + +Fri Sep 13 02:39:01 1996 MORIOKA Tomohiko + + * tm-ew-d.el (mime/decode-encoded-text): eliminate CR after + unfolded when `unfolding' is not nil. + + Sun Sep 8 18:18:02 1996 MORIOKA Tomohiko * MU: Version 0.31 was released. diff --git a/Makefile b/Makefile index fda2e65..eb23ec8 100644 --- a/Makefile +++ b/Makefile @@ -2,7 +2,7 @@ # $Id: Makefile,v 7.29 1996/09/07 17:20:36 morioka Exp morioka $ # -VERSION = 7.84 +VERSION = 7.85 SHELL = /bin/sh MAKE = make diff --git a/tm-edit.el b/tm-edit.el index d879307..73c9f49 100644 --- a/tm-edit.el +++ b/tm-edit.el @@ -6,7 +6,7 @@ ;; MORIOKA Tomohiko ;; Maintainer: MORIOKA Tomohiko ;; Created: 1994/08/21 renamed from mime.el -;; Version: $Revision: 7.84 $ +;; Version: $Revision: 7.85 $ ;; Keywords: mail, news, MIME, multimedia, multilingual ;; This file is part of tm (Tools for MIME). @@ -121,7 +121,7 @@ ;;; (defconst mime-editor/RCS-ID - "$Id: tm-edit.el,v 7.84 1996/09/08 18:18:02 morioka Exp $") + "$Id: tm-edit.el,v 7.85 1996/09/15 04:17:35 morioka Exp $") (defconst mime-editor/version (get-version-string mime-editor/RCS-ID)) @@ -2640,7 +2640,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" "Content-Transfer-Encoding:" nil t) (let ((beg (match-beginning 0)) (hbeg (match-end 0)) - (end (rfc822/field-end))) + (end (std11-field-end))) (setq encoding (eliminate-top-spaces (rfc822/unfolding-string @@ -2702,7 +2702,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" (goto-char (point-min)) (while (re-search-forward "^\\(Content-.*\\|Mime-Version\\):" nil t) - (delete-region (match-beginning 0) (1+ (rfc822/field-end))) + (delete-region (match-beginning 0) (1+ (std11-field-end))) )) (or no-separator (and (re-search-forward "^$") diff --git a/tm-ew-d.el b/tm-ew-d.el index 7632fa0..f7cfd87 100644 --- a/tm-ew-d.el +++ b/tm-ew-d.el @@ -6,7 +6,7 @@ ;; MORIOKA Tomohiko ;; Maintainer: MORIOKA Tomohiko ;; Created: 1993/6/3 (1995/10/3 obsolete tiny-mime.el) -;; Version: $Revision: 7.24 $ +;; Version: $Revision: 7.25 $ ;; Keywords: mail, news, MIME, RFC 1522, multilingual, encoded-word ;; This file is part of tm (Tools for MIME). @@ -38,7 +38,7 @@ ;;; (defconst tm-ew-d/RCS-ID - "$Id: tm-ew-d.el,v 7.24 1996/08/28 15:42:49 morioka Exp $") + "$Id: tm-ew-d.el,v 7.25 1996/09/13 02:39:01 morioka Exp $") (defconst mime/eword-decoder-version (get-version-string tm-ew-d/RCS-ID)) @@ -190,7 +190,15 @@ If MUST-UNFOLD is not nil, it unfolds encoded results. [tm-ew-d.el]" (progn (setq dest (decode-coding-string dest cs)) (if unfolding - (std11-unfold-string dest) + (mapconcat (function + (lambda (chr) + (if (eq chr ?\n) + "" + (char-to-string chr) + ) + )) + (std11-unfold-string dest) + "") dest) )))))) diff --git a/tm-parse.el b/tm-parse.el index 0503a97..01ae867 100644 --- a/tm-parse.el +++ b/tm-parse.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; Version: -;; $Id: tm-parse.el,v 7.11 1996/08/30 06:20:52 morioka Exp $ +;; $Id: tm-parse.el,v 7.12 1996/09/14 08:51:36 morioka Exp $ ;; Keywords: mail, news, MIME, multimedia ;; This file is part of tm (Tools for MIME). @@ -26,7 +26,7 @@ ;;; Code: -(require 'tl-822) +(require 'std11) (require 'tl-misc) (require 'tm-def) @@ -43,7 +43,7 @@ (let ((e (match-end 2))) (cons (cons (downcase (substring str (match-beginning 1) (match-end 1))) - (rfc822/strip-quoted-string + (std11-strip-quoted-string (substring str (match-beginning 2) e)) ) (substring str e) @@ -183,7 +183,7 @@ and return parsed it. [tm-parse.el]" ) (let ((boundary (assoc "boundary" params))) (cond (boundary - (setq boundary (rfc822/strip-quoted-string (cdr boundary))) + (setq boundary (std11-strip-quoted-string (cdr boundary))) (mime/parse-multipart boundary ctype params encoding rcnum) ) ((string-equal ctype "message/rfc822") diff --git a/tm-play.el b/tm-play.el index 7e28154..01eefef 100644 --- a/tm-play.el +++ b/tm-play.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/9/26 (separated from tm-view.el) -;; Version: $Id: tm-play.el,v 7.26 1996/08/30 16:42:15 morioka Exp $ +;; Version: $Id: tm-play.el,v 7.27 1996/09/14 08:53:38 morioka Exp $ ;; Keywords: mail, news, MIME, multimedia ;; This file is part of tm (Tools for MIME). @@ -232,7 +232,7 @@ (setq ret (assoc "name" param)) (setq ret (assoc "x-name" param)) ) - (rfc822/strip-quoted-string (cdr ret)) + (std11-strip-quoted-string (cdr ret)) ) (if (setq ret (std11-find-field-body '("Content-Description" diff --git a/tm-view.el b/tm-view.el index b66f13d..e8b817c 100644 --- a/tm-view.el +++ b/tm-view.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el) -;; Version: $Revision: 7.73 $ +;; Version: $Revision: 7.75 $ ;; Keywords: mail, news, MIME, multimedia ;; This file is part of tm (Tools for MIME). @@ -30,7 +30,7 @@ (require 'tl-list) (require 'tl-atype) (require 'tl-misc) -(require 'tl-822) +(require 'std11) (require 'mel) (require 'tm-ew-d) (require 'tm-def) @@ -42,7 +42,7 @@ ;;; (defconst mime-viewer/RCS-ID - "$Id: tm-view.el,v 7.73 1996/08/30 16:57:53 morioka Exp $") + "$Id: tm-view.el,v 7.75 1996/09/14 08:56:05 morioka Exp $") (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) (defconst mime/viewer-version mime-viewer/version) @@ -569,7 +569,7 @@ The compressed face will be piped to this command.") (setq ret (assoc "name" param)) (setq ret (assoc "x-name" param)) ) - (rfc822/strip-quoted-string (cdr ret)) + (std11-strip-quoted-string (cdr ret)) )) (mime-article/get-uu-filename param encoding) "")) -- 1.7.10.4