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

mu4e: work-around for format-flowed corner-case

Browse Source 
Fixes: #1938
(fixes, eh, works around it)
This commit is contained in:
Dirk-Jan C. Binnema
2021-03-11 19:40:32 +02:00
parent 8d1175f511
commit d12d85e187
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
mu4e/mu4e-compose.el
View File

@ -459,15 +459,16 @@ separated by blank lines. If variable `use-hard-newlines' is not
set, this simply executes `fill-paragraph'." set, this simply executes `fill-paragraph'."
;; Inspired by https://www.emacswiki.org/emacs/UnfillParagraph ;; Inspired by https://www.emacswiki.org/emacs/UnfillParagraph
(interactive (progn (barf-if-buffer-read-only) '(t))) (interactive (progn (barf-if-buffer-read-only) '(t)))
(if mu4e-compose-format-flowed (ignore-errors
(let ((fill-column (point-max)) (if mu4e-compose-format-flowed
(use-hard-newlines nil)); rfill "across" hard newlines (let ((fill-column (point-max))
(when (use-region-p) (use-hard-newlines nil)); rfill "across" hard newlines
(delete-trailing-whitespace (region-beginning) (region-end))) (when (use-region-p)
(fill-paragraph nil region)) (delete-trailing-whitespace (region-beginning) (region-end)))
(when (use-region-p) (fill-paragraph nil region))
(delete-trailing-whitespace (region-beginning) (region-end))) (when (use-region-p)
(fill-paragraph nil region))) (delete-trailing-whitespace (region-beginning) (region-end)))
(fill-paragraph nil region))))
(defun mu4e-toggle-use-hard-newlines () (defun mu4e-toggle-use-hard-newlines ()
(interactive) (interactive)