alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

mu4e: fix byte-compile warnings

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2026-06-08 20:26:35 +03:00
committed by Seth Ladygo
parent 2d022f1756
commit 8e638a639a
2 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
mu4e/mu4e-compose.el
View File

@ -329,17 +329,15 @@ buffers; lets remap its faces so it uses the ones for mu4e."
"Return a cited version of the message MSG (a string). "Return a cited version of the message MSG (a string).
If REGION is non-nil, cite it instead of MSG' body. This function If REGION is non-nil, cite it instead of MSG' body. This function
uses `message-cite-function', and its settings apply." uses `message-cite-function', and its settings apply."
(let ((orig (mu4e--compose-message-text msg))) (let ((orig (mu4e-view-message-text msg)))
(with-temp-buffer (with-temp-buffer
(insert orig) (insert orig)
(goto-char (point-min)) (goto-char (point-min))
;; if we have a region, replace the body with it.
;; if have a region, replace the body with it.
(save-excursion (save-excursion
(when (and region (re-search-forward "\n\n" nil 'noerror)) (when (and region (re-search-forward "\n\n" nil 'noerror))
(delete-region (point) (point-max)) (delete-region (point) (point-max))
(insert region))) (insert region)))
(push-mark (point-max)) (push-mark (point-max))
(let ((message-signature-separator "^-- *$") (let ((message-signature-separator "^-- *$")
(message-signature-insert-empty-line t)) (message-signature-insert-empty-line t))

1
mu4e/mu4e-org.el
View File

@ -28,6 +28,7 @@
;;; Code: ;;; Code:
(require 'org) (require 'org)
(require 'org-element)
(require 'tabulated-list) (require 'tabulated-list)
(require 'mu4e-view) (require 'mu4e-view)
(require 'mu4e-contacts) (require 'mu4e-contacts)