X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-hello.el;h=6b4b2c14de5cd16fc1a2c74da4f199c228ea19e7;hp=e9caade5d4c1e6ad5fe2f6d76c63182d527c9212;hb=052000f85ae2e75efdf882a7fd15ef5698001c42;hpb=2ee1d8e1c70ce20728bc3faada389a4802636352 diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index e9caade5..6b4b2c14 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -41,7 +41,7 @@ (defun notmuch-sort-saved-searches (alist) "Generate an alphabetically sorted saved searches alist." - (sort alist (lambda (a b) (string< (car a) (car b))))) + (sort (copy-sequence alist) (lambda (a b) (string< (car a) (car b))))) (defcustom notmuch-saved-search-sort-function nil "Function used to sort the saved searches for the notmuch-hello view. @@ -461,7 +461,7 @@ Such a list can be computed with `notmuch-hello-query-counts'." ;; just insert `(- widest (length name))' spaces - the ;; column separator is included in the button if ;; `(equal widest (length name)'. - (widget-insert (make-string (max 1 + (widget-insert (make-string (max 0 (- widest (length name))) ? ))))) (setq count (1+ count))