From 7477b5186dfdc87a4b87209c4af686360fd7c00e Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 29 Sep 1998 12:51:29 +0000 Subject: [PATCH] (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. --- mime-edit.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)) -- 1.7.10.4