# HG changeset patch # User Dave Love # Date 1034785541 0 # Node ID 44095c04616200ed6ebbe5cc924aff54ea57b80f # Parent 0d3de0f3bef6f8378e05bcb44d133eab0e733f14 (mm-encode-body): Doc fix. diff -r 0d3de0f3bef6 -r 44095c046162 lisp/gnus/mm-bodies.el --- a/lisp/gnus/mm-bodies.el Wed Oct 16 16:24:19 2002 +0000 +++ b/lisp/gnus/mm-bodies.el Wed Oct 16 16:25:41 2002 +0000 @@ -56,8 +56,8 @@ (defun mm-encode-body () "Encode a body. Should be called narrowed to the body that is to be encoded. -If there is more than one non-ASCII Mule charset, then list of found -Mule charsets are returned. +If there is more than one non-ASCII Mule charset, then the list of found +Mule charsets is returned. If successful, the MIME charset is returned. If no encoding was done, nil is returned." (if (not (mm-multibyte-p)) @@ -178,7 +178,7 @@ The characters in CHARSET should then be decoded." (if (stringp charset) (setq charset (intern (downcase charset)))) - (if (or (not charset) + (if (or (not charset) (eq 'gnus-all mail-parse-ignored-charsets) (memq 'gnus-all mail-parse-ignored-charsets) (memq charset mail-parse-ignored-charsets)) @@ -191,7 +191,7 @@ (if (and (not coding-system) (listp mail-parse-ignored-charsets) (memq 'gnus-unknown mail-parse-ignored-charsets)) - (setq coding-system + (setq coding-system (mm-charset-to-coding-system mail-parse-charset))) (when (and charset coding-system ;; buffer-file-coding-system @@ -207,7 +207,7 @@ "Decode STRING with CHARSET." (when (stringp charset) (setq charset (intern (downcase charset)))) - (when (or (not charset) + (when (or (not charset) (eq 'gnus-all mail-parse-ignored-charsets) (memq 'gnus-all mail-parse-ignored-charsets) (memq charset mail-parse-ignored-charsets)) @@ -218,7 +218,7 @@ (if (and (not coding-system) (listp mail-parse-ignored-charsets) (memq 'gnus-unknown mail-parse-ignored-charsets)) - (setq coding-system + (setq coding-system (mm-charset-to-coding-system mail-parse-charset))) (when (and charset coding-system (mm-multibyte-p)