This commit was manufactured by cvs2svn to create branch 'doodle'.

[elisp/flim.git] / mime.el

diff --git a/mime.el b/mime.el
index 2d61fa7..908923f 100644 (file)
--- a/mime.el
+++ b/mime.el
@@ -80,16 +80,6 @@ current-buffer, and return it.")
         entity
         args))
 
-(defsubst mm-arglist-to-arguments (arglist)
-  (let (dest)
-    (while arglist
-      (let ((arg (car arglist)))
-       (or (memq arg '(&optional &rest))
-           (setq dest (cons arg dest)))
-       )
-      (setq arglist (cdr arglist)))
-    (nreverse dest)))
-
 (defmacro mm-define-generic (name args &optional doc)
   (if doc
       `(defun ,(intern (format "mime-%s" name)) ,args
@@ -272,8 +262,8 @@ If MESSAGE is specified, it is regarded as root entity."
                          (setq field (eword-decode-structured-field-body
                                       field-body)))
                         (t
-                         (setq field (eword-decode-unstructured-field-body
-                                      field-body))
+                         (setq field (ew-decode-field (symbol-name field-name)
+                                                      field-body))
                          ))
                   (mime-entity-set-parsed-header-internal
                    entity (put-alist field-name field header))