2000-12-31 11:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* qp.el (quoted-printable-decode-region): Don't backward-char.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11e78e5..f19333b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-12-31 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * qp.el (quoted-printable-decode-region): Don't backward-char.
+
 2000-12-31 03:57:31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-draft.el: Mark articles as replied.

diff --git a/lisp/qp.el b/lisp/qp.el
index 3470a9b..2f63abf 100644 (file)
--- 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)))))