[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail pmail.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/mail pmail.el |
Date: |
Thu, 04 Dec 2008 22:50:50 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 08/12/04 22:50:50
Modified files:
lisp/mail : pmail.el
Log message:
(pmail-retry-failure): Remove call to non-existent function
pmail-clear-headers.
(pmail-message-labels-p): New function.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmail.el?cvsroot=emacs&r1=1.21&r2=1.22
Patches:
Index: pmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmail.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- pmail.el 4 Dec 2008 13:41:10 -0000 1.21
+++ pmail.el 4 Dec 2008 22:50:50 -0000 1.22
@@ -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))
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/02
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/04
- [Emacs-diffs] emacs/lisp/mail pmail.el,
Chong Yidong <=
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/05
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/09
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/09
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/10
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/10
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/10
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/12
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/15
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/15
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/19