X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime.el;h=908923fa48a0f7dc150e91edd849782ff2c7032a;hb=eb9783f46dee7de4c9372e428a26e384e04d60f8;hp=338aa9c2eee582e0c5a8841ce45698529717f325;hpb=f21480cf7b52fecadea6c52495d55fcc745fb5a7;p=elisp%2Fflim.git

diff --git a/mime.el b/mime.el
index 338aa9c..908923f 100644
--- a/mime.el
+++ b/mime.el
@@ -73,22 +73,13 @@ current-buffer, and return it.")
   (mime-find-function service
 		      (mime-entity-representation-type-internal entity)))
 
-(defsubst mime-entity-send (entity service &rest args)
+(defsubst mime-entity-send (entity message &rest args)
+  "Send MESSAGE to ENTITY with ARGS, and return the result."
   (apply (mime-find-function
-	  service (mime-entity-representation-type-internal entity))
+	  message (mime-entity-representation-type-internal entity))
 	 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
@@ -271,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))