* gnus-agent.el (gnus-agent-request-article): Make sure it is not

	empty file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6d53e67..9194fa5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-24  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-agent.el (gnus-agent-request-article): Make sure it is not
+       empty file.
+
        * nnweb.el (url): Ignore errors when request url.
        
        * nnrss.el: Clean up the comments.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 2019bb1..015e27d 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1872,8 +1872,9 @@ The following commands are available:
                  (gnus-agent-directory)
                  (gnus-agent-group-path group) "/"
                  (number-to-string article)))
-       (buffer-read-only nil))
-    (when (file-exists-p file)
+        (buffer-read-only nil))
+    (when (and (file-exists-p file)
+              (> (nth 7 (file-attributes file)) 0))
       (erase-buffer)
       (gnus-kill-all-overlays)
       (let ((coding-system-for-read gnus-cache-coding-system))