diff options
| author | JSDurand <mmemmew@gmail.com> | 2023-06-09 11:56:42 +0800 |
|---|---|---|
| committer | JSDurand <mmemmew@gmail.com> | 2023-06-09 11:56:42 +0800 |
| commit | d2dc1d248f5798c78dad4c68e18e806ffe5683b6 (patch) | |
| tree | ff781413f8da94293c89e33e47dccf6a2fdc19bc | |
| parent | 89a2d18e840e00ffaa949ed9401d41251ac45e31 (diff) | |
gnus: bind 'e' to expire articles in group mode
* gnus-conf.el (durand-gnus-expire): Just call `gnus-agent-expire`
with parameters t, nil, and t respectively.
(gnus-group-mode-map): Bind `durand-gnus-expire` to 'e' to
conveniently expire articles.
| -rw-r--r-- | gnus-conf.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gnus-conf.el b/gnus-conf.el index 6d6a3ce..6f2f927 100644 --- a/gnus-conf.el +++ b/gnus-conf.el @@ -155,7 +155,13 @@ (add-hook 'durand-mail-update-hook #'notmuch-poll) +(defun durand-gnus-expire () + "Expire all articles." + (interactive) + (gnus-agent-expire t nil t)) + (define-key gnus-group-mode-map (vector 117) #'durand-mail-update) +(define-key gnus-group-mode-map (vector 101) #'durand-gnus-expire) (define-key global-map (vector ?\C-c ?g) 'gnus) ;;; Use notmuch to search mails |