From: Glenn Morris <rgm@gnu.org>
Date: Thu, 4 Feb 2010 05:05:37 +0000 (-0800)
Subject: * mail/mail-utils.el (mail-unquote-printable-region): Doc fix.
X-Git-Tag: emacs-pretest-23.1.93~116
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d01b827454d0080824ab3f61eace0032d17cec4;p=emacs.git

* mail/mail-utils.el (mail-unquote-printable-region): Doc fix.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62c2b30c8b4..dbd40d088e8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-02-04  Glenn Morris  <rgm@gnu.org>
 
+	* mail/mail-utils.el (mail-unquote-printable-region): Doc fix.
+
 	* simple.el (visual-line-mode): Capitalize lighter.
 
 2010-02-03  John Wiegley  <jwiegley@gmail.com>
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 5fad3554ae5..1c527f22113 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -123,13 +123,16 @@ we expect to find and remove the wrapper characters =?ISO-8859-1?Q?....?=."
 	(setq i (match-end 0)))
       (apply 'concat (nreverse (cons (substring string i) strings))))))
 
+;; FIXME Gnus for some reason has `quoted-printable-decode-region' in qp.el.
 ;;;###autoload
 (defun mail-unquote-printable-region (beg end &optional wrapper noerror
 					  unibyte)
   "Undo the \"quoted printable\" encoding in buffer from BEG to END.
 If the optional argument WRAPPER is non-nil,
 we expect to find and remove the wrapper characters =?ISO-8859-1?Q?....?=.
-If NOERROR is non-nil, return t if successful.
+On encountering malformed quoted-printable text, exits with an error,
+unless NOERROR is non-nil, in which case it continues, and returns nil
+when finished.  Returns non-nil on successful completion.
 If UNIBYTE is non-nil, insert converted characters as unibyte.
 That is useful if you are going to character code decoding afterward,
 as Rmail does."
@@ -246,6 +249,10 @@ Return a modified address list."
   "Prune addresses from DESTINATIONS, a list of recipient addresses.
 All addresses matching `rmail-dont-reply-to-names' are removed from
 the comma-separated list.  The pruned list is returned."
+  ;; FIXME this (setting a user option the first time a command is used)
+  ;; is somewhat strange.  Normally one would never set the option,
+  ;; but instead fall back to the default so long as it was nil.
+  ;; Or just set the default directly in the defcustom.
   (if (null rmail-dont-reply-to-names)
       (setq rmail-dont-reply-to-names
 	    (concat (if rmail-default-dont-reply-to-names