summaryrefslogtreecommitdiffhomepage
path: root/attic/elisp/jao-notmuch-move.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2024-11-07 18:01:13 +0000
committerjao <jao@gnu.org>2024-11-07 18:01:13 +0000
commit4308710de811e3b4e2fb47f9024439df03e96b90 (patch)
treefb719224f99c57d6b2b9b0bd4257208f7d038dc4 /attic/elisp/jao-notmuch-move.el
parent5efb9fee7e72c8c514d08940e98f7eb24b90c374 (diff)
downloadelibs-4308710de811e3b4e2fb47f9024439df03e96b90.tar.gz
elibs-4308710de811e3b4e2fb47f9024439df03e96b90.tar.bz2
{if,when}-let deprecation in emacs 31
Diffstat (limited to 'attic/elisp/jao-notmuch-move.el')
-rw-r--r--attic/elisp/jao-notmuch-move.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/attic/elisp/jao-notmuch-move.el b/attic/elisp/jao-notmuch-move.el
index eb7ea4c..d4626bf 100644
--- a/attic/elisp/jao-notmuch-move.el
+++ b/attic/elisp/jao-notmuch-move.el
@@ -1,6 +1,6 @@
;;; jao-notmuch-move.el --- Move messages around in notmuch -*- lexical-binding: t; -*-
-;; Copyright (C) 2021 jao
+;; Copyright (C) 2021, 2024 jao
;; Author: jao <mail@jao.io>
;; Keywords: mail
@@ -37,9 +37,9 @@
(user-error "Message not in any registered mailbox!")))
(defun jao-notmuch--msg-props ()
- (if-let ((p (save-excursion
- (beginning-of-line)
- (text-property-search-forward :notmuch-message-properties))))
+ (if-let* ((p (save-excursion
+ (beginning-of-line)
+ (text-property-search-forward :notmuch-message-properties))))
(prop-match-value p)
(user-error "No message at point")))