ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Sergey Leschenko                     2:5020/400     05 Jan 2003  16:08:12
 To : zmej serow
 Subject : Re: slrn & fido quoting
 -------------------------------------------------------------------------------- 
 

 zmej serow wrote:
 
  zs> спасибо всем, кто откликнулся. патч[ -не- с andy.smile.org.ua, а выкачанный
  zs> ранее] приложен, всё работает. вот только ждал я не совсем этого..
  zs> хотелось -макрос- на s-lang'e, чтобы бинарник не патчить.
 
 вот тебе скрипт, только его еще править надо (я сейчас slrn с патчем использую)
 это одна из первых попыток написать что-то на slang :)
 
 ======================
 % fido-style quoting
 define followup_hook()
 {  variable raw_from, from_list, i, abbrev, email, at_pos; 
    % only for fido7
    if( not string_match(current_newsgroup(), "^fido7\.", 1))
    {     
       set_string_variable("followup_string", "%r wrote:\n");
       set_string_variable("quote_string", ">");
       return;
    }
   
    raw_from = extract_article_header("From");
    % удалим лишнее
    raw_from = str_delete_chars(raw_from, "\"()<>");
    
    from_list = strchop(raw_from, ' ', 0);
    abbrev="";
    for(i = 0; i < length(from_list); i++ )
    {  
       % fix it
   at_pos = string_match(from_list[i], "@", 1);
       if(at_pos != 0) 
   { 
    email = substr(from_list[i], 1, at_pos);
   }
   else 
    if( length(from_list[i]) == 2 and 
       string_match(from_list[i], "\.", 2) ) {
       
       % инициалы
    }
    else
           abbrev = strcat(abbrev, strup(substr(from_list[i], 1, 1)) ); 
   % пропускаем возможный email
   % но @ могут заменить на (a) etc. ... :((
    }
    % если аббревиатура не получилась, используем email
    if(abbrev == "")
       abbrev = email;
    % add standart quote 
    
    set_string_variable("followup_string", strcat("%r wrote:\n"));
    set_string_variable("quote_string", strcat(abbrev,">"));
 
 }
 ======================
 
 -- 
 Best regards,
 Sergey
 
 --- ifmail v.2.15dev5
  * Origin: NTUU "KPI" (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор