X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fgnus.git-;a=blobdiff_plain;f=lisp%2Fqp.el;h=f87ec6680ef78579ab783441afc40618b202af37;hp=149d30ab09183c8714eb00a804df2c3bf7eff755;hb=2081c04cfde82ce1f92ae6f5cb46454bb6fe3040;hpb=162880cc7957dd33ca0c09573dc8ff526f3c8d69 diff --git a/lisp/qp.el b/lisp/qp.el index 149d30a..f87ec66 100644 --- 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 - (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. -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)))