martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(pmail-sort-messages): Use pmail-desc-get-start, pmail-desc-get-end

Browse Source 
rather than non-existent `marker-' functions.
This commit is contained in:
Glenn Morris
2008-09-06 18:44:36 +00:00
parent 0a25d0ecda
commit 8ac8cb144a
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/pmailsort.el
View File

@@ -33,8 +33,6 @@
(autoload 'timezone-make-date-sortable "timezone")
;(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
@@ -176,8 +174,8 @@ If 1st argument REVERSE is non-nil, sort them in reverse order.
(setq sort-lists
(cons (list (funcall keyfun msgnum) ;Make sorting key
(eq pmail-current-message msgnum) ;True if current
(pmail-desc-get-marker-start msgnum)
(pmail-desc-get-marker-end msgnum))
(pmail-desc-get-start msgnum)
(pmail-desc-get-end msgnum))
sort-lists))
(if (zerop (% msgnum 10))
(message "Finding sort keys...%d" msgnum))