Speedups; see ChangeLog for fine details.

[elisp/gnus.git-] / lisp / md5.el

diff --git a/lisp/md5.el b/lisp/md5.el
index 3fabf29..e68afe7 100644 (file)
--- a/lisp/md5.el
+++ b/lisp/md5.el
@@ -391,7 +391,7 @@ hash of a portion of OBJECT."
              (if (<= (point-max) md5-maximum-internal-length)
                  (mapconcat
                   (function (lambda (node) (format "%02x" node)))
-                  (md5-encode (buffer-string))
+                  (md5-encode (buffer-substring (point-min) (point-max)))
                   "")
                (call-process-region (point-min) (point-max)
                                     (or shell-file-name "/bin/sh")