From: shuhei-k <shuhei-k>
Date: Sun, 30 Aug 1998 17:24:03 +0000 (+0000)
Subject: whitespace fix.
X-Git-Tag: shuhei-k-199811302358~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ad7fd1645343fef7f2e1da43f97c973887887158;p=elisp%2Fgnus.git-

whitespace fix.
---

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index c1125f8..8c2b232 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -762,14 +762,6 @@ the actual number of articles toggled is returned."
 	  (set-buffer nntp-server-buffer)
 	  (unless (eq 'nov (gnus-retrieve-headers articles group))
 	    (nnvirtual-convert-headers))
-	  ;; XXX: Is this still need?
-	  ;; To gnus-agent-expire work fine with no Xref field in .overview 
-	  ;; Tatsuya Ichikawa <ichikawa@hv.epson.co.jp>
-	  ;; (goto-char (point-min))
-	  ;; (while (not (eobp))
-	  ;;   (goto-char (point-at-eol))
-	  ;;   (insert "\t")
-	  ;;   (forward-line 1))
 	  ;; Save these headers for later processing.
 	  (copy-to-buffer gnus-agent-overview-buffer (point-min) (point-max))
 	  (let (file)
@@ -1310,14 +1302,14 @@ The following commands are available:
 				  (cdr (assq 'dormant
 					     (gnus-info-marks info)))))
 		   nov-file (gnus-agent-article-name ".overview" group))
- 	     (gnus-agent-load-alist group)
+	     (gnus-agent-load-alist group)
 	     (gnus-message 5 "Expiring articles in %s" group)
 	     (set-buffer overview)
 	     (erase-buffer)
 	     (when (file-exists-p nov-file)
 	       (nnheader-insert-file-contents nov-file))
 	     (goto-char (point-min))
- 	     (setq article 0)
+	     (setq article 0)
 	     (while (setq elem (pop articles))
 	       (setq article (car elem))
 	       (when (or (null low)