projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
516c7ba
)
Indent.
author
Lars Magne Ingebrigtsen
<larsi@gnus.org>
Tue, 21 Jan 2003 17:45:17 +0000
(17:45 +0000)
committer
Lars Magne Ingebrigtsen
<larsi@gnus.org>
Tue, 21 Jan 2003 17:45:17 +0000
(17:45 +0000)
lisp/nntp.el
patch
|
blob
|
history
diff --git
a/lisp/nntp.el
b/lisp/nntp.el
index
b99af97
..
f8b847d
100644
(file)
--- a/
lisp/nntp.el
+++ b/
lisp/nntp.el
@@
-1439,12
+1439,13
@@
password contained in '~/.nntp-authinfo'."
(while (re-search-forward "^[0-9][0-9][0-9] .*\n" nil t)
(incf received))
(setq last-point (point))
(while (re-search-forward "^[0-9][0-9][0-9] .*\n" nil t)
(incf received))
(setq last-point (point))
- (or (< received count) ;; I haven't started reading the final response
+ (or (< received count)
+ ;; I haven't started reading the final response
(progn
(goto-char (point-max))
(forward-line -1)
(progn
(goto-char (point-max))
(forward-line -1)
- (not (looking-at "^\\.\r?\n")))
;; I haven't read the end of the final response
- ))
+ (not (looking-at "^\\.\r?\n")))
))
+ ;; I haven't read the end of the final response
(nntp-accept-response)
(set-buffer process-buffer))))
(nntp-accept-response)
(set-buffer process-buffer))))
@@
-1462,8
+1463,9
@@
password contained in '~/.nntp-authinfo'."
(when (<= count 1)
(goto-char (point-min))
(when (re-search-forward "^[0-9][0-9][0-9] .*\n\\([0-9]+\\)" nil t)
(when (<= count 1)
(goto-char (point-min))
(when (re-search-forward "^[0-9][0-9][0-9] .*\n\\([0-9]+\\)" nil t)
- (let ((low-limit (string-to-int (buffer-substring (match-beginning 1)
- (match-end 1)))))
+ (let ((low-limit (string-to-int
+ (buffer-substring (match-beginning 1)
+ (match-end 1)))))
(while (and articles (<= (car articles) low-limit))
(setq articles (cdr articles))))))
(set-buffer buf))
(while (and articles (<= (car articles) low-limit))
(setq articles (cdr articles))))))
(set-buffer buf))