Mercurial > hg > xemacs-beta

diff lisp/gnus/nntp.el @ 104:cf808b4c4290 r20-1b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b4
author cvs
date Mon, 13 Aug 2007 09:16:51 +0200
parents 0d2f883870bc
children 360340f9fd5f
line wrap: on
line diff
--- a/lisp/gnus/nntp.el	Mon Aug 13 09:15:51 2007 +0200
+++ b/lisp/gnus/nntp.el	Mon Aug 13 09:16:51 2007 +0200
@@ -233,7 +233,8 @@
 	(re-search-backward "^[0-9]" nil t)
 	(when (looking-at "^[23]")
 	  (while (progn
-		   (goto-char (- (point-max) 3))
+		   (goto-char (point-max))
+		   (forward-line -1)
 		   (not (looking-at "^\\.\r?\n")))
 	    (nntp-accept-response)))
 	(and (numberp nntp-large-newsgroup)
@@ -1086,8 +1087,7 @@
     (nntp-wait-for-string "^\r*200")
     (beginning-of-line)
     (delete-region (point-min) (point))
-    proc)
-  )
+    proc))
 
 (defun nntp-find-group-and-number ()
   (save-excursion