cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed indentation.

This commit is contained in:
cage 2020-09-18 15:55:22 +02:00
parent d6bc8da305
commit c0c0134972
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/ui-goodies.lisp
View File

@ -942,21 +942,21 @@ Force the checking for new message in the thread the selected message belong."
:direction :output :direction :output
:element-type 'character :element-type 'character
:if-exists :append) :if-exists :append)
(write-sequence signature stream)))) (write-sequence signature stream))))
(add-body () (add-body ()
(let ((temp-file (fs:temporary-file))) (let ((temp-file (fs:temporary-file)))
(prepare-reply-body temp-file) (prepare-reply-body temp-file)
(add-signature temp-file) (add-signature temp-file)
(let ((reference-open-file (get-universal-time))) (let ((reference-open-file (get-universal-time)))
(croatoan:end-screen) (croatoan:end-screen)
(os-utils:open-with-editor temp-file) (os-utils:open-with-editor temp-file)
(when (and (> (fs:file-size temp-file) (when (and (> (fs:file-size temp-file)
0) 0)
(> (fs:get-stat-mtime temp-file) (> (fs:get-stat-mtime temp-file)
reference-open-file)) reference-open-file))
(let ((body (fs:slurp-file temp-file))) (let ((body (fs:slurp-file temp-file)))
(setf (sending-message:body *message-to-send*) body) (setf (sending-message:body *message-to-send*) body)
(add-subject))))))) (add-subject)))))))
(add-body))) (add-body)))
(defun reply-message () (defun reply-message ()