Mercurial > emacs
comparison lisp/gnus/spam-report.el @ 65446:eb0fd19f4e01
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-540
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 115)
- Update from CVS
2005-09-10 Reiner Steib <Reiner.Steib@gmx.de>
* lisp/gnus/spam-report.el (spam-report-gmane): Fix generation of spam
report URL.
2005-09-10 Simon Josefsson <jas@extundo.com>
* lisp/gnus/gnus-agent.el (gnus-agent-synchronize-flags): Make the default
t, based on discussion on the ding list with Robert Epprecht
<epprecht@solnet.ch>.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 11 Sep 2005 22:02:04 +0000 |
| parents | 45be648405bb |
| children | cb3218d6e82a |
comparison
equal
deleted
inserted
replaced
| 65445:e4fa4fb219eb | 65446:eb0fd19f4e01 |
|---|---|
| 114 "\\(/[^:/]+[:/][0-9]+\\)") | 114 "\\(/[^:/]+[:/][0-9]+\\)") |
| 115 field) | 115 field) |
| 116 (match-string 1 field))) | 116 (match-string 1 field))) |
| 117 (setq report (match-string 2 field)) | 117 (setq report (match-string 2 field)) |
| 118 (when (string-equal "permalink.gmane.org" host) | 118 (when (string-equal "permalink.gmane.org" host) |
| 119 (setq host "spam.gmane.org")) | 119 (setq host "spam.gmane.org") |
| 120 (setq report (gnus-replace-in-string | |
| 121 report "/\\([0-9]+\\)$" ":\\1"))) | |
| 120 (setq url (format "http://%s%s" host report)) | 122 (setq url (format "http://%s%s" host report)) |
| 121 (if (not (and host report url)) | 123 (if (not (and host report url)) |
| 122 (gnus-message | 124 (gnus-message |
| 123 3 "Could not find a spam report header in article %d..." | 125 3 "Could not find a spam report header in article %d..." |
| 124 article) | 126 article) |