# HG changeset patch
# User Henry S Thompson <ht@inf.ed.ac.uk>
# Date 1749472801 -3600
# Node ID 0508101db40fc6dfe2db02b26506f807d14e8a6d
# Parent  27003cf1744b276973eb3737a94d85806bf3585b
get new-white working (on maritain only??

diff -r 27003cf1744b -r 0508101db40f my-news.el
--- a/my-news.el	Mon Jun 09 13:37:41 2025 +0100
+++ b/my-news.el	Mon Jun 09 13:40:01 2025 +0100
@@ -294,7 +294,10 @@
   (if (get-database addr whitelist-db)
       nil
     (put-database addr "t" whitelist-db)
-    t))
+    (comint-exec (get-buffer-create "*new-white*")
+		 "new-white" shell-file-name
+		 nil (list shell-command-switch
+			   (format "echo '%s' >> %s/new-white.txt" addr my-mail-dir)))    t))
 
 (defun new-ad (addr)
   (new-white addr)