# HG changeset patch
# User Henry S Thompson <ht@inf.ed.ac.uk>
# Date 1734811243 0
# Node ID a9b2a23357821d1e50ce51de2fa1d4a5013b9742
# Parent  c343c57a93e849509ad183de67c935d36679ea84
make setting advert whiten as well if needed,
handle naked div in replying to html

diff -r c343c57a93e8 -r a9b2a2335782 my-news.el
--- a/my-news.el	Mon Dec 16 18:22:27 2024 +0000
+++ b/my-news.el	Sat Dec 21 20:00:43 2024 +0000
@@ -299,6 +299,7 @@
     t))
 
 (defun new-ad (addr)
+  (new-white addr)
   (if (get-database addr adlist-db)
       nil
     (put-database addr "t" adlist-db)
@@ -808,7 +809,7 @@
 
 (defun use-text-not-html (&optional clear)
   (when (and (if clear (looking-at "<html")
-	       (looking-at "> <html"))
+	       (looking-at "> <\\(html\\|div\\)"))
 	     (bufferp (get-buffer "*Shell Command Output*")))
     ;; replace HTML only with result of my HTML filter
     (delete-region (point)(mark t))