diff options
| author | jao <jao@gnu.org> | 2021-07-21 21:47:05 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-07-21 21:47:05 +0100 |
| commit | ff800d1d3fae9ac1bc1bd3723364f89776632148 (patch) | |
| tree | 7d32b40b20763de79c437cabbf61fdf9b9a74b6d /gnus.org | |
| parent | 851919cedae3b984700f5d42d93ce4fb427a39de (diff) | |
| download | elibs-ff800d1d3fae9ac1bc1bd3723364f89776632148.tar.gz elibs-ff800d1d3fae9ac1bc1bd3723364f89776632148.tar.bz2 | |
gnus: user-format function to clean up From in summary lines
Diffstat (limited to 'gnus.org')
| -rw-r--r-- | gnus.org | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -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") |