% $Id: slrnrc.txt,v 1.6 2002/04/10 04:33:11 cbbrowne Exp $
% Chris's .slrn.sl file
message ("reading ~/.slrn.sl file.");
define save_article_to_mh_folder ()
{   
   variable ng = current_newsgroup ();
   variable mh_saver;%%
   mh_saver = strcat ("/usr/local/src/ifile-3.0/ifilter");
   pipe_article (mh_saver);
}

definekey ("save_article_to_mh_folder", "O", "article");

define save_articles_to_mh_folder ()
{
   variable count = 0;
   variable ng = current_newsgroup ();
   while ( next_tagged_header () ) {
      count = count + 1;
      save_article_to_mh_folder();
   }
   message (Sprintf("Saved %d articles to to ifilter %s", count, ng));
}

definekey ("save_articles_to_mh_folder", "M", "article");

% This will allow me to execute S-Lang commands from within slrn.
variable Last_Slang_Cmd = "";
define execute_slang ()
{
   variable str;
   
   str = read_mini ("S-Lang> ",  Last_Slang_Cmd);
   !if (strlen (str))
     return;
   
   Last_Slang_Cmd = str;
   eval (str);
}

definekey ("execute_slang", "^Kd", "group");
definekey ("execute_slang", "^Kd", "article");