diff --git a/emacs/init.org b/emacs/init.org
index 288b9cd..e293edd 100755
--- a/emacs/init.org
+++ b/emacs/init.org
@@ -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