From d17f2b920b3ef3d3b98253e99318ccaa51296eb0 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 20 May 2000 00:09:21 +0000 Subject: [PATCH] (rmail-decode-quoted-printable): Use delete-region and insert, not subst-char-in-region. --- lisp/mail/rmail.el | 9 ++++----- 1 file 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 -- 2.39.5