XEmacs 21.2.6

[chise/xemacs-chise.git.1] / src / md5.c

diff --git a/src/md5.c b/src/md5.c
index 86fb828..acb9f0d 100644 (file)
--- a/src/md5.c
+++ b/src/md5.c
@@ -563,7 +563,7 @@ file-coding or Mule support.  Otherwise, they are ignored.
       CHECK_STRING (object);
       get_string_range_byte (object, start, end, &bstart, &bend,
                             GB_HISTORICAL_STRING_BEHAVIOR);
-      instream = make_lisp_string_input_stream (object, bstart, bend);
+      instream = make_lisp_string_input_stream (object, bstart, bend - bstart);
     }
   GCPRO1 (instream);