summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.gitignore9
-rw-r--r--web/cgi/alpine/2.0/css/menu.css7
-rw-r--r--web/cgi/alpine/2.0/messagelist.tcl9
-rw-r--r--web/src/alpined.d/alpined.c5
4 files changed, 24 insertions, 6 deletions
diff --git a/.gitignore b/.gitignore
index abbed2f0..b4e758be 100644
--- a/.gitignore
+++ b/.gitignore
@@ -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 :