% -*- 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 ------------------------------------------------------------- -
               (
geocities.com/tsca.geo)