diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-31 19:13:23 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-31 19:13:30 +0200 |
| commit | a0d3d2935f935dfac562df801d4fe841c876af7a (patch) | |
| tree | 15ad8079fd4f04668ecf18ca5a47e916478c9638 /lisp/mail/qp.el | |
| parent | e63705ab9ba9081bcb4ed97e82019aab5a033d0d (diff) | |
| download | emacs-a0d3d2935f935dfac562df801d4fe841c876af7a.tar.gz emacs-a0d3d2935f935dfac562df801d4fe841c876af7a.tar.bz2 emacs-a0d3d2935f935dfac562df801d4fe841c876af7a.zip | |
Make quoted-printable-encode-region work in multibyte buffers
* lisp/mail/qp.el (quoted-printable-encode-region): If we're in a
multibyte buffer (that has been encoded with some coding system),
then get-byte will get the correct byte value.
Diffstat (limited to 'lisp/mail/qp.el')
| -rw-r--r-- | lisp/mail/qp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/qp.el b/lisp/mail/qp.el index 35ff47fd098..10ac696fecf 100644 --- a/lisp/mail/qp.el +++ b/lisp/mail/qp.el @@ -125,7 +125,7 @@ encode lines starting with \"From\"." (not (eobp))) (insert (prog1 - (format "=%02X" (char-after)) + (format "=%02X" (get-byte)) (delete-char 1)))) ;; Encode white space at the end of lines. (goto-char (point-min)) @@ -134,7 +134,7 @@ encode lines starting with \"From\"." (while (not (eolp)) (insert (prog1 - (format "=%02X" (char-after)) + (format "=%02X" (get-byte)) (delete-char 1))))) (let ((ultra (and (boundp 'mm-use-ultra-safe-encoding) |