From: ueno <ueno>
Date: Sun, 20 Feb 2000 06:06:03 +0000 (+0000)
Subject: * mime-edit.el
X-Git-Tag: emiko-1_13_11~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ce599aeda0c2e9323f8bdb19a9be7c520765b736;p=elisp%2Fsemi.git

* mime-edit.el
(mime-edit-define-charset): Handle 'mime-charset-comment.
---

diff --git a/mime-edit.el b/mime-edit.el
index a8a38ff..94cc53f 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -524,7 +524,6 @@ If encoding is nil, it is determined from its contents."
   "A string formatted version of mime-transfer-level")
 (make-variable-buffer-local 'mime-transfer-level-string)
 
-
 ;;; @@ about content transfer encoding
 
 (defvar mime-content-transfer-encoding-priority-list
@@ -1400,7 +1399,11 @@ Optional argument ENCODING specifies an encoding method such as base64."
 	   (mime-create-tag
 	    (mime-edit-set-parameter
 	     (mime-edit-get-contype tag)
-	     "charset" (upcase (symbol-name charset)))
+	     "charset"
+	     (let ((comment (get charset 'mime-charset-comment)))
+	       (if comment
+		   (concat (upcase (symbol-name charset)) " (" comment ")")
+		 (upcase (symbol-name charset)))))
 	    (mime-edit-get-encoding tag)))
 	  ))))