Create a notmuch-sort-orders alist to be shared between notmuch-search-sort-orders and notmuch-change-search-order --- emacs/notmuch-lib.el | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-)
diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index ee7b67d3..16725863 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -92,6 +92,14 @@ $PATH)." :type 'string :group 'notmuch-external) +(setq notmuch-sort-orders + '(("Oldest-first" . oldest-first) + ("Newest-first" . newest-first) + ("Subject-ascending" . subject-ascending) + ("Subject-descending" . subject-descending) + ("From-ascending" . from-ascending) + ("From-descending" . from-descending))) + (defcustom notmuch-search-sort-order 'oldest-first "Show the oldest mail first when searching. @@ -99,13 +107,10 @@ This variable defines the default sort order for displaying search results. Note that any filtered searches created by `notmuch-search-filter' retain the search order of the parent search." - :type '(choice :tag " Sort Order" - (const :tag "Oldest-first" oldest-first) - (const :tag "Newest-first" newest-first) - (const :tag "Subject-ascending" subject-ascending) - (const :tag "Subject-descending" subject-descending) - (const :tag "From-ascending" from-ascending) - (const :tag "From-descending" from-descending)) + :type (append '(choice :tag " Sort Order") + (mapcar (lambda (pair) + `(const :tag ,(car pair) ,(cdr pair))) + notmuch-sort-orders)) :group 'notmuch-search) (defcustom notmuch-poll-script nil -- 2.13.2 _______________________________________________ notmuch mailing list notmuch@notmuchmail.org https://notmuchmail.org/mailman/listinfo/notmuch