projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* rfc2047.el (rfc2047-qp-or-base64): New function to reduce
[gnus]
/
lisp
/
qp.el
diff --git
a/lisp/qp.el
b/lisp/qp.el
index
149d30a
..
f87ec66
100644
(file)
--- a/
lisp/qp.el
+++ b/
lisp/qp.el
@@
-74,15
+74,17
@@
them into characters should be done separately."
(mm-insert-byte byte 1)
(delete-char 3)))
(t
(mm-insert-byte byte 1)
(delete-char 3)))
(t
- (
error
"Malformed quoted-printable text")
+ (
message
"Malformed quoted-printable text")
(forward-char)))))
(if coding-system
(mm-decode-coding-region (point-min) (point-max) coding-system)))))
(defun quoted-printable-decode-string (string &optional coding-system)
"Decode the quoted-printable encoded STRING and return the result.
(forward-char)))))
(if coding-system
(mm-decode-coding-region (point-min) (point-max) coding-system)))))
(defun quoted-printable-decode-string (string &optional coding-system)
"Decode the quoted-printable encoded STRING and return the result.
-If CODING-SYSTEM is non-nil, decode the region with coding-system."
- (with-temp-buffer
+If CODING-SYSTEM is non-nil, decode the region with coding-system.
+Use of CODING-SYSTEM is deprecated; this function should deal with
+raw bytes, and coding conversion should be done separately."
+ (mm-with-unibyte-buffer
(insert string)
(quoted-printable-decode-region (point-min) (point-max) coding-system)
(buffer-string)))
(insert string)
(quoted-printable-decode-region (point-min) (point-max) coding-system)
(buffer-string)))