diff options
| author | jao <jao@gnu.org> | 2026-08-25 21:11:27 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-08-25 21:11:27 +0100 |
| commit | ca31697cc95491c19ff257c29bdab3b88d043b09 (patch) | |
| tree | bc14b9744c783dd1121b36ffadf21e3d7dc0bb7a /lib/net/jao-notmuch-gnus.el | |
| parent | dba7a443d0edb88869c4df70622543a465cf9304 (diff) | |
| download | elibs-ca31697cc95491c19ff257c29bdab3b88d043b09.tar.gz elibs-ca31697cc95491c19ff257c29bdab3b88d043b09.tar.bz2 | |
emacs 31main
Diffstat (limited to 'lib/net/jao-notmuch-gnus.el')
| -rw-r--r-- | lib/net/jao-notmuch-gnus.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lib/net/jao-notmuch-gnus.el b/lib/net/jao-notmuch-gnus.el index aa63d7c..9a17841 100644 --- a/lib/net/jao-notmuch-gnus.el +++ b/lib/net/jao-notmuch-gnus.el @@ -1,6 +1,6 @@ ;;; jao-notmuch-gnus.el --- notmuch-gnus interoperability -*- lexical-binding: t; -*- -;; Copyright (C) 2022, 2024, 2025 jao +;; Copyright (C) 2022, 2024, 2025, 2026 jao ;; Author: jao <mail@jao.io> ;; Keywords: mail @@ -62,7 +62,7 @@ (defun jao-notmuch-gnus-show-tags () "Display in the echo area the tags of the current message." (interactive) - (when-let (id (jao-notmuch-gnus-message-id)) + (when-let* ((id (jao-notmuch-gnus-message-id))) (message "%s" (string-join (jao-notmuch-gnus-message-tags id) " ")))) (jao-transient-major-mode+ gnus-summary @@ -82,7 +82,7 @@ (defun jao-notmuch-gnus-tag-mark () "Remove the new and unread tags for an article when it's marked as seen by Gnus." - (when-let (id (jao-notmuch-gnus-message-id t)) + (when-let* ((id (jao-notmuch-gnus-message-id t))) (jao-notmuch-gnus-tag-message id '("-new" "-unread") t))) (add-hook 'gnus-mark-article-hook #'jao-notmuch-gnus-tag-mark) @@ -220,12 +220,12 @@ Example: (org-gnus-follow-link group id))) (defun jao-notmuch-gnus-org-store () - (when-let (d (or (when (derived-mode-p 'notmuch-show-mode 'notmuch-tree-mode) - (cons (notmuch-show-get-message-id) - (notmuch-show-get-subject))) - (when (derived-mode-p 'gnus-summary-mode 'gnus-article-mode) - (cons (jao-notmuch-gnus-message-id) - (gnus-summary-article-subject))))) + (when-let* ((d (or (when (derived-mode-p 'notmuch-show-mode 'notmuch-tree-mode) + (cons (notmuch-show-get-message-id) + (notmuch-show-get-subject))) + (when (derived-mode-p 'gnus-summary-mode 'gnus-article-mode) + (cons (jao-notmuch-gnus-message-id) + (gnus-summary-article-subject)))))) (org-link-store-props :type "mail" :link (concat "mail:" (car d)) :description (concat "Mail: " (cdr d))))) |