Mercurial > hg > xemacs

comparison my-news.el @ 67:a9b2a2335782

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 e5b0b98e81a0
comparison
equal deleted inserted replaced
66:c343c57a93e8 67:a9b2a2335782
297 nil 297 nil
298 (put-database addr "t" whitelist-db) 298 (put-database addr "t" whitelist-db)
299 t)) 299 t))
300 300
301 (defun new-ad (addr) 301 (defun new-ad (addr)
302 (new-white addr)
302 (if (get-database addr adlist-db) 303 (if (get-database addr adlist-db)
303 nil 304 nil
304 (put-database addr "t" adlist-db) 305 (put-database addr "t" adlist-db)
305 t)) 306 t))
306 307
806 (t 807 (t
807 (insert "[anon] writes:\n\n")))))) 808 (insert "[anon] writes:\n\n"))))))
808 809
809 (defun use-text-not-html (&optional clear) 810 (defun use-text-not-html (&optional clear)
810 (when (and (if clear (looking-at "<html") 811 (when (and (if clear (looking-at "<html")
811 (looking-at "> <html")) 812 (looking-at "> <\\(html\\|div\\)"))
812 (bufferp (get-buffer "*Shell Command Output*"))) 813 (bufferp (get-buffer "*Shell Command Output*")))
813 ;; replace HTML only with result of my HTML filter 814 ;; replace HTML only with result of my HTML filter
814 (delete-region (point)(mark t)) 815 (delete-region (point)(mark t))
815 (insert-buffer "*Shell Command Output*") 816 (insert-buffer "*Shell Command Output*")
816 (when (looking-at "piping") 817 (when (looking-at "piping")