notmuch-emacs notmuch-tag configuration

[David Wen Riccardi-Zhu <dwrz@dwrz.net>]

[-- Attachment #1.1: Type: text/plain, Size: 3314 bytes --]

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

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

[-- Attachment #1.2: Type: text/html, Size: 4421 bytes --]

[-- Attachment #2: Type: text/plain, Size: 0 bytes --]