changeset 23458:f68b71f7b9fd

(uce-reply-to-uce): Bind case-fold-search.
author Richard M. Stallman <rms@gnu.org>
date Wed, 14 Oct 1998 12:49:31 +0000
parents 3ca22a873859
children bab640501294
files lisp/mail/uce.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/uce.el	Wed Oct 14 12:47:18 1998 +0000
+++ b/lisp/mail/uce.el	Wed Oct 14 12:49:31 1998 +0000
@@ -259,8 +259,9 @@
       (if (eq uce-mail-reader 'rmail)
 	  (progn
 	    (forward-line 2)
-	    (while (looking-at "Summary-Line:\\|Mail-From:")
-	      (forward-line 1))
+	    (let ((case-fold-search t))
+	      (while (looking-at "Summary-Line:\\|Mail-From:")
+		(forward-line 1)))
 	    (delete-region temp (point))))
       ;; Now find the mail hub that first accepted this message.
       ;; This should try to find the last Received: header.