% -*- mode: slang; mode: fold; -*-                                     %{{{
% jsv2re by tsca; see more @ http://www.geocities.com/tsca.geo/slang.html
% this macro changes the reply prefix (back to 'Re: ') when you follow up 
% a post written by a person using MS Outlook. Not that it really matters, 
% threading should be based on References:, but some people use Subject: for 
% that purpose anyway. Examples:
%
% * Subject: Sv: Hi!                     --> Subject: Re: Hi!
% * Subject: Odp: Odp: Czesc!            --> Subject: Re: Czesc!
% * Subject: Re: Sv: Odp: Odp: Odp: Hej! --> Subject: Re: Hej!
%  
% USAGE: 
% Put this file in /usr/local/jed/lib/ and add the following to .jedrc:
%    () = evalfile ("jsv2re.sl");
% and to .slrnrc:
%    set post_editor_command "jed '%s' -tmp -f jsv2re"
% or, if you use jed in mail_mode
%    set post_editor_command "jed '%s' -tmp -f '{mail_mode;jsv2re;}'"
% Put a similar line in case of .muttrc/.pinerc/.whateverrc
%                                                                      %}}} 

define jsv2re ()
{
    variable re = 0;
    forever
     {
        bob;re_fsearch ("^$");re_bsearch ("^Subject: "); right (9);
                  if (orelse {looking_at ("Re:")}
                             {looking_at ("Odp:")}
                             {looking_at ("Sv:")}
                             {looking_at ("Aw:")})
         {re = 1;push_mark;re_fsearch (":");right;del_region;}
                  else break;
    }
           if (re) {insert ("Re: ");}
}
% --------------------------------------------------------------------------