From 7855c28b8ddeb14a6f637bcae5048f28d764271e Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 21 Jan 2003 17:45:17 +0000 Subject: [PATCH] Indent. --- lisp/nntp.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/nntp.el b/lisp/nntp.el index b99af970b..f8b847d27 100644 --- 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)) - (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) - (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)))) @@ -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) - (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)) -- 2.25.1