% -*- mode: slang; mode: fold; -*-
%{{{ This macro removes the html part of message
%
% Remember to add the function to hooks if they already exist;
% DO NOT redefine them.
%
% Yahoo! Geocities disallows *.sl extensions, and corrupts *.sl.gz
% files. That is why this file has a *.txt extension. You might want
% to change it back to *.sl
%
% Tomasz 'tsca' Sienicki <tsca@mailserver.dk>
% <http://www.geocities.com/tsca.geo/slang.html>
%}}}

define uhtml ()
{
   variable coo = "Content-Type: text/html;";

   if (search_article (coo))
     {
        variable artkl = article_as_string,
        odkad = string_match (artkl,coo,1),
        smieci = substr(artkl,odkad,-1);
        while (str_replace (artkl,smieci,"\n HTML part removed.")) artkl = ();
        replace_article(artkl);
     }
}

 define read_article_hook () { uhtml; }