diff options
author | Mark Walters <markwalters1009@gmail.com> | 2014-04-06 06:44:46 +0100 |
---|---|---|
committer | David Bremner <david@tethera.net> | 2014-04-11 10:26:30 -0300 |
commit | 5e26d14536398210869a920f8e7bb84fd2ace6aa (patch) | |
tree | 4ded8aca4b243824d92cda4ee808af4c1dd25e82 /emacs/notmuch.el | |
parent | 4767e89bc783ba01147a4adf545ee305809a46c9 (diff) |
emacs: hello: use the saved-search helper functions
This uses the helper functions: the saved searches format has not
changed yet but backwards compatibility means everything still works.
Diffstat (limited to 'emacs/notmuch.el')
-rw-r--r-- | emacs/notmuch.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/emacs/notmuch.el b/emacs/notmuch.el index 64295ac9..6c0bc1bc 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -827,14 +827,14 @@ See `notmuch-tag' for information on the format of TAG-CHANGES." (let (longest (longest-length 0)) (loop for tuple in notmuch-saved-searches - if (let ((quoted-query (regexp-quote (cdr tuple)))) + if (let ((quoted-query (regexp-quote (notmuch-saved-search-get tuple :query)))) (and (string-match (concat "^" quoted-query) query) (> (length (match-string 0 query)) longest-length))) do (setq longest tuple)) longest)) - (saved-search-name (car saved-search)) - (saved-search-query (cdr saved-search))) + (saved-search-name (notmuch-saved-search-get saved-search :name)) + (saved-search-query (notmuch-saved-search-get saved-search :query))) (cond ((and saved-search (equal saved-search-query query)) ;; Query is the same as saved search (ignoring case) (concat "*notmuch-saved-search-" saved-search-name "*")) |