Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

	* qp.el (quoted-printable-decode-region): Don't backward-char.
  • Loading branch information...
commit 11f49b82fa9ec160e9e311388e767fb57ad5a774 1 parent 4f2e636
ShengHuo ZHU authored
Showing with 9 additions and 3 deletions.
  1. +4 −0 lisp/ChangeLog
  2. +5 −3 lisp/qp.el
View
4 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.
View
8 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)))))
Please sign in to comment.
Something went wrong with that request. Please try again.