From 3daf205dd8523b46372e4ef9535f249007c78e17 Mon Sep 17 00:00:00 2001
From: cage <cage-invalid@invalid>
Date: Sun, 24 Jan 2021 14:46:13 +0100
Subject: [PATCH] - prevented non rendering of 'new-message' character in tags
 window.

---
 src/tags-window.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/tags-window.lisp b/src/tags-window.lisp
index 89222c8..4d2d31d 100644
--- a/src/tags-window.lisp
+++ b/src/tags-window.lisp
@@ -67,8 +67,7 @@
                    (new-messages-mark new-messages-mark)) object
     (win-clear object)
     (with-croatoan-window (croatoan-window object)
-      (let ((histogram-width (- (win-width-no-border object)
-                                (length new-messages-mark))))
+      (let ((histogram-width (* 2/3 (win-width-no-border object))))
         (loop
            for y from (+ 2 top-row-padding) by single-row-height
            for row-fields  in (mapcar #'fields rows) do