Mercurial > hg > xemacs

changeset 75:0508101db40f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
get new-white working (on maritain only??
author Henry S Thompson <ht@inf.ed.ac.uk>
date Mon, 09 Jun 2025 13:40:01 +0100
parents 27003cf1744b
children 0abfe9bf83a0
files my-news.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)