awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix removal of unread hook when filtering messages

Browse Source
This commit is contained in:
Max Nickel
2019-10-24 18:33:38 -04:00
parent 00ec885eaa
commit 5b3989f3e1
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/email/notmuch/autoload.el
View File

@ -119,7 +119,7 @@
(notmuch-show-refresh-view t)) (notmuch-show-refresh-view t))
;;;###autoload ;;;###autoload
(defun +notmuch-expand-only-unread-h () (defun +notmuch-show-expand-only-unread-h ()
(interactive) (interactive)
(let ((unread nil) (let ((unread nil)
(open (notmuch-show-get-message-ids-for-open-messages))) (open (notmuch-show-get-message-ids-for-open-messages)))
@ -127,7 +127,7 @@
(when (member "unread" (notmuch-show-get-tags)) (when (member "unread" (notmuch-show-get-tags))
(setq unread t)))) (setq unread t))))
(when unread (when unread
(let ((notmuch-show-hook (remove '+notmuch/expand-only-unread-hook notmuch-show-hook))) (let ((notmuch-show-hook (remove '+notmuch-show-expand-only-unread-h notmuch-show-hook)))
(notmuch-show-filter-thread "tag:unread"))))) (notmuch-show-filter-thread "tag:unread")))))
;; ;;

2
modules/email/notmuch/config.el
View File

@ -46,7 +46,7 @@
;; (setq-hook! 'notmuch-show-mode-hook line-spacing 0) ;; (setq-hook! 'notmuch-show-mode-hook line-spacing 0)
;; only unfold unread messages in thread by default ;; only unfold unread messages in thread by default
(add-hook 'notmuch-show-hook '+notmuch-expand-only-unread-h) (add-hook 'notmuch-show-hook '+notmuch-show-expand-only-unread-h)
(add-hook 'doom-real-buffer-functions #'notmuch-interesting-buffer) (add-hook 'doom-real-buffer-functions #'notmuch-interesting-buffer)