diff options
Diffstat (limited to 'attic/elisp/nnnm.el')
| -rw-r--r-- | attic/elisp/nnnm.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/attic/elisp/nnnm.el b/attic/elisp/nnnm.el index 8a4185f..552e95c 100644 --- a/attic/elisp/nnnm.el +++ b/attic/elisp/nnnm.el @@ -1,6 +1,6 @@ ;;; nnnm.el --- Gnus backend for notmuch -*- lexical-binding: t; -*- -;; Copyright (C) 2021, 2024 jao +;; Copyright (C) 2021 jao ;; Author: jao <mail@jao.io> ;; Keywords: mail @@ -47,8 +47,8 @@ (defun nnnm--find-query (name) - (when-let* ((s (seq-find (lambda (s) (string= (plist-get s :name) name)) - nnnm-saved-searches))) + (when-let (s (seq-find (lambda (s) (string= (plist-get s :name) name)) + nnnm-saved-searches)) (plist-get s :query))) (defun nnnm--find-message-file (id) @@ -60,11 +60,11 @@ (defun nnnm--article-data (article group) (cond ((stringp article) (list article)) ((numberp article) - (when-let* ((data (nnnm--group-data group))) + (when-let (data (nnnm--group-data group)) (elt data (1- article)))))) (defun nnnm-article-to-file (article group) - (when-let* ((d (nnnm--article-data article group))) + (when-let (d (nnnm--article-data article group)) (or (cadr d) (nnnm--find-message-file (car d))))) (defun nnnm--count (query &optional context) @@ -117,7 +117,7 @@ (gnus-set-active (nnnm--prefixed group server) (cons 1 n))) (defun nnnm--update-group-data (group &optional server) - (when-let* ((query (nnnm--find-query group))) + (when-let (query (nnnm--find-query group)) (let* ((data (or (nnnm--group-data group) (mapcar #'list (nnnm--search query "NOT tag:new")))) (ids (nnnm--search query "tag:new")) @@ -158,7 +158,7 @@ (with-current-buffer nntp-server-buffer (erase-buffer) (dolist (s nnnm-saved-searches) - (when-let* ((query (plist-get s :query))) + (when-let (query (plist-get s :query)) (let ((name (plist-get s :name)) (total (nnnm--count query))) (insert (format "%s %d 1 y\n" name total)))))) @@ -173,7 +173,7 @@ (if (stringp (car sequence)) 'headers (dolist (article sequence) - (when-let* ((file (nnnm-article-to-file article group))) + (when-let (file (nnnm-article-to-file article group)) (insert (format "221 %d Article retrieved.\n" article)) (save-excursion (nnheader-insert-head file)) (if (re-search-forward "\n\r?\n" nil t) |