X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fgnus.git-;a=blobdiff_plain;f=lisp%2Fmd5.el;h=94d65de2c76a2362afc6af88fd657e15e90cdeed;hp=91a3041fff89f6e3ca8b95b9442bbbb1ee1d9fc4;hb=027a90912122f2cb3e36d82310f32962e3ce2f71;hpb=3304290c446e3fd89151ebe599b3c0cea8522329

diff --git a/lisp/md5.el b/lisp/md5.el
index 91a3041..94d65de 100644
--- a/lisp/md5.el
+++ b/lisp/md5.el
@@ -360,10 +360,10 @@ Returns a vector of 16 bytes containing the message digest."
      c (md5-II c d a b (aref in  2) 15 '(10967 . 53947))
      b (md5-II b c d a (aref in  9) 21 '(60294 . 54161)))
 
-     (aset md5-buffer 0 (md5-add (aref md5-buffer 0) a))
-     (aset md5-buffer 1 (md5-add (aref md5-buffer 1) b))
-     (aset md5-buffer 2 (md5-add (aref md5-buffer 2) c))
-     (aset md5-buffer 3 (md5-add (aref md5-buffer 3) d))))
+    (aset md5-buffer 0 (md5-add (aref md5-buffer 0) a))
+    (aset md5-buffer 1 (md5-add (aref md5-buffer 1) b))
+    (aset md5-buffer 2 (md5-add (aref md5-buffer 2) c))
+    (aset md5-buffer 3 (md5-add (aref md5-buffer 3) d))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Here begins the merger with the XEmacs API and the md5.el from the URL
@@ -374,7 +374,7 @@ Returns a vector of 16 bytes containing the message digest."
 OBJECT is either a string or a buffer.
 Optional arguments START and END denote buffer positions for computing the
 hash of a portion of OBJECT."
- (let ((buffer nil))
+  (let ((buffer nil))
     (unwind-protect
 	(save-excursion
 	  (setq buffer (generate-new-buffer " *md5-work*"))