(mm-encode-body): Doc fix.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index bd3728ec9d33740742166e6a6d81034036aa97fc..78f35a703c1640a94974ba8069527e87972227fd 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2002-10-16  Dave Love  <fx@gnu.org>
+
+       * mm-bodies.el (mm-encode-body): Doc fix.
+
+       * qp.el (quoted-printable-encode-region): Fix non-Emacs 22 case.
+

 2002-10-09  Dave Love  <fx@gnu.org>
 
        * qp.el (quoted-printable-encode-region): Fix non-multibyte search
 2002-10-09  Dave Love  <fx@gnu.org>
 
        * qp.el (quoted-printable-encode-region): Fix non-multibyte search

diff --git a/lisp/gnus/mm-bodies.el b/lisp/gnus/mm-bodies.el
index 36590572e27252ce0db8cea1c6af7c1d33bf453f..3fb26f17ef25d5965a66ecfa6036aa185e925279 100644 (file)
--- a/lisp/gnus/mm-bodies.el
+++ b/lisp/gnus/mm-bodies.el
@@ -56,8 +56,8 @@ Valid encodings are `7bit', `8bit', `quoted-printable' and `base64'."
 (defun mm-encode-body ()
   "Encode a body.
 Should be called narrowed to the body that is to be encoded.
 (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))
 If successful, the MIME charset is returned.
 If no encoding was done, nil is returned."
   (if (not (mm-multibyte-p))


@@ -178,7 +178,7 @@ If no encoding was done, nil is returned."
 The characters in CHARSET should then be decoded."
   (if (stringp charset)
       (setq charset (intern (downcase charset))))
 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))
          (eq 'gnus-all mail-parse-ignored-charsets)
          (memq 'gnus-all mail-parse-ignored-charsets)
          (memq charset mail-parse-ignored-charsets))


@@ -191,7 +191,7 @@ The characters in CHARSET should then be decoded."
        (if (and (not coding-system)
                 (listp mail-parse-ignored-charsets)
                 (memq 'gnus-unknown mail-parse-ignored-charsets))
        (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
                  (mm-charset-to-coding-system mail-parse-charset)))
        (when (and charset coding-system
                   ;; buffer-file-coding-system


@@ -207,7 +207,7 @@ The characters in CHARSET should then be decoded."
   "Decode STRING with CHARSET."
   (when (stringp charset)
     (setq charset (intern (downcase charset))))
   "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))
            (eq 'gnus-all mail-parse-ignored-charsets)
            (memq 'gnus-all mail-parse-ignored-charsets)
            (memq charset mail-parse-ignored-charsets))


@@ -218,7 +218,7 @@ The characters in CHARSET should then be decoded."
        (if (and (not coding-system)
                (listp mail-parse-ignored-charsets)
                (memq 'gnus-unknown mail-parse-ignored-charsets))
        (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)
                 (mm-charset-to-coding-system mail-parse-charset)))
        (when (and charset coding-system
                  (mm-multibyte-p)