(defun mm-decode-body (charset &optional encoding type)
"Decode the current article that has been encoded with ENCODING.
The characters in CHARSET should then be decoded."
(defun mm-decode-body (charset &optional encoding type)
"Decode the current article that has been encoded with ENCODING.
The characters in CHARSET should then be decoded."
;Article buffer is nil coding system
;in XEmacs
enable-multibyte-characters
(or (not (eq mule-charset 'ascii))
;Article buffer is nil coding system
;in XEmacs
enable-multibyte-characters
(or (not (eq mule-charset 'ascii))
(mm-decode-coding-region (point-min) (point-max) mule-charset))))))
(defun mm-decode-string (string charset)
"Decode STRING with CHARSET."
(mm-decode-coding-region (point-min) (point-max) mule-charset))))))
(defun mm-decode-string (string charset)
"Decode STRING with CHARSET."
(setq mule-charset (mm-charset-to-coding-system charset))
enable-multibyte-characters
(or (not (eq mule-charset 'ascii))
(setq mule-charset (mm-charset-to-coding-system charset))
enable-multibyte-characters
(or (not (eq mule-charset 'ascii))