(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 3d81d6a25dd531051229ef663acf5d95e9601a49..70ac0cf7df4972fe56a23a8d6f2b72c2439d31a3 100644 (file)
--- 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