* 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 (file)
--- 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 (file)
--- 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