diff options
| author | jao <jao@gnu.org> | 2021-04-18 07:56:25 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-04-18 07:56:25 +0100 |
| commit | 51cafe2ed92b5d424282ec92bf9303064573eccd (patch) | |
| tree | ff8b9a14592a2ec95d70e7a5b276675512e950db | |
| parent | 2fd1979b9ba1df8bfb1291618d5a356a2d33aefa (diff) | |
| download | elibs-51cafe2ed92b5d424282ec92bf9303064573eccd.tar.gz elibs-51cafe2ed92b5d424282ec92bf9303064573eccd.tar.bz2 | |
those html from: headers sent by arxiv's rss...
| -rw-r--r-- | email.org | 30 |
1 files changed, 16 insertions, 14 deletions
@@ -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) |