debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 04:18:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

contrib: pick: remove sync parser

Browse source 
Previously pick had the option of using an async parser like search or
a sync parser like show. The async parser has always been the default
and it seems fine so we can remove the sync one and the corresponding
defcustom.
This commit is contained in:
Mark Walters 2013-08-26 20:57:22 +01:00 committed by David Bremner
parent dd8ea3203c
commit a56449c24c
1 changed files with 11 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
contrib/notmuch-pick/notmuch-pick.el
View file

@ -77,11 +77,6 @@
:type '(alist :key-type (string) :value-type (string)) :type '(alist :key-type (string) :value-type (string))
:group 'notmuch-pick) :group 'notmuch-pick)
(defcustom notmuch-pick-asynchronous-parser t
"Use the asynchronous parser."
:type 'boolean
:group 'notmuch-pick)
;; Faces for messages that match the query. ;; Faces for messages that match the query.
(defface notmuch-pick-match-date-face (defface notmuch-pick-match-date-face
'((t :inherit default)) '((t :inherit default))
@ -817,7 +812,6 @@ Complete list of currently available key bindings:
(message-arg "--entire-thread")) (message-arg "--entire-thread"))
(if (equal (car (process-lines notmuch-command "count" search-args)) "0") (if (equal (car (process-lines notmuch-command "count" search-args)) "0")
(setq search-args basic-query)) (setq search-args basic-query))
(if notmuch-pick-asynchronous-parser
(let ((proc (notmuch-start-notmuch (let ((proc (notmuch-start-notmuch
"notmuch-pick" buffer #'notmuch-pick-process-sentinel "notmuch-pick" buffer #'notmuch-pick-process-sentinel
"show" "--body=false" "--format=sexp" "show" "--body=false" "--format=sexp"
@ -828,15 +822,7 @@ Complete list of currently available key bindings:
(parse-buf (generate-new-buffer " *notmuch pick parse*"))) (parse-buf (generate-new-buffer " *notmuch pick parse*")))
(process-put proc 'parse-buf parse-buf) (process-put proc 'parse-buf parse-buf)
(set-process-filter proc 'notmuch-pick-process-filter) (set-process-filter proc 'notmuch-pick-process-filter)
(set-process-query-on-exit-flag proc nil)) (set-process-query-on-exit-flag proc nil))))
(progn
(notmuch-pick-insert-forest
(notmuch-query-get-threads
(list "--body=false" message-arg search-args)))
(save-excursion
(goto-char (point-max))
(insert "End of search results.\n"))))))
(defun notmuch-pick (&optional query query-context target buffer-name open-target) (defun notmuch-pick (&optional query query-context target buffer-name open-target)
"Run notmuch pick with the given `query' and display the results. "Run notmuch pick with the given `query' and display the results.