# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1220669414 0
# Node ID 4f69bd0a8c9ffb19120fd46c8865900c58b2d8c9
# Parent  850e2882805c217d37cf18820ee42c513e54f589
(pmail-dont-reply-to, pmail-desc-get-marker-end)
(pmail-desc-get-marker-start): Remove declarations of undefined functions.
(pmail-select-correspondent): Use rmail-dont-reply-to from mail-utils
rather than non-existent pmail-dont-reply-to.

diff -r 850e2882805c -r 4f69bd0a8c9f lisp/mail/pmailsort.el
--- a/lisp/mail/pmailsort.el	Sat Sep 06 02:48:16 2008 +0000
+++ b/lisp/mail/pmailsort.el	Sat Sep 06 02:50:14 2008 +0000
@@ -33,9 +33,8 @@
 
 (autoload 'timezone-make-date-sortable "timezone")
 
-(declare-function pmail-dont-reply-to "mail-utils" (destinations))
-(declare-function pmail-desc-get-marker-end "pmailsort" (msgnum))
-(declare-function pmail-desc-get-marker-start "pmailsort" (msgnum))
+;(declare-function pmail-desc-get-marker-end "pmailsort" (msgnum))
+;(declare-function pmail-desc-get-marker-start "pmailsort" (msgnum))
 (declare-function pmail-update-summary "pmailsum" (&rest ignore))
 
 ;; Sorting messages in Pmail buffer
@@ -109,7 +108,8 @@
   (let ((ans ""))
     (while (and fields (string= ans ""))
       (setq ans
-	    (pmail-dont-reply-to
+	    ;; NB despite the name, this lives in mail-utils.el.
+	    (rmail-dont-reply-to
 	     (mail-strip-quoted-names
 	      (or (pmail-fetch-field msg (car fields)) ""))))
       (setq fields (cdr fields)))