Mercurial > hg > xemacs-beta

diff lisp/url/url-http.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children
line wrap: on
line diff
--- a/lisp/url/url-http.el	Mon Aug 13 08:45:53 2007 +0200
+++ b/lisp/url/url-http.el	Mon Aug 13 08:46:35 2007 +0200
@@ -609,10 +609,11 @@
 		      (condition-case ()
 			  (url-kill-process process)
 			(error nil))))
-		  (if (not url-be-asynchronous)
-		      (message "Retrieval complete."))
-		  (remove-hook 'after-change-functions
-			       'url-after-change-function)))))
+		  (if url-be-asynchronous
+		      nil
+		    (message "Retrieval complete.")
+		    (remove-hook 'after-change-functions
+				 'url-after-change-function))))))
 	(progn
 	  (ding)
 	  (url-warn 'security "Aborting connection to bad port..."))))))