* mime-def.el (mime-library-product): Fix typo.

[elisp/flim.git] / mime.el

diff --git a/mime.el b/mime.el
index 9200173..908923f 100644 (file)
--- 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