diff options
Diffstat (limited to 'lisp/mh-e/mh-limit.el')
| -rw-r--r-- | lisp/mh-e/mh-limit.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/mh-e/mh-limit.el b/lisp/mh-e/mh-limit.el index 036522f3ddd..39cf7c5d271 100644 --- a/lisp/mh-e/mh-limit.el +++ b/lisp/mh-e/mh-limit.el @@ -1,4 +1,4 @@ -;;; mh-limit.el --- MH-E display limits +;;; mh-limit.el --- MH-E display limits -*- lexical-binding: t; -*- ;; Copyright (C) 2001-2003, 2006-2021 Free Software Foundation, Inc. @@ -25,8 +25,6 @@ ;; "Poor man's threading" by psg. -;;; Change Log: - ;;; Code: (require 'mh-e) @@ -237,7 +235,7 @@ Return number of messages put in the sequence: (setq list (cons (mh-get-msg-num t) list))) (if (assoc 'subject mh-seq-list) (mh-delete-seq 'subject)) ;; sort the result into a sequence - (let ((sorted-list (sort (copy-sequence list) 'mh-lessp))) + (let ((sorted-list (sort (copy-sequence list) #'mh-lessp))) (while sorted-list (mh-add-msgs-to-seq (car sorted-list) 'subject nil) (setq sorted-list (cdr sorted-list))) |