diff options
| -rw-r--r-- | gnus.org | 61 |
1 files changed, 40 insertions, 21 deletions
@@ -5,7 +5,7 @@ * Feature switching vars #+begin_src emacs-lisp (defvar jao-gnus-use-local-imap t) - (defvar jao-gnus-use-leafnode t) + (defvar jao-gnus-use-leafnode nil) (defvar jao-gnus-use-gandi-imap nil) (defvar jao-gnus-use-pm-imap nil) (defvar jao-gnus-use-gmane nil) @@ -216,15 +216,19 @@ (setq gnus-check-new-newsgroups nil) (defvar jao-gnus-tracked-groups - '(("nnimap:bigml/inbox" "B" jao-themes-f00) + `(("nnimap:bigml/inbox" "B" jao-themes-f00) ("nnselect:bigml-bugs" "b" jao-themes-error) ("nnimap:bigml/support" "S" default) ("nnimap:jao/inbox" "I" jao-themes-f01) ("nnimap:bigml/[^ibs]" "W" jao-themes-dimm) ("nnimap:jao" "J" jao-themes-dimm) ("nnimap:local" "l" jao-themes-dimm) - ("nnimap:feeds/[^e]" "F" jao-themes-dimm) + ("nnimap:feeds/papers" "P" jao-themes-dimm) ("^gmane\\.emacs\\|nnimap:feeds/emacs" "E" jao-themes-dimm) + (,(format "nnimap:feeds/%s" + (regexp-opt (seq-difference (directory-files "~/var/mail/feeds") + '("emacs" "papers" "trove" "." "..")))) + "F" jao-themes-dimm) ("^gmane\\.[^e]\\|^gwene" "N" jao-themes-dimm))) (defun jao-gnus--unread-counts () @@ -437,7 +441,7 @@ (expiry-wait . 7) (expiry-target . delete) (jao-gnus--archiving-group "nnimap:feeds/trove")) - ("^nnimap:feeds/\\(news\\|emacs\\)$" (expiry-wait . 1)) + ("^nnimap:feeds/\\(news\\|emacs\\|prog\\)$" (expiry-wait . 1)) ("^nnimap:feeds/trove" (auto-expire . nil) (total-expire . nil)) @@ -446,14 +450,9 @@ (posting-style (address "jao@gnu.org"))))) #+end_src * Summary buffer -*** Configuration, summary line +*** Configuration #+begin_src emacs-lisp - (setq gnus-summary-ignore-duplicates t - gnus-suppress-duplicates t - gnus-summary-ignored-from-addresses jao-mails-regexp - gnus-process-mark-toggle t - gnus-refer-thread-use-search t - gnus-auto-select-next 'almost-quietly) + (setq gnus-face-1 'jao-gnus-face-tree) (setq gnus-show-threads t gnus-thread-hide-subtree t @@ -462,8 +461,23 @@ gnus-sort-gathered-threads-function 'gnus-thread-sort-by-date gnus-thread-sort-functions '(gnus-thread-sort-by-date)) - (setq gnus-face-1 'jao-gnus-face-tree) + (setq gnus-summary-ignore-duplicates t + gnus-suppress-duplicates t + gnus-summary-ignored-from-addresses jao-mails-regexp + gnus-process-mark-toggle t + gnus-refer-thread-use-search t + gnus-auto-select-next 'almost-quietly) + #+end_src +*** Search + #+begin_src emacs-lisp + (defun jao-gnus--maybe-reselect (&rest _i) + (when (string-match-p "^nnselect" (or (gnus-group-name-at-point) "")) + (save-excursion (gnus-group-get-new-news-this-group)))) + (advice-add 'gnus-group-select-group :before #'jao-gnus--maybe-reselect) + #+end_src +*** Summary line + #+begin_src emacs-lisp (setq gnus-not-empty-thread-mark ?·) ; ↓) (setq jao-gnus--summary-line-fmt (concat "%%U %%*%%R %%uj " @@ -481,12 +495,6 @@ (add-hook 'gnus-select-group-hook 'jao-gnus--set-summary-line) ;; (jao-gnus--set-summary-line 187) - (defun jao-gnus--maybe-reselect (&rest _i) - (when (string-match-p "^nnselect" (or (gnus-group-name-at-point) "")) - (save-excursion (gnus-group-get-new-news-this-group)))) - - (advice-add 'gnus-group-select-group :before #'jao-gnus--maybe-reselect) - (add-to-list 'nnmail-extra-headers 'Cc) (add-to-list 'nnmail-extra-headers 'BCc) (add-to-list 'gnus-extra-headers 'Cc) @@ -503,10 +511,19 @@ "¬" ;; "~" " ")))) + (defconst jao-gnus--news-rx + (regexp-opt '("ElDiaro.es " "The Guardian: "))) + (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))) + (from (gnus-summary-extract-address-component from)) + (shr-width 1000)) + (if nil ;; (string-match-p ".* .+updates on arXiv.org: +\\(.+\\)" from) + (with-temp-buffer + (insert (match-string 1 from)) + (shr-render-buffer (current-buffer)) + (buffer-string)) + (replace-regexp-in-string jao-gnus--news-rx "" from)))) (setq gnus-user-date-format-alist '(((gnus-seconds-today) . "%H:%M") @@ -652,7 +669,9 @@ (when (re-search-forward "^\\(To\\|Subject\\):" nil t) (beginning-of-line) (let ((shr-width 1000)) - (shr-render-region begin (1- (point))))))))) + ;; (shr-render-region begin (1- (point))) + (w3m-region begin (point)) + )))))) (add-hook 'gnus-part-display-hook 'jao-gnus-remove-anchors) |