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+