summaryrefslogtreecommitdiffhomepage
path: root/gnus.org
diff options
context:
space:
mode:
Diffstat (limited to 'gnus.org')
-rw-r--r--gnus.org12
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)