From baffdbe17998d9062c0a826a17389a094a34bc57 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Fri, 5 Dec 2003 16:03:28 +0000
Subject: [PATCH] Synch to Gnus 200312051340.

---
 lisp/mm-url.el |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/mm-url.el b/lisp/mm-url.el
index 42d3fce..53773e2 100644
--- a/lisp/mm-url.el
+++ b/lisp/mm-url.el
@@ -53,7 +53,7 @@
   :group 'mm-url)
 
 (defvar mm-url-predefined-programs
-  '((wget "wget" "-q" "-O" "-")
+  '((wget "wget" "--user-agent=mm-url" "-q" "-O" "-")
     (w3m  "w3m" "-dump_source")
     (lynx "lynx" "-source")
     (curl "curl")))
@@ -311,7 +311,8 @@ This is taken from RFC 2396.")
 		args (append (cdr item) (list url))))
       (setq program mm-url-program
 	    args (append mm-url-arguments (list url))))
-    (apply 'call-process program nil t nil args)))
+    (unless (eq 0 (apply 'call-process program nil t nil args))
+      (error "Couldn't fetch %s" url))))
 
 (defvar mm-url-timeout 30
   "The number of seconds before timing out an URL fetch.")
-- 
1.7.10.4