From: Kenichi Handa <handa@m17n.org>
Date: Sat, 20 May 2000 00:09:21 +0000 (+0000)
Subject: (rmail-decode-quoted-printable): Use delete-region
X-Git-Tag: emacs-pretest-21.0.90~3861
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d17f2b920b3ef3d3b98253e99318ccaa51296eb0;p=emacs.git

(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 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