[Emacs-diffs] emacs/lisp/mail pmailsum.el

[Glenn Morris]

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

Modified files:
        lisp/mail      : pmailsum.el 

Log message:
        (pmail-message-labels-p): Move back to pmail.el.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmailsum.el?cvsroot=emacs&r1=1.17&r2=1.18

Patches:
Index: pmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmailsum.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- pmailsum.el 16 Jan 2009 03:17:17 -0000      1.17
+++ pmailsum.el 20 Jan 2009 01:16:55 -0000      1.18
@@ -92,13 +92,6 @@
                     'pmail-message-labels-p
                     (concat ", \\(" (mail-comma-list-regexp labels) "\\),")))
 
-;; Moved here from pmail (which this file requires) 20090105, creating
-;; a compiler warning. ?
-;; 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)
-  (string-match labels (pmail-get-labels msg)))
-
 ;;;###autoload
 (defun pmail-summary-by-recipients (recipients &optional primary-only)
   "Display a summary of all messages with the given RECIPIENTS.