%putenv("PGP_ERRNO=0");

%define sprintf ()
%{
%   Sprintf (_NARGS - 1);
%}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
define show_score ()
{
   variable i=0, s="";
   if (is_group_mode) return ();
   
   i=get_header_score();
   s=sprintf("Score is: %d",i);
%   ()=read_mini("Score is: ",s,"");
%   message(s);
   error(s);
}
definekey ("show_score", "^s", "article");
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% view a uuencoded or base64 encoded image via the 'v' key/
% uuxv is: (slrn-uudecode --stdout $1 | xv -8 -perfect - &) <&0
%
% To create slrn-uudecode, do:
%
%    cd slrn/src
%    make uudecode
%    mv uudecode slrn-uudecode
%
% The macro along with the shell script and slrn-uudecode will allow you
% to view a uuencoded or base64 encoded image via the `v' key.

define xv_view_article ()
{
   call ("art_bob");

   if (re_search_article ("^begin \\d+ "))
     pipe_article ("uuxv");
   else
     pipe_article ("uuxv -64");
}

definekey ("xv_view_article", "v", "article");
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% new haeder display format:

%%set_header_display_format (0, "%F%-5S%G%-5l:[%12r]%t%s");
%set_header_display_format (0, "%F%-8S%-5l:%t%60s %30r%34f");
set_header_display_format (0, "%F%-5l:[%20r]%t%s");
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%