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

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 3d81d6a25dd..70ac0cf7df4 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