From 11f49b82fa9ec160e9e311388e767fb57ad5a774 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Sun, 31 Dec 2000 16:44:12 +0000 Subject: [PATCH] 2000-12-31 11:00:00 ShengHuo ZHU * qp.el (quoted-printable-decode-region): Don't backward-char. --- lisp/ChangeLog | 4 ++++ lisp/qp.el | 8 +++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 11e78e5d6..f19333b00 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-12-31 11:00:00 ShengHuo ZHU + + * qp.el (quoted-printable-decode-region): Don't backward-char. + 2000-12-31 03:57:31 Lars Magne Ingebrigtsen * gnus-draft.el: Mark articles as replied. diff --git a/lisp/qp.el b/lisp/qp.el index 3470a9b14..2f63abf15 100644 --- a/lisp/qp.el +++ b/lisp/qp.el @@ -53,7 +53,7 @@ coding-system." (if coding-system (mm-encode-coding-region (point-min) (point-max) coding-system)) (goto-char (point-min)) - (while (and (skip-chars-forward "^=" to) + (while (and (skip-chars-forward "^=") (not (eobp))) (cond ((eq (char-after (1+ (point))) ?\n) (delete-char 2)) @@ -63,8 +63,10 @@ coding-system." 16))) (insert byte) (delete-char 3) - (unless (eq byte ?=) - (backward-char)))) + ;; Why backward-char??? + ;;(unless (eq byte 61) ;; 61 is not ?= in XEmacs + ;; (backward-char)) + )) (t (error "Malformed quoted-printable text") (forward-char))))) -- 2.34.1