From 59988cefadf3ead364f9597de83a369a35e2393e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 6 Sep 2008 02:50:14 +0000 Subject: [PATCH] (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. --- lisp/mail/pmailsort.el | 8 ++++---- 1 file 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))) -- 2.39.5