- mime/charset-type-list))
-
-(defvar mime/default-transfer-level 7
- "*A number of network transfer level. It should be 7 or 8.")
-
-(defvar mime/charset-default-encoding-alist
- (mime/make-charset-default-encoding-alist mime/default-transfer-level))
-
-(defun mime/text-toggle-transfer-level (&optional transfer-level)
- "Toggle transfer-level is 7bit or 8bit through.
-
-Optional TRANSFER-LEVEL is a number of transfer-level, 7 or 8."
- (interactive)
- (if (numberp transfer-level)
- (setq mime/default-transfer-level transfer-level)
- (if (< mime/default-transfer-level 8)
- (setq mime/default-transfer-level 8)
- (setq mime/default-transfer-level 7)
- ))
- (setq mime/charset-default-encoding-alist
- (mime/make-charset-default-encoding-alist
- mime/default-transfer-level))
- (message (format "Current transfer-level is %d bit"
- mime/default-transfer-level))
- )
-
-
-;;; @ coding-system
-;;;
-
-(defvar mime/default-coding-system *ctext*)