Mercurial > emacs
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.