mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases 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
Show Stats 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))