From ee6136a8845d8bd0b48e3d996a2fadd0604ef4d3 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Fri, 11 Oct 2024 18:21:40 +0200
Subject: [PATCH] - [TUI] ensured the link window is clear before rendering
 links.

---
 src/open-message-link-window.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/open-message-link-window.lisp b/src/open-message-link-window.lisp
index c01ad39..77f864d 100644
--- a/src/open-message-link-window.lisp
+++ b/src/open-message-link-window.lisp
@@ -16,9 +16,11 @@
 
 (in-package :open-message-link-window)
 
-
 (defclass open-message-link-window (open-attach-window:open-attach-window) ())
 
+(defmethod draw :before ((object open-message-link-window))
+  (win-clear object))
+
 (defmethod refresh-config :after ((object open-message-link-window))
   (open-attach-window:refresh-view-links-window-config object
                                                        swconf:+key-open-message-link-window+