From: morioka <morioka>
Date: Tue, 29 Sep 1998 12:51:29 +0000 (+0000)
Subject: (mime-file-types): Use function `mime-encoding-list' instead of
X-Git-Tag: semi-1_8-for-flim-1_10-199811302358~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7477b5186dfdc87a4b87209c4af686360fd7c00e;p=elisp%2Fsemi.git

(mime-file-types): Use function `mime-encoding-list' instead of
variable `mime-file-encoding-method-alist' to define default value.
(mime-edit-insert-voice): Use function `mime-encoding-alist' instead
of variable `mime-file-encoding-method-alist' for completion.
(mime-prompt-for-encoding): Likewise.
---

diff --git a/mime-edit.el b/mime-edit.el
index 21607b2..684c0fd 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -401,9 +401,9 @@ If encoding is nil, it is determined from its contents."
 			,@(cons
 			   '(const nil)
 			   (mapcar (lambda (cell)
-				     (list 'item (car cell))
+				     (list 'item cell)
 				     )
-				   mime-file-encoding-method-alist)))
+				   (mime-encoding-list))))
 		;; disposition-type
 		(choice :tag "Disposition-Type"
 			(item nil)
@@ -1108,7 +1108,7 @@ If optional argument SUBTYPE is not nil, text/SUBTYPE tag is inserted."
   (let ((encoding
 	 (completing-read
 	  "What transfer encoding: "
-	  mime-file-encoding-method-alist nil t nil)))
+	  (mime-encoding-alist) nil t nil)))
     (mime-edit-insert-tag "audio" "basic" nil)
     (mime-edit-define-encoding encoding)
     (save-restriction
@@ -1537,7 +1537,7 @@ Parameter must be '(PROMPT CHOICE1 (CHOISE2 ...))."
 	    (setq encoding
 		  (completing-read
 		   "What transfer encoding: "
-		   mime-file-encoding-method-alist nil t default)
+		   (mime-encoding-alist) nil t default)
 		  )
 	    ""))
     encoding))