From b5287163ec23210badab86a26c1c10a54d9d284e Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 13 Oct 2000 14:08:06 +0000 Subject: [PATCH] (quoted-printable-decode-region): Avoid invalid coding-systems. --- lisp/gnus/qp.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/qp.el b/lisp/gnus/qp.el index 0992f239a43..f83fb6f3119 100644 --- a/lisp/gnus/qp.el +++ b/lisp/gnus/qp.el @@ -37,12 +37,14 @@ If CODING-SYSTEM is non-nil, decode bytes into characters with that coding-system." (interactive "r") + (unless (mm-coding-system-p coding-system) ; e.g. `ascii' from Gnus + (setq coding-system nil)) (save-excursion (save-restriction - ;; RFC 2045: An "=" followed by two hexadecimal digits, one or - ;; both of which are lowercase letters in "abcdef", is formally - ;; illegal. A robust implementation might choose to recognize - ;; them as the corresponding uppercase letters. + ;; RFC 2045: ``An "=" followed by two hexadecimal digits, one + ;; or both of which are lowercase letters in "abcdef", is + ;; formally illegal. A robust implementation might choose to + ;; recognize them as the corresponding uppercase letters.'' (let ((case-fold-search t)) (narrow-to-region from to) ;; Do this in case we're called from Gnus, say, in a buffer -- 2.39.5