emacs: do not modify the alist passed to notmuch-sort-saved-searches

[notmuch] / emacs / notmuch-hello.el

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index e9caade5d4c1e6ad5fe2f6d76c63182d527c9212..6b4b2c14de5cd16fc1a2c74da4f199c228ea19e7 100644 (file)
--- 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))