From b42334a5eb1f29c42c6c3e000763f6a410ef9700 Mon Sep 17 00:00:00 2001
From: Paul Walker <paul.walker@broadcom.com>
Date: Tue, 2 Mar 2021 10:00:57 +0000
Subject: [PATCH] slrn: copy in approved.sl, fix slrnrc to point to it

---
 slrn/approved.sl | 30 ++++++++++++++++++++++++++++++
 slrnrc           |  7 ++++---
 2 files changed, 34 insertions(+), 3 deletions(-)
 create mode 100644 slrn/approved.sl

diff --git a/slrn/approved.sl b/slrn/approved.sl
new file mode 100644
index 0000000..5e614c9
--- /dev/null
+++ b/slrn/approved.sl
@@ -0,0 +1,30 @@
+% This variable will hold the followup_custom_headers as defined in the
+% .slrnrc file.
+variable Default_Followup_Headers;
+
+Default_Followup_Headers = get_variable_value ("followup_custom_headers");
+define followup_hook ()
+{
+   variable h;
+
+   h = Default_Followup_Headers;
+   
+   if ((0 == strncmp (current_newsgroup, "alt.sysadmin.recovery", 21)) |
+       (0 == strncmp (current_newsgroup, "alt.tech-support.recovery", 25)) |
+       (0 == strncmp (current_newsgroup, "bofh.", 5))
+      )
+     {
+	% Generate Approved header
+	h = sprintf ("%sApproved: probably not\n", h);
+     }
+
+   if ((0 != strncmp(current_newsgroup, "comp.", 5)) &
+       (0 != strncmp(current_newsgroup, "rec.", 4)) &
+       (0 != strncmp(current_newsgroup, "bofh.", 5))
+      )
+   {
+       h = sprintf("%sX-No-Archive: Yes\n", h);
+   }
+
+   set_string_variable ("followup_custom_headers", h);
+}
diff --git a/slrnrc b/slrnrc
index 566e4a7..2fabe05 100644
--- a/slrnrc
+++ b/slrnrc
@@ -160,9 +160,9 @@ set save_replies "News/Sent_Emails"
 
 % The sendmail command allows you to substitute another mailer.  Be sure that 
 % it implements the same interface as sendmail!
-set sendmail_command "/usr/lib/sendmail -oi -t -oem -odb"
+%set sendmail_command "/usr/lib/sendmail -oi -t -oem -odb"
 %set sendmail_command "/usr/exim/bin/exim -oi -t -oem -odb"
-
+set sendmail_command "~/bin/mymuttmsmtp -a Fastmail"
 
 % Name of score file  (relative to HOME directory)
 set scorefile "News/Score"
@@ -521,4 +521,5 @@ setkey readline trim		 "\e/"		% Trim whitespace
 setkey readline quoted_insert	 "^Q"		% Quoted insert
 
 %interpret /usr/local/share/slrn/search.sl
-interpret ~/.slrn/approved.sl
+% Path is relative to $HOME
+interpret .slrn/approved.sl