From c18f7912b1c8f9d1a036728aef5cd4886b12290e Mon Sep 17 00:00:00 2001
From: Eduardo Chappa <chappa@washington.edu>
Date: Mon, 3 Sep 2018 19:03:23 -0600
Subject:    * WEBALPINE: Add support for the OPENINGTEXT and OPENINGTEXTNQ
 tokens      in the index format.

---
 web/cgi/alpine/2.0/css/menu.css    | 7 ++-----
 web/cgi/alpine/2.0/messagelist.tcl | 9 +++++++++
 web/src/alpined.d/alpined.c        | 5 +++++
 3 files changed, 16 insertions(+), 5 deletions(-)

(limited to 'web')

diff --git a/web/cgi/alpine/2.0/css/menu.css b/web/cgi/alpine/2.0/css/menu.css
index ecf01ee6..abd4fb3b 100644
--- a/web/cgi/alpine/2.0/css/menu.css
+++ b/web/cgi/alpine/2.0/css/menu.css
@@ -10,13 +10,10 @@
  * ========================================================================
  */
 
-.menu a, .menu a:link, .menu a:visited {
+a.transparent, a.transparent:link, a.transparent:hover, a.transparent:visited {
 	white-space: nowrap;
-	color: #ffffff;
+	color: #000000;
 	display: block;
-	margin: 0;
-	padding: 0 8px;
-	line-height: 34px;
 	text-decoration: none;
 }
 
diff --git a/web/cgi/alpine/2.0/messagelist.tcl b/web/cgi/alpine/2.0/messagelist.tcl
index 9f1306ce..c154c8db 100644
--- a/web/cgi/alpine/2.0/messagelist.tcl
+++ b/web/cgi/alpine/2.0/messagelist.tcl
@@ -454,6 +454,15 @@ proc drawMessageList {c f n ppg} {
 
 		  set cd [cgi_buffer {cgi_h1 $h1c id=h1$ilu [cgi_url [cgi_quote_html $subtext] ${listaction}$ilu id=ml$ilu class=wap [subst $viewonclick]]}]
 		}
+		excerpt {
+		  set exstr [lindex [lindex [lindex $msg $j] 0] 0]
+		  set exlen 125
+		  if {[string length $exstr] > $exlen} {
+		    set exstr "[string range $exstr 0 $exlen]..."
+		  }
+
+		  set cd [cgi_buffer {cgi_h1 $h1c id=h1$ilu [cgi_url_transparent [cgi_quote_html $exstr] ${listaction}$ilu id=ml$ilu class=wap [subst $viewonclick]]}]
+		}
 		status {
 		  set align center
 		  catch {unset statclass}
diff --git a/web/src/alpined.d/alpined.c b/web/src/alpined.d/alpined.c
index f63ae738..3d043d51 100644
--- a/web/src/alpined.d/alpined.c
+++ b/web/src/alpined.d/alpined.c
@@ -7569,6 +7569,11 @@ peIndexFormat(Tcl_Interp *interp)
 	    name = "Mailbox";
 	    break;
 
+	  case iOpeningText:
+	  case iOpeningTextNQ:
+	    name = "Excerpt";
+	    break;
+
 	  case iSubject :
 	  case iSubjKey :
 	  case iSubjKeyInit :
-- 
cgit v1.2.3-70-g09d2