- added signature in the correct position when replying.

src/message-rendering-utils.lisp

@@ -277,4 +277,4 @@
 
 (defun signature ()
   (when-let ((signature-file (swconf:signature-file-path)))
-    (format nil "-- ~%~a" (fs:slurp-file signature-file))))
+    (format nil "~%-- ~%~a" (fs:slurp-file signature-file))))

src/ui-goodies.lisp

@@ -834,18 +834,19 @@ Force the checking for new message in the thread the selected message belong."
                    (format stream "~a~%" (msg-utils:add-mention-prefix reply-username))
                    (loop for line in quoted-lines do
                         (format stream "~a~%" line))))))
-           (add-body ()
+           (add-signature (file)
-             (let ((temp-file (fs:temporary-file))
+             (when-let ((signature (message-rendering-utils:signature)))
-                   (signature (message-rendering-utils:signature)))
-               (when signature
                (with-open-file (stream
-                                  temp-file
+                                file
                                 :direction    :output
                                 :element-type 'character
-                                  :if-exists    :supersede)
+                                :if-exists    :append)
-                   (write-sequence signature stream)))
+                   (write-sequence signature stream))))
-               (let ((reference-open-file (get-universal-time)))
+           (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)