diff options
Diffstat (limited to 'lisp/mail/qp.el')
| -rw-r--r-- | lisp/mail/qp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/qp.el b/lisp/mail/qp.el index 388c3981c97..10ac696fecf 100644 --- a/lisp/mail/qp.el +++ b/lisp/mail/qp.el @@ -1,4 +1,4 @@ -;;; qp.el --- Quoted-Printable functions +;;; qp.el --- Quoted-Printable functions -*- lexical-binding:t -*- ;; Copyright (C) 1998-2020 Free Software Foundation, Inc. @@ -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) |