Function: gnus-article-sort-by-schedule

gnus-article-sort-by-schedule is a byte-compiled function defined in gnus-diary.el.gz.

Signature

(gnus-article-sort-by-schedule H1 H2)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-diary.el.gz
;; Article sorting functions ================================================

(defun gnus-article-sort-by-schedule (h1 h2)
  (let* ((now (current-time))
	 (e1 (mail-header-extra h1))
	 (e2 (mail-header-extra h2))
	 (s1 (gnus-diary-header-schedule e1))
	 (s2 (gnus-diary-header-schedule e2))
	 (o1 (nndiary-next-occurrence s1 now))
	 (o2 (nndiary-next-occurrence s2 now)))
    (if (and (= (car o1) (car o2)) (= (cadr o1) (cadr o2)))
	(< (mail-header-number h1) (mail-header-number h2))
      (time-less-p o1 o2))))