Mercurial > emacs
changeset 89178:1959fdc1c405
(quoted-printable-encode-region): Go to start of range
before searching.
(quoted-printable-encode-region): Use multibyte-char-to-unibyte.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 07 Oct 2002 17:39:34 +0000 |
| parents | 8b81c54139ef |
| children | 5d850a12b6f5 |
| files | lisp/gnus/qp.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/qp.el Mon Oct 07 12:59:21 2002 +0000 +++ b/lisp/gnus/qp.el Mon Oct 07 17:39:34 2002 +0000 @@ -93,6 +93,8 @@ encode lines starting with \"From\"." (interactive "r") (save-excursion + (goto-char from) + ;; Fixme: This doesn't get eight-bit characters in multibyte buffers. (if (re-search-forward "[^\x0-\xff]" to t) (error "Multibyte character in QP encoding region"))) (unless class @@ -108,7 +110,8 @@ (not (eobp))) (insert (prog1 - (format "=%02X" (char-after)) + ;; To unibyte in case of eight-bit-{control,graphics} + (format "=%02X" (multibyte-char-to-unibyte (char-after))) (delete-char 1)))) ;; Encode white space at the end of lines. (goto-char (point-min))