From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 14 Oct 1998 12:49:31 +0000 (+0000)
Subject: (uce-reply-to-uce): Bind case-fold-search.
X-Git-Tag: emacs-20.4~1491
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a6f5134bd3d4dfa8293c3bca44d83f46891dcd3;p=emacs.git

(uce-reply-to-uce): Bind case-fold-search.
---

diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el
index 06c57960a4a..aa0dfdfee39 100644
--- a/lisp/mail/uce.el
+++ b/lisp/mail/uce.el
@@ -259,8 +259,9 @@ address, and postmaster of the mail relay used."
       (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.