Make reply work with org-mu4e-mode

elisp/org-mu4e-compose.el

@@ -219,6 +219,32 @@ passed to it."
     (cl-letf (((symbol-function 'mu4e-compose-mode) 'org-mu4e-compose-mode))
       (apply 'mu4e-compose-new r))))
 
+;;;###autoload
+(defun org-mu4e-compose-reply-to (&optional to wide)
+  "This is like `mu4e-compose-reply-to', but utilizes `org-mu4e-compose-mode'.
+TO and WIDE are the same as `mu4e-compose-reply-to'."
+  (interactive)
+  ;; Save local variables set by `mu4e-compose-reply-to'
+  (let ((html-part-p (seq-find (lambda (handle)
+                                 (equal (mm-handle-media-type (cdr handle))
+                                        "text/html"))
+                               gnus-article-mime-handle-alist))
+        (org-mu4e--internal-message-mode-function
+         (symbol-function 'mu4e-compose-mode)))
+    (cl-letf (((symbol-function 'mu4e-compose-mode) 'org-mu4e-compose-mode))
+      (let ((buf (mu4e-compose-reply-to to wide)))
+        (with-current-buffer buf
+          (setq org-mu4e--html-message-p
+                ;; make the variable look nicer by not having random data in it
+                (not (not html-part-p))))))))
+
+;;;###autoload
+(defun org-mu4e-compose-reply (&optional wide)
+  "This is like `mu4e-compose-reply', but utilizes `org-mu4e-compose-mode'.
+WIDE is the same as `mu4e-compose-reply'."
+  (interactive "P")
+  (org-mu4e-compose-reply-to nil wide))
+
 ;;;###autoload
 (defvar-keymap org-mu4e-compose-mode-map
   :parent org-mode-map