+ charset)))))))
+
+(defun mm-body-encoding (charset)
+ "Do Content-Transfer-Encoding and return the encoding of the current buffer."
+ (let ((bits (mm-body-7-or-8)))
+ (cond
+ ((eq bits '7bit)
+ bits)
+ ((eq charset mail-parse-charset)
+ bits)
+ (t
+ (let ((encoding (or (cdr (assq charset mm-body-charset-encoding-alist))
+ (mm-qp-or-base64))))
+ (mm-encode-content-transfer-encoding encoding "text/plain")
+ encoding)))))
+
+(defun mm-body-7-or-8 ()
+ "Say whether the body is 7bit or 8bit."