# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 908369371 0
# Node ID f68b71f7b9fd92750abd5e1454833a89e294ef0a
# Parent  3ca22a8738595709c1248504dce5fbdbb03a09f7
(uce-reply-to-uce): Bind case-fold-search.

diff -r 3ca22a873859 -r f68b71f7b9fd lisp/mail/uce.el
--- 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.