From: Glenn Morris <rgm@gnu.org>
Date: Sat, 6 Sep 2008 02:50:14 +0000 (+0000)
Subject: (pmail-dont-reply-to, pmail-desc-get-marker-end)
X-Git-Tag: emacs-pretest-23.0.90~3016
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59988cefadf3ead364f9597de83a369a35e2393e;p=emacs.git

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