diff options
| -rw-r--r-- | custom/jao-custom-notmuch.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 19bb0da..7e6bd32 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -266,12 +266,7 @@ (defun jao-notmuch-refresh-agenda () (interactive) - (save-window-excursion (org-agenda-list)) - (let ((b (current-buffer))) - (pop-to-buffer "*Calendar*") - (goto-char (point-min)) - (calendar-goto-today) - (pop-to-buffer b))) + (save-window-excursion (org-agenda-list))) (defun jao-notmuch-hello-first () (interactive) @@ -286,7 +281,9 @@ (derived-mode-p 'notmuch-hello-mode)) (when (not (string-blank-p jao-notmuch-minibuffer-string)) (let ((notmuch-hello-auto-refresh nil)) (notmuch-hello))) - (when agenda (jao-notmuch-refresh-agenda)) + (save-window-excursion + (calendar) + (when agenda (org-agenda-list))) (unless (widget-at) (jao-notmuch-hello-first))))) (defvar jao-notmuch-hello--sec-rx "^\\(\\[ [0-9]+\\|All tags:.+\\)") |