From 9ff232974229961a34f451ac562891f4236bb1b6 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Fri, 27 Jan 2012 22:45:03 +0400
Subject: [PATCH] Usability tweak

---
 main.ml | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/main.ml b/main.ml
index 22e1ad6..a71184a 100644
--- a/main.ml
+++ b/main.ml
@@ -1380,9 +1380,13 @@ let enttext () =
   in
   let s =
     if state.newerrmsgs
-    then
-      let s1 = "(press 'e' to review error messasges)" in
-      if String.length s > 0 then s ^ " " ^ s1 else s1
+    then (
+      if not (istextentry state.mode)
+      then
+        let s1 = "(press 'e' to review error messasges)" in
+        if String.length s > 0 then s ^ " " ^ s1 else s1
+      else s
+    )
     else s
   in
   if String.length s > 0
-- 
2.11.4.GIT