From 8924718c097dbcd4ae3f9a5c2e7a5e2bdb693233 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Fri, 29 Mar 2024 23:57:49 -0400 Subject: Yearly archives for kelar mail using Gnus' mail expiring HOWTO: In 'summary' buffers, hit 'E' to mark message for expiring. After 'nnmail-expiry-wait' days (default: 7), Gnus will move the message to the expiry target, in this case the 'Archive.yyyy' group. --- .emacs.d/lisp/bandali-gnus.el | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/.emacs.d/lisp/bandali-gnus.el b/.emacs.d/lisp/bandali-gnus.el index ceba4e1..2558d24 100644 --- a/.emacs.d/lisp/bandali-gnus.el +++ b/.emacs.d/lisp/bandali-gnus.el @@ -60,7 +60,11 @@ (nnimap-address "127.0.0.1") (nnimap-server-port 143) (nnimap-authenticator plain) - (nnimap-user "bandali@kelar.local")) + (nnimap-user "bandali@kelar.local") + ;; (nnmail-expiry-wait immediate) + (nnmail-expiry-target nnmail-fancy-expiry-target) + (nnmail-fancy-expiry-targets + (("from" ".*" "nnimap+kelar:Archive.%Y")))) (nnimap "shemshak" (nnimap-stream plain) @@ -154,20 +158,14 @@ (nnimap-user "amin.bandali@savoirfairelinux.local"))) gnus-message-archive-group "nnimap+gnu:INBOX" gnus-parameters - '(("l\\.deepspec" - (to-address . "deepspec@lists.cs.princeton.edu") - (to-list . "deepspec@lists.cs.princeton.edu") - (list-identifier . "\\[deepspec\\]")) - ("l\\.fencepost-users" + '(("l\\.fencepost-users" (to-address . "fencepost-users@gnu.org") (to-list . "fencepost-users@gnu.org") (list-identifier . "\\[Fencepost-users\\]")) ("l\\.haskell-cafe" (to-address . "haskell-cafe@haskell.org") (to-list . "haskell-cafe@haskell.org") - (list-identifier . "\\[Haskell-cafe\\]")) - ("gnu.*" - (gcc-self . t))) + (list-identifier . "\\[Haskell-cafe\\]"))) ;; nnimap-record-commands t ;; gnus-large-newsgroup 50 ;; gnus-process-mark-toggle t -- cgit v1.2.3-60-g2f50