Mercurial > hg > xemacs
comparison my-news.el @ 75:0508101db40f
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 | e5b0b98e81a0 |
| children |
comparison
equal
deleted
inserted
replaced
| 74:27003cf1744b | 75:0508101db40f |
|---|---|
| 292 | 292 |
| 293 (defun new-white (addr) | 293 (defun new-white (addr) |
| 294 (if (get-database addr whitelist-db) | 294 (if (get-database addr whitelist-db) |
| 295 nil | 295 nil |
| 296 (put-database addr "t" whitelist-db) | 296 (put-database addr "t" whitelist-db) |
| 297 t)) | 297 (comint-exec (get-buffer-create "*new-white*") |
| 298 "new-white" shell-file-name | |
| 299 nil (list shell-command-switch | |
| 300 (format "echo '%s' >> %s/new-white.txt" addr my-mail-dir))) t)) | |
| 298 | 301 |
| 299 (defun new-ad (addr) | 302 (defun new-ad (addr) |
| 300 (new-white addr) | 303 (new-white addr) |
| 301 (if (get-database addr adlist-db) | 304 (if (get-database addr adlist-db) |
| 302 nil | 305 nil |