# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 879887637 0
# Node ID f451d46a8c680ed04acbcbc2795e1c961ca9dc83
# Parent  cb48dd203293683f4b91b346712046aa6a44f7f9
(rmail-convert-to-babyl-format): If the
message uses the quoted-printable content-transfer-encoding,
decode it into 8bit.

diff -r cb48dd203293 -r f451d46a8c68 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Mon Nov 17 18:55:46 1997 +0000
+++ b/lisp/mail/rmail.el	Tue Nov 18 21:13:57 1997 +0000
@@ -1431,6 +1431,14 @@
 				    (and (re-search-forward "\n\n" nil t)
 					 (1- (point)))))
 		      (case-fold-search t)
+		      (quoted-printable-header-field-end
+		       (save-excursion
+			 ;; Back up to end of previous line, in case the
+			 ;; Content-Transfer-Encoding field comes first.
+			 (forward-char -1)
+			 (re-search-forward
+			  "\ncontent-transfer-encoding\\(\n?[\t ]\\)*:\\(\n?[\t ]\\)*quoted-printable\\(\n?[\t ]\\)*"
+			  header-end t)))
 		      (size
 		       ;; Get the numeric value from the Content-Length field.
 		       (save-excursion
@@ -1460,18 +1468,29 @@
 				     (looking-at "From "))))
 			  (goto-char (+ header-end size))
 			(message "Ignoring invalid Content-Length field")
-			(sit-for 1 0 t))))
+			(sit-for 1 0 t)))
+		 (if (re-search-forward
+		      (concat "^[\^_]?\\("
+			      rmail-unix-mail-delimiter
+			      "\\|"
+			      rmail-mmdf-delim1 "\\|"
+			      "^BABYL OPTIONS:\\|"
+			      "\^L\n[01],\\)") nil t)
+		     (goto-char (match-beginning 1))
+		   (goto-char (point-max)))
+		 (setq count (1+ count))
+		 (if quoted-printable-header-field-end
+		     (save-excursion
+		       (save-restriction
+			 (narrow-to-region header-end (point))
+			 (require 'gnus-art)
+			 (article-mime-decode-quoted-printable-buffer))
+		       ;; Change "quoted-printable" to "8bit",
+		       ;; to reflect the decoding we just did.
+		       (goto-char quoted-printable-header-field-end)
+		       (zap-to-char -1 ?:)
+		       (insert ": 8bit"))))
 
-	       (if (re-search-forward
-		    (concat "^[\^_]?\\("
-			    rmail-unix-mail-delimiter
-			    "\\|"
-			    rmail-mmdf-delim1 "\\|"
-			    "^BABYL OPTIONS:\\|"
-			    "\^L\n[01],\\)") nil t)
-		   (goto-char (match-beginning 1))
-		 (goto-char (point-max)))
-	       (setq count (1+ count))
 	       (save-excursion
 		 (save-restriction
 		   (narrow-to-region start (point))