(iso-8859-3 . quoted-printable)
(iso-8859-4 . quoted-printable)
(iso-8859-5 . base64)
- (koi8-r . base64)
+ (koi8-r . 8bit)
(iso-8859-7 . quoted-printable)
(iso-8859-8 . quoted-printable)
(iso-8859-9 . quoted-printable)
(gb2312 . base64)
(cn-gb . base64)
(cn-gb-2312 . base64)
- (euc-kr . base64)
+ (euc-kr . 8bit)
(iso-2022-jp-2 . base64)
(iso-2022-int-1 . base64))
"Alist of MIME charsets to encodings.
((eq charset mail-parse-charset)
bits)
(t
- (let ((encoding (or (cdr (assq charset mm-body-charset-encoding-alist ))
+ (let ((encoding (or (cdr (assq charset mm-body-charset-encoding-alist))
'quoted-printable)))
(mm-encode-content-transfer-encoding encoding "text/plain")
encoding)))))
)
((null encoding)
)
- ((eq encoding 'x-uuencode)
+ ((memq encoding '(x-uuencode x-uue))
(funcall mm-uu-decode-function (point-min) (point-max)))
((eq encoding 'x-binhex)
(funcall mm-uu-binhex-decode-function (point-min) (point-max)))
(message "Error while decoding: %s" error)
nil))
(when (and
- (memq encoding '(base64 x-uuencode x-binhex))
+ (memq encoding '(base64 x-uuencode x-uue x-binhex))
(equal type "text/plain"))
(goto-char (point-min))
(while (search-forward "\r\n" nil t)