X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnwfm.el;h=17f2656782df517e27c84f0cb3a6b1dc4f93589f;hb=4997c10ff13e32fb66d004a28f2e0f52170be6f3;hp=ccabdfadbba617b2f489a8f19f71d33c66f33101;hpb=3738187cad20787b5b99c4061256e30e19ee721a;p=elisp%2Fgnus.git-

diff --git a/lisp/nnwfm.el b/lisp/nnwfm.el
index ccabdfa..17f2656 100644
--- a/lisp/nnwfm.el
+++ b/lisp/nnwfm.el
@@ -29,6 +29,7 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
+(eval-when-compile (require 'gnus-clfns))
 
 (require 'nnoo)
 (require 'message)
@@ -138,10 +139,10 @@
 		  (push (list from time bstuff) contents))))
 	    (setq contents (nreverse contents))
 	    (dolist (art (cdr elem))
-		(push (list (car art)
-			    (nth (1- (cdr art)) contents)
-			    subject)
-		      nnwfm-articles))))
+	      (push (list (car art)
+			  (nth (1- (cdr art)) contents)
+			  subject)
+		    nnwfm-articles))))
 	(setq nnwfm-articles
 	      (sort nnwfm-articles 'car-less-than-car))
 	;; Now we have all the articles, conveniently in an alist
@@ -297,7 +298,7 @@
 	(when (re-search-forward "href=\"\\(Thread.*DateLast=\\([^\"]+\\)\\)"
 				 nil t)
 	  (setq url (match-string 1)
-		time (nnwfm-date-to-time (gnus-url-unhex-string 
+		time (nnwfm-date-to-time (gnus-url-unhex-string
 					  (match-string 2))))
 	  (when (and (nnwfm-new-threads-p group time)
 		     (not (member
@@ -349,7 +350,7 @@
   (unless nnwfm-groups-alist
     (nnwfm-read-groups)
     (setq nnwfm-groups (cdr (assoc nnwfm-address
-					nnwfm-groups-alist)))))
+				   nnwfm-groups-alist)))))
 
 (deffoo nnwfm-open-server (server &optional defs connectionless)
   (nnheader-init-server-buffer)