[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/spam-report.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/spam-report.el |
Date: |
Sun, 11 Sep 2005 18:02:09 -0400 |
Index: emacs/lisp/gnus/spam-report.el
diff -c emacs/lisp/gnus/spam-report.el:1.10 emacs/lisp/gnus/spam-report.el:1.11
*** emacs/lisp/gnus/spam-report.el:1.10 Fri Sep 9 01:47:33 2005
--- emacs/lisp/gnus/spam-report.el Sun Sep 11 22:02:04 2005
***************
*** 116,122 ****
(match-string 1 field)))
(setq report (match-string 2 field))
(when (string-equal "permalink.gmane.org" host)
! (setq host "spam.gmane.org"))
(setq url (format "http://%s%s" host report))
(if (not (and host report url))
(gnus-message
--- 116,124 ----
(match-string 1 field)))
(setq report (match-string 2 field))
(when (string-equal "permalink.gmane.org" host)
! (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