summaryrefslogtreecommitdiffhomepage
path: root/custom/jao-custom-gnus.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2025-10-29 01:28:49 +0000
committerjao <jao@gnu.org>2025-10-29 01:28:49 +0000
commitbf1652da4ce8b03bf08763cbdc710458cfdf4cac (patch)
tree859cf3603d740ccd5b0e84685b597b25fa8f5dba /custom/jao-custom-gnus.el
parentbdfcb0c1119d4dee5d8fdff9f3c75ee5cb0ebe80 (diff)
downloadelibs-bf1652da4ce8b03bf08763cbdc710458cfdf4cac.tar.gz
elibs-bf1652da4ce8b03bf08763cbdc710458cfdf4cac.tar.bz2
gnus: geometry tweaks
Diffstat (limited to 'custom/jao-custom-gnus.el')
-rw-r--r--custom/jao-custom-gnus.el9
1 files changed, 4 insertions, 5 deletions
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)