Mercurial > hg > xemacs
comparison gnus-init.el @ 23:5738cc494f7f
trying to clean up Paul vs. Maritain for Cirrus
| author | ht |
|---|---|
| date | Sat, 07 Oct 2023 10:11:27 +0100 |
| parents | 7b2c4ed36302 |
| children | 0e5b39d2f8bb |
comparison
equal
deleted
inserted
replaced
| 22:6097ab2da4ce | 23:5738cc494f7f |
|---|---|
| 168 (if (not (member g ht-gnus-just-read)) | 168 (if (not (member g ht-gnus-just-read)) |
| 169 (setq ht-gnus-just-read (cons g ht-gnus-just-read))))) | 169 (setq ht-gnus-just-read (cons g ht-gnus-just-read))))) |
| 170 | 170 |
| 171 (add-hook 'nnml-prepare-save-mail-hook (function ht-gnus-note-save-to-group)) | 171 (add-hook 'nnml-prepare-save-mail-hook (function ht-gnus-note-save-to-group)) |
| 172 | 172 |
| 173 (require 'gnus-art) | |
| 174 | |
| 175 (nconc gnus-treatment-function-alist | |
| 176 '((gnus-treat-strip-uoe-warning gnus-article-strip-uoe-warning))) | |
| 177 | |
| 178 (defun gnus-article-strip-uoe-warning (&optional interactive &rest args) | |
| 179 "redirect for stripping" | |
| 180 (interactive (list t)) | |
| 181 (save-excursion | |
| 182 (set-buffer gnus-article-buffer) | |
| 183 (if interactive | |
| 184 (call-interactively 'article-strip-uoe-warning) | |
| 185 (apply 'article-strip-uoe-warning args)))) | |
| 186 | |
| 187 (defun article-strip-uoe-warning () | |
| 188 "strip the stupid uoe warning" | |
| 189 (interactive) | |
| 190 (save-excursion | |
| 191 (article-goto-body) | |
| 192 (let ((case-fold-search t)) | |
| 193 (when | |
| 194 (looking-at "This email was sent to you by someone outside the University.") | |
| 195 (gnus-delete-line)) | |
| 196 (when | |
| 197 (looking-at "You should only click on links or attachments if you are certain that the email is genuine and the content is safe.") | |
| 198 (gnus-delete-line)) | |
| 199 ))) | |
| 200 | |
| 201 (setq gnus-treat-strip-uoe-warning t) |