Mercurial > hg > xemacs-beta

diff lisp/w3/url-gopher.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents 441bb1e64a06
children cca96a509cfe
line wrap: on
line diff
--- a/lisp/w3/url-gopher.el	Mon Aug 13 08:53:21 2007 +0200
+++ b/lisp/w3/url-gopher.el	Mon Aug 13 08:53:38 2007 +0200
@@ -1,7 +1,7 @@
 ;;; url-gopher.el --- Gopher Uniform Resource Locator retrieval code
 ;; Author: wmperry
-;; Created: 1997/02/18 23:34:30
-;; Version: 1.6
+;; Created: 1997/03/18 01:02:58
+;; Version: 1.7
 ;; Keywords: comm, data, processes
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -456,8 +456,7 @@
 		   (nth 1 descr))))
       (if url-use-hypertext-gopher
 	  (url-do-gopher descr)
-	(gopher-dispatch-object (vector (if (= 0
-					       (string-to-char (nth 2 descr)))
+	(gopher-dispatch-object (vector (if (= 0 (length (nth 2 descr)))
 					    ?1
 					  (string-to-char (nth 2 descr)))
 					(nth 2 descr) (nth 2 descr)