diff options
| -rw-r--r-- | gnus-conf.el | 20 |
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) |