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 /custom/jao-custom-email.el | |
| parent | 8ddc2d688cd37693320e46aa3d35d72f06e5bab3 (diff) | |
| download | elibs-418212e4eb963813c078cf290cddfe7e3defd7ed.tar.gz elibs-418212e4eb963813c078cf290cddfe7e3defd7ed.tar.bz2 | |
Revert "{if,when}-let deprecation in emacs 31"main
This reverts commit 4308710de811e3b4e2fb47f9024439df03e96b90.
Diffstat (limited to 'custom/jao-custom-email.el')
| -rw-r--r-- | custom/jao-custom-email.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/custom/jao-custom-email.el b/custom/jao-custom-email.el index dd898ad..a3d1a92 100644 --- a/custom/jao-custom-email.el +++ b/custom/jao-custom-email.el @@ -69,8 +69,8 @@ (defun jao-message-insert-bcc () (when jao-notmuch-enabled (let ((f (or (message-fetch-field "From") ""))) - (when-let* ((b (seq-some (lambda (x) (when (string-match-p (car x) f) (cdr x))) - jao-message--bcc-alist))) + (when-let (b (seq-some (lambda (x) (when (string-match-p (car x) f) (cdr x))) + jao-message--bcc-alist)) (insert "Bcc: " b "\n"))))) ;; (when jao-notmuch-enabled @@ -170,7 +170,7 @@ (save-excursion (save-restriction (message-narrow-to-headers) - (when-let* ((to (message-fetch-field "To"))) + (when-let ((to (message-fetch-field "To"))) (when (string-match-p jao-mails-regexp to) (unless (y-or-n-p "Message is addressed to yourself. Continue?") (error "Message not sent"))))))) |