From c0c0134972eedfa1f494353d2b0021f2036b4b9a Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 18 Sep 2020 15:55:22 +0200 Subject: [PATCH] - fixed indentation. --- src/ui-goodies.lisp | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index 28564ad..b36d6b9 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -942,21 +942,21 @@ Force the checking for new message in the thread the selected message belong." :direction :output :element-type 'character :if-exists :append) - (write-sequence signature stream)))) + (write-sequence signature stream)))) (add-body () (let ((temp-file (fs:temporary-file))) - (prepare-reply-body temp-file) - (add-signature temp-file) - (let ((reference-open-file (get-universal-time))) - (croatoan:end-screen) - (os-utils:open-with-editor temp-file) - (when (and (> (fs:file-size temp-file) - 0) - (> (fs:get-stat-mtime temp-file) - reference-open-file)) - (let ((body (fs:slurp-file temp-file))) - (setf (sending-message:body *message-to-send*) body) - (add-subject))))))) + (prepare-reply-body temp-file) + (add-signature temp-file) + (let ((reference-open-file (get-universal-time))) + (croatoan:end-screen) + (os-utils:open-with-editor temp-file) + (when (and (> (fs:file-size temp-file) + 0) + (> (fs:get-stat-mtime temp-file) + reference-open-file)) + (let ((body (fs:slurp-file temp-file))) + (setf (sending-message:body *message-to-send*) body) + (add-subject))))))) (add-body))) (defun reply-message ()