Re: notmuch-emacs notmuch-tag configuration

[Tomi Ollila <tomi.ollila@iki.fi>]

On Tue, Jun 15 2021, David Wen Riccardi-Zhu wrote:

> I'm using notmuch 0.32.1, Emacs 27.2, and version 20210605.1839 of
> notmuch-emacs. When I try to mark a message as read using a custom
> keybinding, I'm getting the following error:
>
> notmuch-tag: Symbol’s function definition is void: query

I recall some related/relevant/whatornot lexical-binding talk...

Also, this is mentioned in latest NEWS (for 0.32.1):

  Emacs
  -----

  Restore the dynamically bound variables `tag-changes` and `query` in
  in `notmuch-before-tag-hook` and `notmuch-after-tag-hook`.

may or may not help. no time to dig deeper for now :D


Tomi


>
> Here's the backtrace:
>
> Debugger entered--Lisp error: (void-function query)
>   query("(id:pX7JAnfzR_GtdCfx1KGqCA@geopod-ismtpd-4-0)")
>   notmuch-tag("(id:pX7JAnfzR_GtdCfx1KGqCA@geopod-ismtpd-4-0)" ("-new"
> "-unread"))
>   notmuch-search-tag(("-new" "-unread"))
>   (lambda nil "unmark message as new and unread" (interactive)
> (notmuch-search-tag (list "-new" "-unread")) (forward-line))()
>   funcall-interactively((lambda nil "unmark message as new and unread"
> (interactive) (notmuch-search-tag (list "-new" "-unread")) (forward-line)))
>   call-interactively((lambda nil "unmark message as new and unread"
> (interactive) (notmuch-search-tag (list "-new" "-unread")) (forward-line))
> nil nil)
>   command-execute((lambda nil "unmark message as new and unread"
> (interactive) (notmuch-search-tag (list "-new" "-unread")) (forward-line)))
>
> And following is my notmuch-emacs configuration:
>
> (with-eval-after-load 'notmuch
>   (customize-set-variable 'notmuch-search-oldest-first nil)
>   (setq notmuch-address-command 'internal
>         notmuch-address-internal-completion '(sent nil)
>         notmuch-address-save-filename "~/some/dir/file"
>         notmuch-address-use-company t
>         notmuch-crypto-process-mime t
>         notmuch-fcc-dirs "sent"
>         notmuch-hello-hide-tags '("killed"))
>   ;; Search tags
>   (setq notmuch-saved-searches
>         '((:name "inbox" :query "tag:inbox" :key "i")
>           (:name "unread" :query "tag:unread" :key "u")
>           (:name "new" :query "tag:new" :key "n")
>           (:name "sent" :query "tag:sent" :key "e")
>           (:name "drafts" :query "tag:draft" :key "d")
>           (:name "all mail" :query "*" :key "a")
>           (:name "todo" :query "tag:todo" :key "t")))
>   ;; Keybindings
>   (define-key notmuch-search-mode-map "S"
>     (lambda ()
>       "mark message as spam"
>       (interactive)
>       (notmuch-search-tag (list "-new" "-unread" "-inbox" "+spam"))
>       (forward-line)))
>   (define-key notmuch-show-mode-map "S"
>     (lambda ()
>       "mark message as spam"
>       (interactive)
>       (notmuch-show-tag (list "-new" "-unread" "-inbox" "+spam"))))
>   (define-key notmuch-search-mode-map "N"
>     (lambda ()
>       "unmark message as new and unread"
>       (interactive)
>       (notmuch-search-tag (list "-new" "-unread"))
>       (forward-line)))
>   (define-key notmuch-show-mode-map "N"
>     (lambda ()
>       "unmark message as new and unread"
>       (interactive)
>       (notmuch-show-tag (list "-new" "-unread"))))
>   (define-key notmuch-show-mode-map "r" 'notmuch-show-reply)
>   (define-key notmuch-show-mode-map "R" 'notmuch-show-reply-sender)
>   (define-key notmuch-search-mode-map "r" 'notmuch-search-reply-to-thread)
>   (define-key notmuch-search-mode-map "R"
>     'notmuch-search-reply-to-thread-sender))
>
> I'm a little confused as to why this isn't working -- I don't believe that
> my configuration has strayed from what's listed in the online documentation.
>
> Any insights? I don't know Emacs Lisp well enough to understand why query
> is a void function.
>
> Many thanks!
>
> David
> _______________________________________________
> notmuch mailing list -- notmuch@notmuchmail.org
> To unsubscribe send an email to notmuch-leave@notmuchmail.org