tweaks for in-buffer mode-line

1 files changed, 7 insertions, 5 deletions

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)