diff options
Diffstat (limited to 'email.org')
| -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) |