[Emacs-diffs] emacs/lisp/mail ChangeLog.pmail pmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/20 01:18:20

Modified files:
        lisp/mail      : ChangeLog.pmail pmail.el 

Log message:
        (pmail-last-label, pmail-last-multi-labels):
        Move back here from pmailkwd.el.
        (pmail-message-labels-p): Move back here from pmailsum.el.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/ChangeLog.pmail?cvsroot=emacs&r1=1.53&r2=1.54
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmail.el?cvsroot=emacs&r1=1.48&r2=1.49

Patches:
Index: ChangeLog.pmail
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/ChangeLog.pmail,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -b -r1.53 -r1.54
--- ChangeLog.pmail     16 Jan 2009 03:18:21 -0000      1.53
+++ ChangeLog.pmail     20 Jan 2009 01:18:20 -0000      1.54
@@ -1,3 +1,13 @@
+2009-01-20  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * pmailout.el (pmail-update-summary): Declare.

Index: pmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmail.el,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -b -r1.48 -r1.49
--- pmail.el    17 Jan 2009 17:29:25 -0000      1.48
+++ pmail.el    20 Jan 2009 01:18:20 -0000      1.49
@@ -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)
 
@@ -2206,6 +2212,9 @@
 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 ***
 
 (defun pmail-msgend (n)