From ff800d1d3fae9ac1bc1bd3723364f89776632148 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 21 Jul 2021 21:47:05 +0100
Subject: gnus: user-format function to clean up From in summary lines

---
 gnus.org | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'gnus.org')

diff --git a/gnus.org b/gnus.org
index 322adf9..acac7ec 100644
--- a/gnus.org
+++ b/gnus.org
@@ -390,7 +390,7 @@
     #+end_src
 * Group parameters
   #+begin_src emacs-lisp
-    (setq gnus-permanently-visible-groups "^nnselect:.*-today")
+    (setq gnus-permanently-visible-groups "^nnselect:.*")
 
     (setq gnus-parameters
           `(("^nnimap:jao/.*"
@@ -467,7 +467,7 @@
       (setq gnus-not-empty-thread-mark ?·) ; ↓)
       (setq jao-gnus--summary-line-fmt
             (concat "%%U %%*%%R %%uj "
-                    "[ %%~(max-right 23)~(pad-right 23)n "
+                    "[ %%~(max-right 23)~(pad-right 23)uf "
                     " %%I%%~(pad-left 2)t ] %%s"
                     "%%-%s="
                     "%%~(max-right 8)~(pad-left 8)&user-date;"
@@ -503,6 +503,11 @@
                 "¬" ;; "~"
               " "))))
 
+      (defun gnus-user-format-function-f (headers)
+        (let* ((from (gnus-header-from headers))
+               (from (gnus-summary-extract-address-component from)))
+          (replace-regexp-in-string "ElDiario\\.es *\\|The Guardian: *" "" from)))
+
       (setq gnus-user-date-format-alist
             '(((gnus-seconds-today) . "%H:%M")
               ((+ 86400 (gnus-seconds-today)) . "'%H:%M")
-- 
cgit v1.2.3