summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-06-08 02:53:33 +0100
committerjao <jao@gnu.org>2021-06-08 02:53:33 +0100
commit5f6426fd240bd2e1048e920d4e1016829785c724 (patch)
tree5236ac87edfc340ed9aa772adf03bc303f1b70ec
parent63c7742de1cb4ec8d63abd6f8553367531d3847d (diff)
downloadelibs-5f6426fd240bd2e1048e920d4e1016829785c724.tar.gz
elibs-5f6426fd240bd2e1048e920d4e1016829785c724.tar.bz2
notmuch nits
-rw-r--r--email.org22
1 files changed, 14 insertions, 8 deletions
diff --git a/email.org b/email.org
index fb0a2c1..2e3e5af 100644
--- a/email.org
+++ b/email.org
@@ -374,12 +374,12 @@
(setq notmuch-saved-searches
`(,(jao-notmuch--q "bigml" "inbox" "bi")
- ,@(jao-notmuch--mboxes-search "bigml" "inbox" "deploys")
+ ,@(jao-notmuch--mboxes-search "bigml" "inbox")
,(jao-notmuch--q "jao" "inbox" "ji")
,@(jao-notmuch--mboxes-search "jao" "inbox")
,@(jao-notmuch--mboxes-search "feeds")
,(jao-notmuch--q "gmane/emacs" nil "e"
- '("tag:gmane" "tag:new" "List:emacs"))
+ '("tag:gmane" "tag:new" "tag:emacs"))
,(jao-notmuch--q "gmane" nil "g" '("tag:gmane" "tag:new"))
,(jao-notmuch--q "bml/today" nil "tb" '("tag:bigml" "date:1d..") t)
,(jao-notmuch--q "jao/today" nil "tj" '("tag:jao" "date:1d..") t)
@@ -427,6 +427,12 @@
(interactive)
(save-window-excursion (org-agenda-list)))
+ (defun jao-notmuch-hello-first ()
+ (interactive)
+ (let ((inhibit-message t))
+ (beginning-of-buffer)
+ (widget-forward 2)))
+
(defun jao-notmuch-refresh-hello ()
(interactive)
(ignore-errors
@@ -434,9 +440,7 @@
(derived-mode-p 'notmuch-hello-mode))
(when (not (string-blank-p jao-notmuch-minibuffer-string))
(let ((notmuch-hello-auto-refresh nil)) (notmuch-hello)))
- (let ((inhibit-message t))
- (beginning-of-buffer)
- (widget-forward 2)))))
+ (jao-notmuch-hello-first))))
(defun jao-notmuch-open-enclosure (add)
(interactive "P")
@@ -460,6 +464,7 @@
(("a" . jao-notmuch-refresh-agenda)
("S" . consult-notmuch)
("g" . jao-notmuch-refresh-hello)
+ ("." . jao-notmuch-hello-first)
("SPC" . widget-button-press))
:map notmuch-common-keymap
(("E" . jao-notmuch-open-enclosure))))
@@ -541,7 +546,8 @@
"Next message or thread in forest or exit if none."
(interactive "P")
(if thread
- (notmuch-tree-next-thread)
+ (progn (notmuch-tree-next-thread)
+ (notmuch-tree-show-message nil))
(notmuch-tree-next-matching-message (not no-exit)))
(jao-notmuch-tree-update-buffer-name))
@@ -617,8 +623,8 @@
("h" . jao-notmuch-goto-message-buffer)
("H" . jao-notmuch-click-message-buffer)
("i" . jao-notmuch-toggle-images)
- ("k" . jao-notmuch-tag-jump-and-next)
- ("K" . jao-notmuch-tree-read-thread)
+ ("K" . jao-notmuch-tag-jump-and-next)
+ ("k" . jao-notmuch-tree-read-thread)
("n" . jao-notmuch-tree-next)
("RET" . jao-notmuch-tree-show-or-scroll)
("SPC" . jao-notmuch-tree-scroll-or-next))