(spam-report-url-ping-mm-url): Use format instead

of concat.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c35a4d..44c69f9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-05-30  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * spam-report.el (spam-report-url-ping-mm-url): Use format instead
+       of concat.
+
 2005-05-30  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-agent.el (gnus-category-mode): Use gnus-run-mode-hooks.

diff --git a/lisp/spam-report.el b/lisp/spam-report.el
index 0750307..a836ace 100644 (file)
--- a/lisp/spam-report.el
+++ b/lisp/spam-report.el
@@ -218,14 +218,14 @@ symbol `ask', query before flushing the queue file."
 the external program specified in `mm-url-program' to connect to
 server."
   (with-temp-buffer
-    (let ((url (concat "http://" host report)))
+    (let ((url (format "http://%s%s" host report)))
       (mm-url-insert url t))))
 
 ;;;###autoload
 (defun spam-report-url-to-file (host report)
   "Collect spam report requests in `spam-report-requests-file'.
 Customize `spam-report-url-ping-function' to use this function."
-  (let ((url (concat "http://" host report))
+  (let ((url (format "http://%s%s" host report))
        (file spam-report-requests-file))
     (gnus-make-directory (file-name-directory file))
     (gnus-message 9 "Writing URL `%s' to file `%s'" url file)