From bf1652da4ce8b03bf08763cbdc710458cfdf4cac Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 29 Oct 2025 01:28:49 +0000 Subject: gnus: geometry tweaks --- custom/jao-custom-gnus.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'custom/jao-custom-gnus.el') diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el index ff7390f..7483e39 100644 --- a/custom/jao-custom-gnus.el +++ b/custom/jao-custom-gnus.el @@ -87,8 +87,7 @@ ,side-bar))))) (defun jao-gnus-use-two-panes () - (let ((wide-len jao-gnus-wide-width) - (groups-len jao-gnus-groups-width) + (let ((groups-len jao-gnus-groups-width) (summary-len (- jao-gnus-wide-width jao-gnus-groups-width)) (msg-edit '(horizontal 1.0 (message 1.0 point) @@ -123,9 +122,7 @@ (gnus-add-configuration `(reply-yank ,msg-edit)) (gnus-add-configuration - `(reply (horizontal 1.0 - (message ,(- wide-len 100) point) - (article 1.0)))))) + `(reply (horizontal 1.0 (message 0.5 point) (article 1.0)))))) (if jao-gnus-use-three-panes (jao-gnus-use-three-panes) @@ -659,10 +656,12 @@ (defun jao-gnus-add-demon () (interactive) + (message "Adding scan demon for Gnus...") (gnus-demon-add-handler 'jao-gnus--scan 5 1)) (defun jao-gnus-remove-demon () (interactive) + (message "Removing scan demon for Gnus...") (gnus-demon-remove-handler 'jao-gnus--scan)) (jao-gnus-add-demon) -- cgit v1.2.3