--- a/lisp/minibuf.el	Mon Aug 13 10:07:42 2007 +0200
+++ b/lisp/minibuf.el	Mon Aug 13 10:08:34 2007 +0200
@@ -209,13 +209,21 @@
        (eq ?/ (char-before (point)))
        (not (save-excursion
 	      (goto-char (point-min))
-	      (and (looking-at "^/.+:~?")
+	      (and (looking-at "^/.+:~?[^/]*/.+")
 		   (re-search-forward "^/.+:~?[^/]*" nil t)
 		   (progn
 		     (delete-region (point) (point-max))
 		     t))))
+       (not (save-excursion
+	      (goto-char (point-min))
+	      (and (looking-at "^.+://[^/]*/.+")
+		   (re-search-forward "^.+:/" nil t)
+		   (progn
+		     (delete-region (point) (point-max))
+		     t))))
        (not (eq (point) (1+ (point-min)))) ; permit `//hostname/path/to/file'
-       (not (eq ?: (char-after (- (point) 2)))) ; permit `http://url/goes/here'
+       (or (not (eq ?: (char-after (- (point) 2)))) ; permit `http://url/goes/here'
+	   (eq ?/ (char-after (point-min))))
        (delete-region (point-min) (point)))
   (insert ?/))