Mercurial > emacs
changeset 107080:da4ec7ca387c
* mail/mail-utils.el (mail-unquote-printable-region): Doc fix.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 03 Feb 2010 21:05:37 -0800 |
parents | 4e5186e157d5 |
children | ad4a4794a3d7 |
files | lisp/ChangeLog lisp/mail/mail-utils.el |
diffstat | 2 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Feb 03 21:02:56 2010 -0800 +++ b/lisp/ChangeLog Wed Feb 03 21:05:37 2010 -0800 @@ -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>
--- a/lisp/mail/mail-utils.el Wed Feb 03 21:02:56 2010 -0800 +++ b/lisp/mail/mail-utils.el Wed Feb 03 21:05:37 2010 -0800 @@ -123,13 +123,16 @@ (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 @@ "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