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
+3 -3
View File
@@ -144,9 +144,9 @@ The affected area is START to END in the current buffer."
(while (looking-at (rx bol ">" (or " " eol))) (while (looking-at (rx bol ">" (or " " eol)))
(forward-line -1)) (forward-line -1))
(end-of-line) (end-of-line)
(insert "\n#+BEGIN_VERSE")) (insert "\n#+BEGIN_VERSE")))
(defun org-mu4e--textify-org-part () (defun org-mu4e--textify-org-part ()
"Replace the org part of the current buffer with plain text." "Replace the org part of the current buffer with plain text."
(when-let* ((bounds (org-mu4e--bounds-of-mime-part "text/plain"))) (when-let* ((bounds (org-mu4e--bounds-of-mime-part "text/plain")))
(with-restriction (car bounds) (cdr bounds) (with-restriction (car bounds) (cdr bounds)
@@ -157,7 +157,7 @@ The affected area is START to END in the current buffer."
after-change-functions))) after-change-functions)))
(delete-region (point-min) (point-max)) (delete-region (point-min) (point-max))
(insert ascii-content) (insert ascii-content)
(put-text-property (point-min) (point-max) 'font-lock-face 'default)))))) (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.