procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-clear-headers): Handle failure to find "\n[^ \t]".

Browse source
This commit is contained in:
Richard M. Stallman 1998-03-26 04:28:37 +00:00
parent bb15e81a9b
commit d155ff1892
1 changed files with 18 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
lisp/mail/rmail.el
View file

@ -1662,21 +1662,21 @@ Otherwise, delete all header fields whose names match `rmail-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 next)
(goto-char (point-min))
(while (and (not (eobp))
(save-excursion
(if (re-search-forward "\n[^ \t]" nil t)
(setq lim (match-beginning 0)
next (1+ lim))
(setq lim nil next (point-max)))))
(if (save-excursion
(re-search-forward rmail-displayed-headers lim t))
(goto-char next)
(delete-region (point) next))))
(goto-char (point-min)))
(save-restriction
(narrow-to-region (point-min) (point))
(let (lim next)
(goto-char (point-min))
(while (and (not (eobp))
(save-excursion
(if (re-search-forward "\n[^ \t]" nil t)
(setq lim (match-beginning 0)
next (1+ lim))
(setq lim nil next (point-max)))))
(if (save-excursion
(re-search-forward rmail-displayed-headers lim t))
(goto-char next)
(delete-region (point) next))))
(goto-char (point-min)))
(or ignored-headers (setq ignored-headers rmail-ignored-headers))
(save-restriction
(narrow-to-region (point-min) (point))
@ -1685,8 +1685,9 @@ Otherwise, delete all header fields whose names match `rmail-ignored-headers'."
(re-search-forward ignored-headers nil t))
(beginning-of-line)
(delete-region (point)
(progn (re-search-forward "\n[^ \t]")
(1- (point))))))))))
(if (re-search-forward "\n[^ \t]" nil t)
(1- (point))
(point-max)))))))))
(defun rmail-msg-is-pruned ()
(rmail-maybe-set-message-counters)