("application"
("octet-stream" ("type" "" "tar" "shar"))
("postscript")
+ ("vnd.ms-powerpoint")
("x-kiss" ("x-cnf")))
("image"
("gif")
"base64"
"attachment" (("filename" . file))
)
+ ("\\.ppt$" ; MS Power Point
+ "application" "vnd.ms-powerpoint" nil
+ "base64"
+ "attachment" (("filename" . file))
+ )
("\\.pln$"
"text" "plain" nil
(cn-big5 8 "base64")
(big5 8 "base64")
(shift_jis 8 "base64")
+ (tis-620 8 "base64")
(iso-2022-jp-2 7 "base64")
(iso-2022-int-1 7 "base64")
))
"A string formatted version of mime-transfer-level")
(make-variable-buffer-local 'mime-transfer-level-string)
+(defvar mime-edit-use-long-mime-charset-comment t
+ "*Use charset comment")
+
(put 'iso-2022-jp-2 'mime-charset-comment "RFC1554")
(put 'iso-2022-jp 'mime-charset-comment "RFC1468 with trivial bugfix")
(mime-edit-get-contype tag)
"charset"
(let ((comment (get charset 'mime-charset-comment)))
- (if comment
+ (if (and mime-edit-use-long-mime-charset-comment comment)
(concat (upcase (symbol-name charset)) " (" comment ")")
(upcase (symbol-name charset)))))
(mime-edit-get-encoding tag)))
(goto-char (point-min))
(while (re-search-forward regexp nil t)
(delete-region (match-beginning 0)
- (progn (forward-line 1) (point)))
- )))
+ (1+ (std11-field-end))))))
\f
;;;
encoding nil)
)))))))
(if (or encoded (not not-decode-text))
- (decode-mime-charset-region (point-min)(point-max)
- (or charset default-mime-charset))
- )
+ (progn
+ (save-excursion
+ (goto-char (point-min))
+ (while (re-search-forward "\r\n" nil t)
+ (replace-match "\n")
+ ))
+ (decode-mime-charset-region (point-min)(point-max)
+ (or charset default-mime-charset))
+ ))
(let ((he (if (re-search-forward "^$" nil t)
(match-end 0)
(point-min)