tm 7.85.

diff --git a/ChangeLog b/ChangeLog
index f1650ac..a53aeaa 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,34 @@
+Sun Sep 15 04:17:35 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * 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  <morioka@jaist.ac.jp>
+
+       * 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  <morioka@jaist.ac.jp>
+
+       * tm-ew-d.el (mime/decode-encoded-text): eliminate CR after
+       unfolded when `unfolding' is not nil.
+
+\f
 Sun Sep  8 18:18:02 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * MU: Version 0.31 was released.

diff --git a/Makefile b/Makefile
index fda2e65..eb23ec8 100644 (file)
--- 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 (file)
--- a/tm-edit.el
+++ b/tm-edit.el
@@ -6,7 +6,7 @@
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; 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 (file)
--- a/tm-ew-d.el
+++ b/tm-ew-d.el
@@ -6,7 +6,7 @@
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; 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 (file)
--- a/tm-parse.el
+++ b/tm-parse.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; 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 (file)
--- a/tm-play.el
+++ b/tm-play.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; 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 (file)
--- a/tm-view.el
+++ b/tm-view.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; 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)
       ""))