% -*- mode: slang; mode: fold; -*-                                     %{{{
% This macro removes signatures marked with "--" or "-- \n". 
% If you want to use it with slrn put the following line in .slrnrc:
%     set post_editor_command "jed '%s' -tmp -f wywal_ms_siga"
% or, if you use jed in mail_mode:
%     set post_editor_command  "jed '%s' -tmp -f '{mail_mode;wywal_ms_siga;}'"
% Put a similar line in .muttrc/.pinerc/.whateverrc
% (by tsca; more info @ http://www.geocities.com/tsca.geo/slang.html)  %}}}

 define wywal_ms_siga ()
{ eob;
  if (re_bsearch ("^> ?-- ?$"))
   { push_mark;
     if (re_fsearch ("^-- $")) up(1); else eob;
     del_region;
     % message ("M$ signature removed.");
   }
}
% --- end here ------------------------------------------------------------- -