diff lisp/gnus/qp.el @ 32462:7a39fdec7aac

(quoted-printable-decode-region): Avoid invalid coding-systems.

--- a/lisp/gnus/qp.el	Fri Oct 13 13:11:49 2000 +0000
+++ b/lisp/gnus/qp.el	Fri Oct 13 14:08:06 2000 +0000
@@ -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