annotate debian/slrn.sl @ 500:614a3177b15c noffle tip

Add mail-from option. Some modern mail systems will try and ensure the sender email is a legitimate address. Which will fail if there isn't such an address.
author Jim Hague <jim.hague@acm.org>
date Wed, 14 Aug 2013 12:04:39 +0100
parents 3b5b7f3fd71f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
301
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
1 % SLRN script for better interplay with NOFFLE news server.
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
2 % Redefines some keys for opening articles without modifying flags.
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
3 define my_article_linedn()
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
4 {
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
5 call ( "article_linedn" );
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
6 if (is_substr(extract_article_header("X-NOFFLE-Status"), "NOT_DOWNLOADED"))
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
7 set_header_flags( ( get_header_flags() | HEADER_READ ) xor HEADER_READ );
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
8 return;
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
9 }
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
10 define my_scroll_dn()
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
11 {
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
12 call ( "scroll_dn" );
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
13 if (is_substr(extract_article_header("X-NOFFLE-Status"), "NOT_DOWNLOADED"))
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
14 set_header_flags( ( get_header_flags() | HEADER_READ ) xor HEADER_READ );
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
15 return;
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
16 }
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
17 define my_hide_article()
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
18 {
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
19 call ( "hide_article" );
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
20 if (is_substr(extract_article_header("X-NOFFLE-Status"), "NOT_DOWNLOADED"))
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
21 set_header_flags( ( get_header_flags() | HEADER_READ ) xor HEADER_READ );
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
22 return;
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
23 }
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
24 definekey( "my_article_linedn", "\r", "article" );
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
25 definekey( "my_scroll_dn", " ", "article" );
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
26 definekey( "my_hide_article", "h", "article" );