X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fmd5.c;h=acb9f0d8653f7dab20627961e2c65b8e054bed29;hp=86fb828e4f9982c511b8ef9d1431ef5bd06d22ee;hb=35adcaaeafb1fe93eaf00c39b48619e8f188ff3f;hpb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921

diff --git a/src/md5.c b/src/md5.c
index 86fb828..acb9f0d 100644
--- 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);