From: sokumura <sokumura>
Date: Thu, 29 Apr 1999 22:08:54 +0000 (+0000)
Subject: * mime-edit.el (mime-edit-use-long-mime-charset-comment):
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cb677dc15ae913085bda9e9c54a9b7183f52dcab;p=elisp%2Fsemi.git

* mime-edit.el (mime-edit-use-long-mime-charset-comment):
new variable for switch long comment mime-charset-comment
---

diff --git a/ChangeLog b/ChangeLog
index 8f816a2..07a33d0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-04-30 Shigeru OKUMURA <sokumura@jaist.ac.jp>
+	
+	* mime-edit.el (mime-edit-use-long-mime-charset-comment):
+	new variable for switch long comment mime-charset-comment
+
 1999-04-29  Shigeru OKUMURA <sokumura@jaist.ac.jp>
 
 	* mime-view.el (mime-dsiplay-application/x-postpet):
diff --git a/mime-edit.el b/mime-edit.el
index 9457189..0679340 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -502,9 +502,19 @@ 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")
+;;
+;; some MUA reject long comment
+;;
+
+(if (and (boundp 'mime-edit-use-long-mime-charset-comment)
+	 mime-edit-use-long-mime-charset-comment)
+    (progn
+      (put 'iso-2022-jp-2 'mime-charset-comment "RFC1554")
+      (put 'iso-2022-jp 'mime-charset-comment "RFC1468 with trivial bugfix")
+      )
+  )
 
+  
 ;;; @@ about content transfer encoding
 
 (defvar mime-content-transfer-encoding-priority-list