Mercurial > emacs
changeset 98017:4f69bd0a8c9f
(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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 06 Sep 2008 02:50:14 +0000 |
| parents | 850e2882805c |
| children | fac80ecbaf4a |
| files | lisp/mail/pmailsort.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)))