(gnus-agent-copy-nov-line): Test eobp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 78f1ebf..03085a9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * gnus-agent.el (gnus-agent-regenerate-group): New function.
        (gnus-agent-regenerate): New function.
        (gnus-agent-save-alist): Sort.
+       (gnus-agent-copy-nov-line): Test eobp.
 
 2002-01-10  ShengHuo ZHU  <zsh@cs.rochester.edu>
 

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 1f73243..0f6f67c 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1038,14 +1038,15 @@ the actual number of articles toggled is returned."
 (defsubst gnus-agent-copy-nov-line (article)
   (let (b e)
     (set-buffer gnus-agent-overview-buffer)
-    (setq b (point))
-    (if (eq article (read (current-buffer)))
-       (setq e (progn (forward-line 1) (point)))
-      (progn
-       (beginning-of-line)
-       (setq e b)))
-    (set-buffer nntp-server-buffer)
-    (insert-buffer-substring gnus-agent-overview-buffer b e)))
+    (unless (eobp)
+      (setq b (point))
+      (if (eq article (read (current-buffer)))
+         (setq e (progn (forward-line 1) (point)))
+       (progn
+         (beginning-of-line)
+         (setq e b)))
+      (set-buffer nntp-server-buffer)
+      (insert-buffer-substring gnus-agent-overview-buffer b e))))
 
 (defun gnus-agent-braid-nov (group articles file)
   (set-buffer gnus-agent-overview-buffer)