Mercurial > emacs
changeset 101302:f91a3fe4adb9
(pmail-last-label, pmail-last-multi-labels):
Move back here from pmailkwd.el.
(pmail-message-labels-p): Move back here from pmailsum.el.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 20 Jan 2009 01:18:20 +0000 |
| parents | 5804c18fda15 |
| children | 0dafb06ce90e |
| files | lisp/mail/ChangeLog.pmail lisp/mail/pmail.el |
| diffstat | 2 files changed, 19 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/ChangeLog.pmail Tue Jan 20 01:16:55 2009 +0000 +++ b/lisp/mail/ChangeLog.pmail Tue Jan 20 01:18:20 2009 +0000 @@ -1,3 +1,13 @@ +2009-01-20 Glenn Morris <rgm@gnu.org> + + * pmailkwd.el (pmail-last-label, pmail-last-multi-labels): + Move back to pmail.el. + * pmail.el (pmail-last-label, pmail-last-multi-labels): + Move back here from pmailkwd.el. + + * pmailsum.el (pmail-message-labels-p): Move back to pmail.el. + * pmail.el (pmail-message-labels-p): Move back here from pmailsum.el. + 2009-01-16 Glenn Morris <rgm@gnu.org> * pmailout.el (pmail-update-summary): Declare.
--- a/lisp/mail/pmail.el Tue Jan 20 01:16:55 2009 +0000 +++ b/lisp/mail/pmail.el Tue Jan 20 01:18:20 2009 +0000 @@ -621,6 +621,12 @@ ;; `Sticky' default variables. +;; Last individual label specified to a or k. +(defvar pmail-last-label nil) + +;; Last set of values specified to C-M-n, C-M-p, C-M-s or C-M-l. +(defvar pmail-last-multi-labels nil) + (defvar pmail-last-regexp nil) (put 'pmail-last-regexp 'permanent-local t) @@ -2205,6 +2211,9 @@ "Test the unseen attribute for message MSGNUM. Return non-nil if the unseen attribute is set, nil otherwise." (pmail-message-attr-p msgnum "......U")) + +(defun pmail-message-labels-p (msg labels) + (string-match labels (pmail-get-labels msg))) ;;;; *** Pmail Message Selection And Support ***