# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1232414300 0
# Node ID f91a3fe4adb92fdbee028e4d8f25a4576661256b
# Parent  5804c18fda152745195b82b3bcc96a2a681944a8
(pmail-last-label, pmail-last-multi-labels):
Move back here from pmailkwd.el.
(pmail-message-labels-p): Move back here from pmailsum.el.

diff -r 5804c18fda15 -r f91a3fe4adb9 lisp/mail/ChangeLog.pmail
--- 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.
diff -r 5804c18fda15 -r f91a3fe4adb9 lisp/mail/pmail.el
--- 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 ***