summaryrefslogtreecommitdiff
path: root/gnus-conf.el
diff options
context:
space:
mode:
Diffstat (limited to 'gnus-conf.el')
-rw-r--r--gnus-conf.el20
1 files changed, 17 insertions, 3 deletions
diff --git a/gnus-conf.el b/gnus-conf.el
index 3affe4f..6d6a3ce 100644
--- a/gnus-conf.el
+++ b/gnus-conf.el
@@ -282,8 +282,20 @@ no loss in removing this group from other variables."
(list 'interactive)
(list 'durand-gnunque query)))
-;; Protesilaos' mails
-(durand-gnus-save-query "prot" "from:prot* or to:prot*")
+;; Protesilaos' non-list mails
+(durand-gnus-save-query "prot"
+ "(from:Protesilaos.*Stavrou.*public@protesilaos* or \
+to:Protesilaos.*Stavrou.*public@protesilaos*) and not \
+from:~protesilaos/.*@lists.sr.ht and not \
+to:~protesilaos/.*@lists.sr.ht")
+
+;; All Protesilaos' mails
+(durand-gnus-save-query "prot-all" "from:prot* or to:prot*")
+
+;; Mailing lists from Protesilaos
+(durand-gnus-save-query "prot-lists"
+ "from:~protesilaos/.*@lists.sr.ht or \
+to:~protesilaos/.*@lists.sr.ht")
;; From my professors
(durand-gnus-save-query "minglung"
@@ -298,7 +310,9 @@ or from:u1991123* or to:u1991123*")
;;;; bind in gnus group buffer
-(define-key gnus-group-mode-map (vector ?v ?p) #'durand-gnus-view-prot)
+(define-key gnus-group-mode-map (vector ?v ?p ?p) #'durand-gnus-view-prot)
+(define-key gnus-group-mode-map (vector ?v ?p ?m) #'durand-gnus-view-prot-lists)
+(define-key gnus-group-mode-map (vector ?v ?p ?a) #'durand-gnus-view-prot-all)
(define-key gnus-group-mode-map (vector ?v ?m) #'durand-gnus-view-minglung)
(define-key gnus-group-mode-map (vector ?v ?t) #'durand-gnus-view-tan)
(define-key gnus-group-mode-map (vector ?v ?f) #'durand-gnus-view-friends)