aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2008-09-06 18:44:36 +0000
committerGlenn Morris2008-09-06 18:44:36 +0000
commit8ac8cb144aacbb4a150490f86971da3a481f03e2 (patch)
treecacc5f835d3f73f75241c48776d0f283bf29d23f
parent0a25d0ecda71a260662a3bfbc505685ecebf24c6 (diff)
downloademacs-8ac8cb144aacbb4a150490f86971da3a481f03e2.tar.gz
emacs-8ac8cb144aacbb4a150490f86971da3a481f03e2.zip
(pmail-sort-messages): Use pmail-desc-get-start, pmail-desc-get-end
rather than non-existent `marker-' functions.
-rw-r--r--lisp/mail/pmailsort.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/mail/pmailsort.el b/lisp/mail/pmailsort.el
index b874a0aedb0..bded0efde4f 100644
--- a/lisp/mail/pmailsort.el
+++ b/lisp/mail/pmailsort.el
@@ -33,8 +33,6 @@
33 33
34(autoload 'timezone-make-date-sortable "timezone") 34(autoload 'timezone-make-date-sortable "timezone")
35 35
36;(declare-function pmail-desc-get-marker-end "pmailsort" (msgnum))
37;(declare-function pmail-desc-get-marker-start "pmailsort" (msgnum))
38(declare-function pmail-update-summary "pmailsum" (&rest ignore)) 36(declare-function pmail-update-summary "pmailsum" (&rest ignore))
39 37
40;; Sorting messages in Pmail buffer 38;; Sorting messages in Pmail buffer
@@ -176,8 +174,8 @@ If 1st argument REVERSE is non-nil, sort them in reverse order.
176 (setq sort-lists 174 (setq sort-lists
177 (cons (list (funcall keyfun msgnum) ;Make sorting key 175 (cons (list (funcall keyfun msgnum) ;Make sorting key
178 (eq pmail-current-message msgnum) ;True if current 176 (eq pmail-current-message msgnum) ;True if current
179 (pmail-desc-get-marker-start msgnum) 177 (pmail-desc-get-start msgnum)
180 (pmail-desc-get-marker-end msgnum)) 178 (pmail-desc-get-end msgnum))
181 sort-lists)) 179 sort-lists))
182 (if (zerop (% msgnum 10)) 180 (if (zerop (% msgnum 10))
183 (message "Finding sort keys...%d" msgnum)) 181 (message "Finding sort keys...%d" msgnum))