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

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

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 1a32ef1a9da4d9b93712ad749f26b3edc2c5e69c..c243994cbe988cd2670f5de2767d4d2d4140067d 100644 (file)
--- 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