From 9c490d02512b86c95aa9020d000daba947415a74 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 15 May 2021 00:28:19 +0100 Subject: tweaks for in-buffer mode-line --- gnus.org | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'gnus.org') diff --git a/gnus.org b/gnus.org index 24818e5..4bca3f3 100644 --- a/gnus.org +++ b/gnus.org @@ -243,8 +243,9 @@ (defun jao-gnus--summary-done () (let ((inhibit-message t) (message-log-max nil)) - (jao-gnus--notify) - (save-window-excursion (org-agenda-list)))) + (save-window-excursion + (jao-gnus--notify) + (org-agenda-list)))) (add-hook 'gnus-summary-exit-hook #'jao-gnus--summary-done) @@ -463,12 +464,13 @@ "%%~(max-right 8)~(pad-left 8)&user-date;" "\n")) - (defun jao-gnus--set-summary-line () + (defun jao-gnus--set-summary-line (&optional w) (let* ((d (if jao-gnus-use-three-panes 75 12)) - (w (- (window-width) d))) + (w (- (or w (window-width)) d))) (setq gnus-summary-line-format (format jao-gnus--summary-line-fmt w)))) - (add-hook 'gnus-select-group-hook 'jao-gnus--set-summary-line) + ;; (add-hook 'gnus-select-group-hook 'jao-gnus--set-summary-line) + (jao-gnus--set-summary-line 190) (add-to-list 'nnmail-extra-headers 'Cc) (add-to-list 'nnmail-extra-headers 'BCc) -- cgit v1.2.3