comment

[bpt/emacs.git] / lisp / gnus / qp.el

diff --git a/lisp/gnus/qp.el b/lisp/gnus/qp.el
index 6d2c01d..c1ceac8 100644 (file)
--- a/lisp/gnus/qp.el
+++ b/lisp/gnus/qp.el
@@ -29,23 +29,30 @@
 
 ;;; Code:
 
-(defun quoted-printable-decode-region (from to &optional charset)
+(require 'mm-util)
+(eval-when-compile (defvar mm-use-ultra-safe-encoding))
+
+(defun quoted-printable-decode-region (from to &optional coding-system)
   "Decode quoted-printable in the region between FROM and TO, per RFC 2045.
-If CHARSET is non-nil, decode bytes into characters with that charset."
+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
-      (let ((nonascii-insert-offset nonascii-insert-offset)
-           ;; 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.
-           (case-fold-search t))
-       (if charset
-           (setq nonascii-insert-offset (- (make-char charset) 128)))
+      ;; 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)
-       (goto-char from)
+       ;; Do this in case we're called from Gnus, say, in a buffer
+       ;; which already contains non-ASCII characters which would
+       ;; then get doubly-decoded below.
+       (if coding-system
+           (mm-encode-coding-region (point-min) (point-max) coding-system))
+       (goto-char (point-min))
        (while (and (skip-chars-forward "^=" to)
                    (not (eobp)))
          (cond ((eq (char-after (1+ (point))) ?\n)
@@ -54,25 +61,22 @@ If CHARSET is non-nil, decode bytes into characters with that charset."
                 (let ((byte (string-to-int (buffer-substring (1+ (point))
                                                              (+ 3 (point)))
                                            16)))
-                  (if (and charset (fboundp 'unibyte-char-to-multibyte))
-                      (insert (unibyte-char-to-multibyte byte))
-                    (insert byte))
-                  (delete-region (point) (+ 3 (point)))
+                  (insert byte)
+                  (delete-char 3)
                   (unless (eq byte ?=)
                     (backward-char))))
-               ((eq (char-after (1+ (point))) ?=)
-                (forward-char)
-                (delete-char 1))
                (t
                 (message "Malformed MIME quoted-printable message")
-                (forward-char))))))))
+                (forward-char)))))
+      (if coding-system
+         (mm-decode-coding-region (point-min) (point-max) coding-system)))))
 
-(defun quoted-printable-decode-string (string &optional charset)
+(defun quoted-printable-decode-string (string &optional coding-system)
   "Decode the quoted-printable encoded STRING and return the result.
-If CHARSET is non-nil, decode the region with charset."
+If CODING-SYSTEM is non-nil, decode the region with coding-system."
   (with-temp-buffer
     (insert string)
-    (quoted-printable-decode-region (point-min) (point-max) charset)
+    (quoted-printable-decode-region (point-min) (point-max) coding-system)
     (buffer-string)))
 
 (defun quoted-printable-encode-region (from to &optional fold class)