From: Dave Love <fx@gnu.org>
Date: Fri, 13 Oct 2000 14:08:06 +0000 (+0000)
Subject: (quoted-printable-decode-region): Avoid invalid
X-Git-Tag: emacs-pretest-21.0.90~902
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5287163ec23210badab86a26c1c10a54d9d284e;p=emacs.git

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

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