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

Fix org-mu4e-compose.el

Browse Source
This commit is contained in:
Zander671
2026-07-19 02:22:14 -07:00
parent 0363599aef
commit 20be5dd80f
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
elisp/org-mu4e-compose.el
+13 -13
View File
@@ -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.