Function: mh-canonicalize-sequence

mh-canonicalize-sequence is a byte-compiled function defined in mh-seq.el.gz.

Signature

(mh-canonicalize-sequence MSGS)

Documentation

Sort MSGS in decreasing order and remove duplicates.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-seq.el.gz
(defun mh-canonicalize-sequence (msgs)
  "Sort MSGS in decreasing order and remove duplicates."
  (let* ((sorted-msgs (sort (copy-sequence msgs) #'>))
         (head sorted-msgs))
    (while (cdr head)
      (if (= (car head) (cadr head))
          (setcdr head (cddr head))
        (setq head (cdr head))))
    sorted-msgs))