From: akr <akr>
Date: Wed, 17 Feb 1999 18:31:59 +0000 (+0000)
Subject: * mime-edit.el (mime-edit-define-charset): Check `mime-charset-comment'
X-Git-Tag: akemi-1_13_1~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2bbf0d26d94999120108a35122959615d4a4d9cc;p=elisp%2Fsemi.git

* mime-edit.el (mime-edit-define-charset): Check `mime-charset-comment'
property for mime-charset to add comment.
---

diff --git a/ChangeLog b/ChangeLog
index 5ae940e..2051186 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-02-17  Tanaka Akira  <akr@jaist.ac.jp>
+
+	* mime-edit.el (mime-edit-define-charset): Check `mime-charset-comment'
+	property for mime-charset to add comment.
+
 1999-01-18  Tanaka Akira  <akr@jaist.ac.jp>
 
 	* mime-view.el (mime-display-text/x-vcard): Deal with bare LF as newline.
diff --git a/mime-edit.el b/mime-edit.el
index 89b4655..9f9f0b1 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -504,6 +504,8 @@ 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)
 
+(put 'iso-2022-jp-2 'mime-charset-comment "RFC1554")
+(put 'iso-2022-jp 'mime-charset-comment "RFC1468 with trivial bugfix")
 
 ;;; @@ about content transfer encoding
 
@@ -1370,7 +1372,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)))
 	  ))))