diff options
Diffstat (limited to 'custom/jao-custom-notmuch.el')
| -rw-r--r-- | custom/jao-custom-notmuch.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 7b1540f..42d9e12 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -60,7 +60,7 @@ (defun jao-notmuch-tree-widen-search () (interactive) - (when-let* ((query (notmuch-tree-get-query))) + (when-let ((query (notmuch-tree-get-query))) (let ((notmuch-show-process-crypto (notmuch-tree--message-process-crypto))) (notmuch-tree-close-message-window) (notmuch-tree (string-replace jao-notmuch--newa "" query))))) @@ -73,7 +73,7 @@ searches)) (defun jao-notmuch-hello--insert-searches (searches title) - (when-let* ((searches (notmuch-hello-query-counts searches))) + (when-let (searches (notmuch-hello-query-counts searches)) (let* ((cnt (when title (seq-reduce (lambda (c q) (+ c (or (plist-get q :count) 0))) @@ -348,7 +348,7 @@ (if (not (search-forward "Enclosure:" nil t)) (user-error "No enclosure in message body") (re-search-forward "https?://" nil t) - (if-let* ((url (thing-at-point-url-at-point))) + (if-let (url (thing-at-point-url-at-point)) (progn (message "%s %s ..." (if add "Adding" "Playing") url) (unless add (jao-mpc-clear)) @@ -363,7 +363,7 @@ "quant-ph updates on arXiv.org: "))) (defun jao-mail-clean-address (args) - (when-let* ((address (car args))) + (when-let ((address (car args))) (list (thread-last (replace-regexp-in-string jao-mail-clean-rx "" address) (replace-regexp-in-string " " ", "))))) @@ -430,8 +430,8 @@ (defun jao-notmuch-browse-url (ext) (interactive "P") - (when-let* ((url (or (jao-notmuch--via-url) - (car (last (jao-notmuch-message-urls)))))) + (when-let (url (or (jao-notmuch--via-url) + (car (last (jao-notmuch-message-urls))))) (funcall (if ext browse-url-secondary-browser-function #'browse-url) url))) |