diff options
| author | Richard M. Stallman | 1998-10-14 12:49:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-10-14 12:49:31 +0000 |
| commit | 0a6f5134bd3d4dfa8293c3bca44d83f46891dcd3 (patch) | |
| tree | 09c712525d910dd46bcf97d1b87b6b6f51215997 | |
| parent | d2a0ee8b79c91c5f0ae1a0f841a1e67f7e1b26a2 (diff) | |
| download | emacs-0a6f5134bd3d4dfa8293c3bca44d83f46891dcd3.tar.gz emacs-0a6f5134bd3d4dfa8293c3bca44d83f46891dcd3.zip | |
(uce-reply-to-uce): Bind case-fold-search.
| -rw-r--r-- | lisp/mail/uce.el | 5 |
1 files 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." | |||
| 259 | (if (eq uce-mail-reader 'rmail) | 259 | (if (eq uce-mail-reader 'rmail) |
| 260 | (progn | 260 | (progn |
| 261 | (forward-line 2) | 261 | (forward-line 2) |
| 262 | (while (looking-at "Summary-Line:\\|Mail-From:") | 262 | (let ((case-fold-search t)) |
| 263 | (forward-line 1)) | 263 | (while (looking-at "Summary-Line:\\|Mail-From:") |
| 264 | (forward-line 1))) | ||
| 264 | (delete-region temp (point)))) | 265 | (delete-region temp (point)))) |
| 265 | ;; Now find the mail hub that first accepted this message. | 266 | ;; Now find the mail hub that first accepted this message. |
| 266 | ;; This should try to find the last Received: header. | 267 | ;; This should try to find the last Received: header. |