From 20be5dd80f558a3151132584f8f5fe9a7168ae63 Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Sun, 19 Jul 2026 02:22:14 -0700 Subject: [PATCH] Fix org-mu4e-compose.el --- elisp/org-mu4e-compose.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/elisp/org-mu4e-compose.el b/elisp/org-mu4e-compose.el index c829487..ad4058c 100644 --- a/elisp/org-mu4e-compose.el +++ b/elisp/org-mu4e-compose.el @@ -144,20 +144,20 @@ The affected area is START to END in the current buffer." (while (looking-at (rx bol ">" (or " " eol))) (forward-line -1)) (end-of-line) - (insert "\n#+BEGIN_VERSE")) + (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--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 () "HTMLize and cleanup the visible portion of the buffer.