Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix org-mu4e

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-07-09 20:37:10 -07:00
parent aee9c876ae
commit 803919761d
1 changed files with 27 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
elisp/org-mu4e-compose.el
+27 -10
View File
@@ -131,16 +131,33 @@ The affected area is START to END in the current buffer."
after-change-functions))) after-change-functions)))
(insert content)))))) (insert content))))))
(defun org-mu4e--textify-org-part () (defun org-mu4e--textify-make-original-message-verbatim ()
"Replace the org part of the current buffer with plain text." "Make the original message of a reply message verbatim."
(when-let* ((bounds (org-mu4e--bounds-of-mime-part "text/plain"))) (goto-char (point-max))
(with-restriction (car bounds) (cdr bounds) (forward-line 0)
(let ((ascii-content (org-export-as 'ascii nil nil t)) (while (looking-at (rx bol eol))
(after-change-functions (remq 'jit-lock-after-change (forward-line -1))
after-change-functions))) (when (looking-at (rx bol "> "))
(delete-region (point-min) (point-max)) (end-of-line)
(insert ascii-content) (insert "\n#+END_VERSE")
(put-text-property (point-min) (point-max) 'font-lock-face 'default))))) (forward-line -1)
(while (looking-at (rx bol ">" (or " " eol)))
(forward-line -1))
(end-of-line)
(insert "\n#+BEGIN_VERSE"))
(defun org-mu4e--textify-org-part ()
"Replace the org part of the current buffer with plain text."
(when-let* ((bounds (org-mu4e--bounds-of-mime-part "text/plain")))
(with-restriction (car bounds) (cdr bounds)
(org-mu4e--textify-make-original-message-verbatim)
(let* ((org-ascii-quote-margin 0)
(ascii-content (org-export-as 'ascii nil nil t))
(after-change-functions (remq 'jit-lock-after-change
after-change-functions)))
(delete-region (point-min) (point-max))
(insert ascii-content)
(put-text-property (point-min) (point-max) 'font-lock-face 'default))))))
(defun org-mu4e--htmlize-and-cleanup () (defun org-mu4e--htmlize-and-cleanup ()
"HTMLize and cleanup the visible portion of the buffer. "HTMLize and cleanup the visible portion of the buffer.