/[emacs]/emacs/lisp/gnus/spam-report.el
ViewVC logotype

Diff of /emacs/lisp/gnus/spam-report.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by miles, Fri Sep 9 01:47:33 2005 UTC revision 1.11 by miles, Sun Sep 11 22:02:04 2005 UTC
# Line 116  undo that change.") Line 116  undo that change.")
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

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26