(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.

1 files changed, 4 insertions, 4 deletions

diff --git a/lisp/mail/pmailsort.el b/lisp/mail/pmailsort.el
index 91d93bc12a7..4be67b90eab 100644
--- a/lisp/mail/pmailsort.el
+++ b/lisp/mail/pmailsort.el
@@ -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 @@ If prefix argument REVERSE is non-nil, sort them in reverse order."
   (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)))