$NetBSD: patch-ab,v 1.1 2002/10/18 14:50:15 minoura Exp $

--- lisp/mule-sysdp.el.orig	Sun Nov 14 22:00:12 1999
+++ lisp/mule-sysdp.el	Thu Oct 17 04:05:16 2002
@@ -23,10 +23,15 @@
 						   mule-version))
 				    (if (or (fboundp 'kinsoku)
 					    (boundp 'kinsoku-ascii))
-					(string-to-number (substring
-							   mule-version
-							   (match-beginning 0)
-							   (match-end 0)))
+					(let (vers)
+					  (setq vers
+						(string-to-number
+						 (substring mule-version
+							    (match-beginning 0)
+							    (match-end 0))))
+					  (if (> vers 4.0)
+					      4.0
+					    vers))
 				      0))
 				   (t 2.3))
 				0)
