Mercurial > emacs

comparison lisp/mail/rmail.el @ 20854:2d4cea4b9e81

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-clear-headers): Handle the last header in a message correctly.
author Richard M. Stallman <rms@gnu.org>
date Fri, 06 Feb 1998 06:57:40 +0000
parents 80f0f0390eb6
children d5e308b7879e
comparison
equal deleted inserted replaced
20853:58bb74217a10 20854:2d4cea4b9e81
1634 (let ((case-fold-search t) 1634 (let ((case-fold-search t)
1635 (buffer-read-only nil)) 1635 (buffer-read-only nil))
1636 (if (and rmail-displayed-headers (null ignored-headers)) 1636 (if (and rmail-displayed-headers (null ignored-headers))
1637 (save-restriction 1637 (save-restriction
1638 (narrow-to-region (point-min) (point)) 1638 (narrow-to-region (point-min) (point))
1639 (let (lim) 1639 (let (lim next)
1640 (goto-char (point-min)) 1640 (goto-char (point-min))
1641 (while (save-excursion 1641 (while (and (not (eobp))
1642 (re-search-forward "\n[^ \t]") 1642 (save-excursion
1643 (and (not (eobp)) 1643 (if (re-search-forward "\n[^ \t]" nil t)
1644 (setq lim (1- (point))))) 1644 (setq lim (match-beginning 0)
1645 next (1+ lim))
1646 (setq lim nil next (point-max)))))
1645 (if (save-excursion 1647 (if (save-excursion
1646 (re-search-forward rmail-displayed-headers lim t)) 1648 (re-search-forward rmail-displayed-headers lim t))
1647 (goto-char lim) 1649 (goto-char next)
1648 (delete-region (point) lim)))) 1650 (delete-region (point) next))))
1649 (goto-char (point-min))) 1651 (goto-char (point-min)))
1650 (or ignored-headers (setq ignored-headers rmail-ignored-headers)) 1652 (or ignored-headers (setq ignored-headers rmail-ignored-headers))
1651 (save-restriction 1653 (save-restriction
1652 (narrow-to-region (point-min) (point)) 1654 (narrow-to-region (point-min) (point))
1653 (while (progn 1655 (while (progn