summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-04-18 07:56:25 +0100
committerjao <jao@gnu.org>2021-04-18 07:56:25 +0100
commit51cafe2ed92b5d424282ec92bf9303064573eccd (patch)
treeff8b9a14592a2ec95d70e7a5b276675512e950db
parent2fd1979b9ba1df8bfb1291618d5a356a2d33aefa (diff)
downloadelibs-51cafe2ed92b5d424282ec92bf9303064573eccd.tar.gz
elibs-51cafe2ed92b5d424282ec92bf9303064573eccd.tar.bz2
those html from: headers sent by arxiv's rss...
-rw-r--r--email.org30
1 files changed, 16 insertions, 14 deletions
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)