From 0a6f5134bd3d4dfa8293c3bca44d83f46891dcd3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 14 Oct 1998 12:49:31 +0000 Subject: [PATCH] (uce-reply-to-uce): Bind case-fold-search. --- lisp/mail/uce.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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. -- 2.39.2