116 |
(match-string 1 field))) |
(match-string 1 field))) |
117 |
(setq report (match-string 2 field)) |
(setq report (match-string 2 field)) |
118 |
(when (string-equal "permalink.gmane.org" host) |
(when (string-equal "permalink.gmane.org" host) |
119 |
(setq host "spam.gmane.org")) |
(setq host "spam.gmane.org") |
120 |
|
(setq report (gnus-replace-in-string |
121 |
|
report "/\\([0-9]+\\)$" ":\\1"))) |
122 |
(setq url (format "http://%s%s" host report)) |
(setq url (format "http://%s%s" host report)) |
123 |
(if (not (and host report url)) |
(if (not (and host report url)) |
124 |
(gnus-message |
(gnus-message |