(spam-report-url-ping-plain): Don't query about killing the process.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3ce2eeb..fb086e7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 2010-10-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

+       * spam-report.el (spam-report-url-ping-plain): Don't query about
+       killing the process.
+

        * shr.el (shr-render-td): Protect against too-wide text.
 
 2010-10-04  Julien Danjou  <julien@danjou.info>
        * shr.el (shr-render-td): Protect against too-wide text.
 
 2010-10-04  Julien Danjou  <julien@danjou.info>

diff --git a/lisp/spam-report.el b/lisp/spam-report.el
index e73444e..30e0ae5 100644 (file)
--- a/lisp/spam-report.el
+++ b/lisp/spam-report.el
@@ -256,6 +256,7 @@ This is initialized based on `user-mail-address'."
                 80))
          (error "Could not open connection to %s" host))
       (set-marker (process-mark tcp-connection) (point-min))
                 80))
          (error "Could not open connection to %s" host))
       (set-marker (process-mark tcp-connection) (point-min))

+      (gnus-set-process-query-on-exit-flag tcp-connection nil)

       (process-send-string
        tcp-connection
        (format "GET %s HTTP/1.1\nUser-Agent: %s\nHost: %s\n\n"
       (process-send-string
        tcp-connection
        (format "GET %s HTTP/1.1\nUser-Agent: %s\nHost: %s\n\n"