mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Just require rmail.

Browse source
This commit is contained in:
Glenn Morris 2009-02-10 03:36:00 +00:00
parent a8e8f94704
commit efb656fd19
2 changed files with 29 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/mail/rmailsort.el
View file

@ -26,14 +26,7 @@
;;; Code:
(eval-when-compile
(require 'mail-utils)
(require 'sort)
(require 'rmail))
(autoload 'timezone-make-date-sortable "timezone")
(declare-function rmail-update-summary "rmailsum" (&rest ignore))
(require 'rmail)
;; Sorting messages in Rmail buffer
@ -153,6 +146,7 @@ KEYWORDS is a comma-separated list of labels."
n))))))
;; Basic functions
(declare-function rmail-update-summary "rmailsum" (&rest ignore))
(defun rmail-sort-messages (reverse keyfun)
"Sort messages of current Rmail file.
@ -228,6 +222,8 @@ If 1st argument REVERSE is non-nil, sort them in reverse order.
(if (rmail-summary-exists)
(rmail-select-summary (rmail-update-summary)))))))
(autoload 'timezone-make-date-sortable "timezone")
(defun rmail-make-date-sortable (date)
"Make DATE sortable using the function string-lessp."
;; Assume the default time zone is GMT.