Mercurial > hg > xemacs-beta

diff lisp/gnus/nntp.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 8fc7fe29b841
children ec9a17fef872
line wrap: on
line diff
--- a/lisp/gnus/nntp.el	Mon Aug 13 08:51:05 2007 +0200
+++ b/lisp/gnus/nntp.el	Mon Aug 13 08:51:32 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