From 51cafe2ed92b5d424282ec92bf9303064573eccd Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 18 Apr 2021 07:56:25 +0100
Subject: those html from: headers sent by arxiv's rss...

---
 email.org | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

(limited to 'email.org')

diff --git a/email.org b/email.org
index a72cf05..ff7b3b7 100644
--- a/email.org
+++ b/email.org
@@ -253,7 +253,9 @@
                 ((("subject" . "%.95s")) . "   %-95s")
                 ("tags" . "  (%s)"))
               notmuch-unthreaded-result-format notmuch-tree-result-format
-              notmuch-wash-wrap-lines-length 80)
+              notmuch-wash-wrap-lines-length 80
+              notmuch-wash-citation-lines-prefix 10
+              notmuch-wash-citation-lines-suffix 20)
         :config
 
         (defun jao--refresh-agenda () (save-window-excursion (org-agenda-list)))
@@ -268,6 +270,19 @@
           (interactive)
           (let ((resize-mini-windows t)) (notmuch-jump-search)))
 
+        (defun jao-mail-clean-address (fun address)
+          (let ((address (if (string-match ".+ updates on arXiv.org: \\(.+\\)"
+                                           address)
+                             (with-temp-buffer
+                               (insert (match-string 1 address))
+                               (let ((shr-width 1000))
+                                 (shr-render-region (point-min) (point-max)))
+                               (buffer-string))
+                           address)))
+            (funcall fun address)))
+
+        (advice-add 'notmuch-clean-address :around #'jao-mail-clean-address)
+
         :bind (:map notmuch-show-mode-map
                     ("C-c C-c" . jao-notmuch-goto-message-in-gnus)
                :map notmuch-hello-mode-map
@@ -359,19 +374,6 @@
             nndraft-directory (jao-gnus-dir "drafts")
             nnrss-directory (jao-gnus-dir "rss"))
     #+end_src
-* Mail this buffer
-  #+BEGIN_SRC emacs-lisp
-    (defun jao-mail-this-file ()
-      (interactive)
-      (let ((file (buffer-file-name)))
-        (compose-mail)
-        (save-excursion
-          (message-goto-subject)
-          (insert (file-name-nondirectory file))
-          (message-goto-body)
-          (newline 2)
-          (mml-attach-file file (mm-default-file-encoding file)))))
-  #+END_SRC
 * mailcap
   #+BEGIN_SRC emacs-lisp
     (require 'mailcap)
-- 
cgit v1.2.3