tm 7.80.

[elisp/tm.git] / tm-ew-d.el

diff --git a/tm-ew-d.el b/tm-ew-d.el
index 271180b..7632fa0 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.21 $
+;; Version: $Revision: 7.24 $
 ;; Keywords: mail, news, MIME, RFC 1522, multilingual, encoded-word
 
 ;; This file is part of tm (Tools for MIME).
@@ -29,7 +29,7 @@
 ;;; Code:
 
 (require 'emu)
-(require 'tl-822)
+(require 'std11)
 (require 'mel)
 (require 'tm-def)
 
@@ -38,7 +38,7 @@
 ;;;
 
 (defconst tm-ew-d/RCS-ID
-  "$Id: tm-ew-d.el,v 7.21 1996/08/17 02:41:20 morioka Exp $")
+  "$Id: tm-ew-d.el,v 7.24 1996/08/28 15:42:49 morioka Exp $")
 (defconst mime/eword-decoder-version (get-version-string tm-ew-d/RCS-ID))
 
 
@@ -63,7 +63,7 @@
 ;;;
 
 (defun mime-eword/decode-string (str &optional unfolding)
-  (setq str (rfc822/unfolding-string str))
+  (setq str (std11-unfold-string str))
   (let ((dest "")(ew nil)
        beg end)
     (while (and (string-match mime/encoded-word-regexp str)
@@ -138,9 +138,9 @@ If MUST-UNFOLD is not nil, it unfolds encoded results. [tm-ew-d.el]"
 (defun mime/unfolding ()
   (goto-char (point-min))
   (let (field beg end)
-    (while (re-search-forward rfc822/field-top-regexp nil t)
-      (setq beg (match-beginning 0))
-      (setq end (rfc822/field-end))
+    (while (re-search-forward std11-field-head-regexp nil t)
+      (setq beg (match-beginning 0)
+           end (std11-field-end))
       (setq field (buffer-substring beg end))
       (if (string-match mime/encoded-word-regexp field)
          (save-restriction
@@ -190,7 +190,7 @@ If MUST-UNFOLD is not nil, it unfolds encoded results. [tm-ew-d.el]"
              (progn
                (setq dest (decode-coding-string dest cs))
                (if unfolding
-                   (rfc822/unfolding-string dest)
+                   (std11-unfold-string dest)
                  dest)
                ))))))