X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-registry.el;h=f0d955d790ccf1a47b0c29655881c882f6d5689a;hb=8047583c8c86a5c6a61bddc27b391042e39e1ce5;hp=bd405c02af5b94dd141f9ac5111dc362e2661c6c;hpb=96cb7d1d60a789fa231db405c351ab90cad5a0d4;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index bd405c0..f0d955d 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -267,16 +267,16 @@ way."
 (defun gnus-registry-trim (alist)
   "Trim alist to size, using gnus-registry-max-entries."
   (if (null gnus-registry-max-entries)
-      alist				; just return the alist
+      alist                             ; just return the alist
     ;; else, when given max-entries, trim the alist
     (let* ((timehash (make-hash-table
-		     :size 4096
-		     :test 'equal))
-	  (trim-length (- (length alist) gnus-registry-max-entries))
-	  (trim-length (if (natnump trim-length) trim-length 0)))
+		      :size 4096
+		      :test 'equal))
+	   (trim-length (- (length alist) gnus-registry-max-entries))
+	   (trim-length (if (natnump trim-length) trim-length 0)))
       (maphash
        (lambda (key value)
-	 (puthash key (gnus-registry-fetch-extra key 'mtime) timehash))
+         (puthash key (gnus-registry-fetch-extra key 'mtime) timehash))
        gnus-registry-hashtb)
 
       ;; we use the return value of this setq, which is the trimmed alist