summaryrefslogtreecommitdiff
path: root/gnus-conf.el
diff options
context:
space:
mode:
Diffstat (limited to 'gnus-conf.el')
-rw-r--r--gnus-conf.el6
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