(rmail-decode-quoted-printable): Use delete-region

and insert, not subst-char-in-region.

1 files changed, 4 insertions, 5 deletions

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 1a32ef1a9da..c243994cbe9 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1691,11 +1691,10 @@ It returns t if it got any new messages."
            (delete-char -1)
            (delete-char 1))
           ((looking-at "[0-9A-F][0-9A-F]")
-           (subst-char-in-region
-            (1- (point)) (point) ?=
-            (rmail-hex-string-to-integer
-             (buffer-substring (point) (+ 2 (point)))))
-           (delete-char 2))
+           (let ((byte (rmail-hex-string-to-integer
+                        (buffer-substring (point) (+ 2 (point))))))
+             (delete-region (1- (point)) (+ 2 (point)))
+             (insert byte)))
           ((looking-at "=")
            (delete-char 1))
           (t