[notmuch] [PATCH] notmuch.el: Prefix arg inverts the sort order of notmuch-search.
--- notmuch.el |3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/notmuch.el b/notmuch.el index 8f50abe..de9ddf8 100644 --- a/notmuch.el +++ b/notmuch.el @@ -1398,7 +1398,8 @@ characters as well as `_.+-'. (defun notmuch-search (query &optional oldest-first) "Run \"notmuch search\" with the given query string and display results." (interactive "sNotmuch search: ") - (let ((buffer (get-buffer-create (concat "*notmuch-search-" query "*" + (let ((buffer (get-buffer-create (concat "*notmuch-search-" query "*"))) + (oldest-first (if current-prefix-arg (not oldest-first) oldest-first))) (switch-to-buffer buffer) (notmuch-search-mode) (set 'notmuch-search-query-string query) -- 1.6.6.1
[notmuch] [PATCH] notmuch.el: Prefix arg inverts the sort order of notmuch-search.
--- notmuch.el |3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/notmuch.el b/notmuch.el index 8f50abe..de9ddf8 100644 --- a/notmuch.el +++ b/notmuch.el @@ -1398,7 +1398,8 @@ characters as well as `_.+-'. (defun notmuch-search (query &optional oldest-first) "Run \"notmuch search\" with the given query string and display results." (interactive "sNotmuch search: ") - (let ((buffer (get-buffer-create (concat "*notmuch-search-" query "*" + (let ((buffer (get-buffer-create (concat "*notmuch-search-" query "*"))) + (oldest-first (if current-prefix-arg (not oldest-first) oldest-first))) (switch-to-buffer buffer) (notmuch-search-mode) (set 'notmuch-search-query-string query) -- 1.6.6.1 ___ notmuch mailing list notmuch@notmuchmail.org http://notmuchmail.org/mailman/listinfo/notmuch