Mercurial > emacs

diff lisp/gnus/spam-report.el @ 65446:eb0fd19f4e01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line diff
--- a/lisp/gnus/spam-report.el	Sun Sep 11 20:34:04 2005 +0000
+++ b/lisp/gnus/spam-report.el	Sun Sep 11 22:02:04 2005 +0000
@@ -116,7 +116,9 @@
 			 (match-string 1 field)))
 	    (setq report (match-string 2 field))
 	    (when (string-equal "permalink.gmane.org" host)
-	      (setq host "spam.gmane.org"))
+	      (setq host "spam.gmane.org")
+	      (setq report (gnus-replace-in-string
+			    report "/\\([0-9]+\\)$" ":\\1")))
 	    (setq url (format "http://%s%s" host report))
 	    (if (not (and host report url))
 		(gnus-message