mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1998-10-14 12:49:31 +00:00
parent d2a0ee8b79
commit 0a6f5134bd
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/mail/uce.el
View File

@ -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.