From 1d872e6092d657da9f60bacbfe5ae02079bf1339 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 17 Nov 2024 18:50:34 +1100 Subject: [emacs] Fix gnus navigation - q to bury buffer, rather than doing special funny things - my-gnus-open-inbox should not auto-open an article - gnus group mode should not go to next group on exit from summary --- emacs/.emacs.d/init/ycp-gnus.el | 4 +++- emacs/.emacs.d/lisp/my/my-gnus.el | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'emacs/.emacs.d') diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el index 305225f..f25d95a 100644 --- a/emacs/.emacs.d/init/ycp-gnus.el +++ b/emacs/.emacs.d/init/ycp-gnus.el @@ -151,7 +151,8 @@ "p" #'previous-line "m" #'my-gnus-group-compose "M-&" nil - "" #'my-gnus-topic-select-group) + "" #'my-gnus-topic-select-group + "q" #'bury-buffer) (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) ) @@ -182,6 +183,7 @@ ") (setq gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-date)) + (setq gnus-summary-next-group-on-exit nil) ) (my-package nnrss diff --git a/emacs/.emacs.d/lisp/my/my-gnus.el b/emacs/.emacs.d/lisp/my/my-gnus.el index e44e9c8..14dff82 100644 --- a/emacs/.emacs.d/lisp/my/my-gnus.el +++ b/emacs/.emacs.d/lisp/my/my-gnus.el @@ -162,7 +162,7 @@ The archiving target comes from `my-gnus-group-alist'." "The default inbox to be opened with `my-gnus-open-inbox'.") (defun my-gnus-open-inbox () (interactive) - (gnus-group-read-group t nil my-gnus-inbox-group)) + (gnus-group-read-group t t my-gnus-inbox-group)) (defun my-gnus-start () (interactive) -- cgit v1.2.3