From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 2 Dec 1994 02:08:31 +0000 (+0000)
Subject: (rmail-output): Don't quote "From " lines unless the capitalization is exact.
X-Git-Tag: emacs-19.34~5754
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/c4613e62bd6cf79d6a1d67afe89e04ea3637e45c

(rmail-output): Don't quote "From " lines unless the capitalization is exact.
---

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 3d81d6a25d..70ac0cf7df 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -300,9 +300,10 @@ The optional fourth argument FROM-GNUS is set when called from GNUS."
 	  ;; ``Quote'' "\nFrom " as "\n>From "
 	  ;;  (note that this isn't really quoting, as there is no requirement
 	  ;;   that "\n[>]+From " be quoted in the same transparent way.)
-	  (while (search-forward "\nFrom " nil t)
-	    (forward-char -5)
-	    (insert ?>))
+	  (let ((case-fold-search nil))
+	    (while (search-forward "\nFrom " nil t)
+	      (forward-char -5)
+	      (insert ?>)))
 	  (write-region (point-min) (point-max) file-name t
 			(if noattribute 'nomsg)))
 	(or noattribute