This commit was generated by cvs2svn to compensate for changes in r455,

[elisp/tm.git] / tm-parse.el

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")