X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fqp.el;h=f87ec6680ef78579ab783441afc40618b202af37;hb=609e9daf5a06f5d39ca20cc6718f72a414866870;hp=62d756278448c63cf663630a875e318243e189c7;hpb=389fdcea4d5cc825985868ae38e9038f15235bf2;p=gnus diff --git a/lisp/qp.el b/lisp/qp.el index 62d756278..f87ec6680 100644 --- a/lisp/qp.el +++ b/lisp/qp.el @@ -1,6 +1,6 @@ ;;; qp.el --- Quoted-Printable functions -;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Keywords: mail, extensions @@ -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)))