diff options
| author | jao <jao@gnu.org> | 2024-11-12 18:58:14 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2024-11-12 18:58:14 +0000 |
| commit | 418212e4eb963813c078cf290cddfe7e3defd7ed (patch) | |
| tree | 3c265c395b0afe67f88f5e18a34f368a88f970d6 /lib/net/jao-notmuch-gnus.el | |
| parent | 8ddc2d688cd37693320e46aa3d35d72f06e5bab3 (diff) | |
| download | elibs-418212e4eb963813c078cf290cddfe7e3defd7ed.tar.gz elibs-418212e4eb963813c078cf290cddfe7e3defd7ed.tar.bz2 | |
Revert "{if,when}-let deprecation in emacs 31"
This reverts commit 4308710de811e3b4e2fb47f9024439df03e96b90.
Diffstat (limited to 'lib/net/jao-notmuch-gnus.el')
| -rw-r--r-- | lib/net/jao-notmuch-gnus.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/net/jao-notmuch-gnus.el b/lib/net/jao-notmuch-gnus.el index 1a03613..f5cc3b2 100644 --- a/lib/net/jao-notmuch-gnus.el +++ b/lib/net/jao-notmuch-gnus.el @@ -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) " ")))) (defun jao-notmuch-gnus-toggle-tags (tags &optional id current) @@ -77,7 +77,7 @@ (defun jao-notmuch-gnus-tag-mark () "Remove the new tag 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") t))) (add-hook 'gnus-mark-article-hook #'jao-notmuch-gnus-tag-mark) @@ -191,12 +191,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))))) |