comparison docs/NOTES @ 199:33844d68cab1 noffle

[svn] Minor enhancement to slrn-script.
author mirkol
date Thu, 08 Nov 2001 20:47:11 +0000
parents 24d4cd032da5
children 56404839dd33
comparison
equal deleted inserted replaced
198:79e324213734 199:33844d68cab1
137 137
138 % SLRN script for better interplay with NOFFLE news server. 138 % SLRN script for better interplay with NOFFLE news server.
139 % Redefines some keys for opening articles without modifying flags. 139 % Redefines some keys for opening articles without modifying flags.
140 define my_article_linedn() 140 define my_article_linedn()
141 { 141 {
142 variable flags = get_header_flags(); 142 call ( "article_linedn" );
143 call ( "article_linedn" ); 143 if (is_substr(extract_article_header("X-NOFFLE-Status"), "NOT_DOWNLOADED"))
144 set_header_flags( flags ); 144 set_header_flags( ( get_header_flags() | HEADER_READ ) xor HEADER_READ );
145 return;
145 } 146 }
146 define my_scroll_dn() 147 define my_scroll_dn()
147 { 148 {
148 variable flags = get_header_flags(); 149 call ( "scroll_dn" );
149 call ( "scroll_dn" ); 150 if (is_substr(extract_article_header("X-NOFFLE-Status"), "NOT_DOWNLOADED"))
150 set_header_flags( flags ); 151 set_header_flags( ( get_header_flags() | HEADER_READ ) xor HEADER_READ );
152 return;
151 } 153 }
152 define my_hide_article() 154 define my_hide_article()
153 { 155 {
154 variable flags = get_header_flags(); 156 call ( "hide_article" );
155 call ( "hide_article" ); 157 if (is_substr(extract_article_header("X-NOFFLE-Status"), "NOT_DOWNLOADED"))
156 set_header_flags( flags ); 158 set_header_flags( ( get_header_flags() | HEADER_READ ) xor HEADER_READ );
159 return;
157 } 160 }
158 definekey( "my_article_linedn", "\r", "article" ); 161 definekey( "my_article_linedn", "\r", "article" );
159 definekey( "my_scroll_dn", " ", "article" ); 162 definekey( "my_scroll_dn", " ", "article" );
160 definekey( "my_hide_article", "h", "article" ); 163 definekey( "my_hide_article", "h", "article" );
161 164