tm 7.49.

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

diff --git a/tm-parse.el b/tm-parse.el
index 1401f17..6f27844 100644 (file)
--- a/tm-parse.el
+++ b/tm-parse.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-parse.el,v 7.1 1995/12/21 18:13:54 morioka Exp $
+;;;    $Id: tm-parse.el,v 7.3 1996/04/14 15:42:14 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -61,10 +61,10 @@
             ret dest)
        (setq str (substring str e))
        (while (setq ret (mime/parse-parameter str))
-         (setq dest (cons (car ret) dest))
-         (setq str (cdr ret))
+         (setq dest (cons (car ret) dest)
+               str (cdr ret))
          )
-       (cons ctype (reverse dest))
+       (cons ctype (nreverse dest))
        )))
 
 (defconst mime::dtype-regexp (concat "^" mime/disposition-type-regexp))
@@ -78,10 +78,10 @@
             ret dest)
        (setq str (substring str e))
        (while (setq ret (mime/parse-parameter str))
-         (setq dest (cons (car ret) dest))
-         (setq str (cdr ret))
+         (setq dest (cons (car ret) dest)
+               str (cdr ret))
          )
-       (cons ctype (reverse dest))
+       (cons ctype (nreverse dest))
        )))