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

diff --git a/lisp/mail/pmailsum.el b/lisp/mail/pmailsum.el
index 43064379c1e20d06e8ee80f0256ef3c9f0cb23ea..a46b55156ed47b31ba433a94e8b6ab916295fdfb 100644 (file)
--- a/lisp/mail/pmailsum.el
+++ b/lisp/mail/pmailsum.el
@@ -92,13 +92,6 @@ LABELS should be a string containing the desired labels, separated by commas."
                     '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.