Mercurial > emacs
changeset 14680:8aa0ac31ba8a
(rmail-clear-headers): Bind case-fold-search to t across the whole function.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Mon, 26 Feb 1996 03:54:51 +0000 |
| parents | 671df59704d7 |
| children | 27bbf45f3393 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 18 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Mon Feb 26 01:40:50 1996 +0000 +++ b/lisp/mail/rmail.el Mon Feb 26 03:54:51 1996 +0000 @@ -1266,25 +1266,26 @@ delete all header fields *except* those whose names match that regexp. Otherwise, delete all header fields whose names match `rmail-ignored-headers'." (if (search-forward "\n\n" nil t) - (if (and rmail-displayed-headers (null ignored-headers)) + (let ((case-fold-search t) + (buffer-read-only nil)) + (if (and rmail-displayed-headers (null ignored-headers)) + (save-restriction + (narrow-to-region (point-min) (point)) + (let (lim) + (goto-char (point-min)) + (while (save-excursion + (re-search-forward "\n[^ \t]") + (and (not (eobp)) + (setq lim (1- (point))))) + (if (save-excursion + (re-search-forward rmail-displayed-headers lim t)) + (goto-char lim) + (delete-region (point) lim)))) + (goto-char (point-min))) + (or ignored-headers (setq ignored-headers rmail-ignored-headers)) (save-restriction (narrow-to-region (point-min) (point)) - (let ((buffer-read-only nil) lim) - (goto-char (point-min)) - (while (save-excursion - (re-search-forward "\n[^ \t]") - (and (not (eobp)) - (setq lim (1- (point))))) - (if (save-excursion - (re-search-forward rmail-displayed-headers lim t)) - (goto-char lim) - (delete-region (point) lim)))) - (goto-char (point-min))) - (or ignored-headers (setq ignored-headers rmail-ignored-headers)) - (save-restriction - (narrow-to-region (point-min) (point)) - (let ((buffer-read-only nil)) - (while (let ((case-fold-search t)) + (while (progn (goto-char (point-min)) (re-search-forward ignored-headers nil t)) (beginning-of-line)