jdormit/dotfiles
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[WIP] Play around with rich-text email reply citing

Browse Source
This commit is contained in:
Jeremy Dormitzer 2020-05-05 16:55:14 -04:00
parent 8c461b8896
commit 56192b0427
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
emacs/init.org
View File

@ -3998,6 +3998,35 @@ Support sending rich-text emails via Markdown:
(with-eval-after-load 'message
(define-key message-mode-map (kbd "C-c C-s") #'message-md-send)
(define-key message-mode-map (kbd "C-c C-c") #'message-md-send-and-exit))
;; Handle replies to HTML emails as well
;; (defun message-yank-original-as-md (msg)
;; (let ((message-reply-buffer (generate-new-buffer " message-md-reply")))
;; (with-current-buffer message-reply-buffer
;; (insert (mu4e-msg-field msg :body-html)))
;; (message-yank-original)
;; (kill-buffer message-reply-buffer)))
;; (defun mu4e-draft-cite-original-advice (oldfn msg &rest args)
;; (if-let ((html (mu4e-msg-field msg :body-html)))
;; (with-temp-buffer
;; (when (fboundp 'mu4e-view-message-text) ;; keep bytecompiler happy
;; (let ((mu4e-view-date-format "%Y-%m-%dT%T%z"))
;; (insert (mu4e-view-message-text msg)))
;; (message-yank-original-as-md msg)
;; (goto-char (point-min))
;; (push-mark (point-max))
;; ;; set the the signature separator to 'loose', since in the real world,
;; ;; many message don't follow the standard...
;; (let ((message-signature-separator "^-- *$")
;; (message-signature-insert-empty-line t))
;; (funcall mu4e-compose-cite-function))
;; (pop-mark)
;; (goto-char (point-min))
;; (buffer-string)))
;; (apply oldfn msg args)))
;; (advice-add 'mu4e~draft-cite-original :around #'mu4e-draft-cite-original-advice)
#+END_SRC