From: morioka <morioka>
Date: Sat, 19 Sep 1998 17:52:37 +0000 (+0000)
Subject: Move `mm-arglist-to-arguments' to mime-def.el.
X-Git-Tag: chao-1_9-2-199811302358~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f5c87a904a6c9a0362f8f03a691fdb59979829bd;p=elisp%2Fflim.git

Move `mm-arglist-to-arguments' to mime-def.el.
---

diff --git a/mime.el b/mime.el
index 2d61fa7..bc38dae 100644
--- 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