diff options
| -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. |