(pmail-last-label, pmail-last-multi-labels):

Move back here from pmailkwd.el.
(pmail-message-labels-p): Move back here from pmailsum.el.

diff --git a/lisp/mail/ChangeLog.pmail b/lisp/mail/ChangeLog.pmail
index af957c1c8a6cdae3839fa6f1cfefff7232cfda43..e725986d915cebcd49846020b387c63a8b3df34f 100644 (file)
--- a/lisp/mail/ChangeLog.pmail
+++ b/lisp/mail/ChangeLog.pmail
@@ -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 --git a/lisp/mail/pmail.el b/lisp/mail/pmail.el
index 75e0aff192711e682095c043c18209c91ebf767f..dff53d0abeef377154bd1d666e71ce25ef90b755 100644 (file)
--- a/lisp/mail/pmail.el
+++ b/lisp/mail/pmail.el
@@ -621,6 +621,12 @@ by substituting the new message number into the existing list.")
 \f
 ;; `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 @@ This function assumes the Pmail buffer is unswapped."
   "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)))
 \f
 ;;;; *** Pmail Message Selection And Support ***