diff options
| author | Eduardo Chappa <chappa@washington.edu> | 2018-09-03 19:03:23 -0600 |
|---|---|---|
| committer | Eduardo Chappa <chappa@washington.edu> | 2018-09-03 19:03:23 -0600 |
| commit | c18f7912b1c8f9d1a036728aef5cd4886b12290e (patch) | |
| tree | e56452fc35d987694cc9dcbcb075dcb4955535a6 | |
| parent | 984d3267f4240d098dd120dd4d406c7585e818dd (diff) | |
| download | alpine-c18f7912b1c8f9d1a036728aef5cd4886b12290e.tar.xz | |
* WEBALPINE: Add support for the OPENINGTEXT and OPENINGTEXTNQ tokens
in the index format.
| -rw-r--r-- | .gitignore | 9 | ||||
| -rw-r--r-- | web/cgi/alpine/2.0/css/menu.css | 7 | ||||
| -rw-r--r-- | web/cgi/alpine/2.0/messagelist.tcl | 9 | ||||
| -rw-r--r-- | web/src/alpined.d/alpined.c | 5 |
4 files changed, 24 insertions, 6 deletions
@@ -31,4 +31,11 @@ pith/help_c_gen pith/help_h_gen pith/helptext.c pith/helptext.h - +web/cgi/alpine/2.0/lib/yui-2.9.0/ +web/src/alpined.d/.libs/ +web/src/alpined.d/alpined +web/src/alpined.d/alpineldap +web/src/alpined.d/libwpcomm.la +web/src/alpined.d/local.c +web/src/alpined.d/wpcomm.lo +web/src/cgi.tcl-1.10/pkgIndex.tcl 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 : |