Mercurial > hg > xemacs

diff my-news.el @ 67:a9b2a2335782 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make setting advert whiten as well if needed, handle naked div in replying to html
author Henry S Thompson <ht@inf.ed.ac.uk>
date Sat, 21 Dec 2024 20:00:43 +0000
parents e7c2deb7de20
children
line wrap: on
line diff
--- 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))