Mercurial > emacs
changeset 100224:eb0db38d20d1
(pmail-retry-failure): Remove call to non-existent function
pmail-clear-headers.
(pmail-message-labels-p): New function.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 04 Dec 2008 22:50:50 +0000 |
| parents | ecb3dba6e932 |
| children | cff49a741231 |
| files | lisp/mail/pmail.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/pmail.el Thu Dec 04 22:49:30 2008 +0000 +++ b/lisp/mail/pmail.el Thu Dec 04 22:50:50 2008 +0000 @@ -2628,6 +2628,15 @@ Return non-nil if the unseen attribute is set, nil otherwise." (pmail-message-attr-p msgnum "......U")) +;; Return t if the attributes/keywords line of msg number MSG +;; contains a match for the regexp LABELS. +(defun pmail-message-labels-p (msg labels) + (save-excursion + (save-restriction + (widen) + (goto-char (pmail-msgbeg msg)) + (forward-char 3) + (re-search-backward labels (prog1 (point) (end-of-line)) t)))) ;;;; *** Pmail Message Selection And Support *** @@ -4042,8 +4051,6 @@ (goto-char (point-min)) (if bounce-indent (indent-rigidly (point-min) (point-max) bounce-indent)) - (pmail-clear-headers pmail-retry-ignored-headers) - (pmail-clear-headers "^sender:\\|^return-path:\\|^received:") (mail-sendmail-delimit-header) (save-restriction (narrow-to-region (point-min) (mail-header-end))