Mercurial > emacs

changeset 10101:c0afdaf34c6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-output): Don't quote "From " lines unless the capitalization is exact.
author Karl Heuer <kwzh@gnu.org>
date Fri, 02 Dec 1994 02:08:31 +0000
parents 461530f66e34
children 339e129f8874
files lisp/mail/rmailout.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailout.el	Thu Dec 01 22:59:35 1994 +0000
+++ b/lisp/mail/rmailout.el	Fri Dec 02 02:08:31 1994 +0000
@@ -300,9 +300,10 @@
 	  ;; ``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