From 2bbf0d26d94999120108a35122959615d4a4d9cc Mon Sep 17 00:00:00 2001 From: akr Date: Wed, 17 Feb 1999 18:31:59 +0000 Subject: [PATCH] * mime-edit.el (mime-edit-define-charset): Check `mime-charset-comment' property for mime-charset to add comment. --- ChangeLog | 5 +++++ mime-edit.el | 8 +++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 5ae940e..2051186 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-02-17 Tanaka Akira + + * mime-edit.el (mime-edit-define-charset): Check `mime-charset-comment' + property for mime-charset to add comment. + 1999-01-18 Tanaka Akira * 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))) )))) -- 1.7.10.4