From: Kai Grossjohann <kgrossjo@eu.uu.net>
Date: Fri, 14 May 2004 11:51:47 +0000 (+0000)
Subject: (nntp-marks-changed-p): New arg SERVER.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=6d2ef7aa22e8fcc3f67f862f26152efc0f3304c5

(nntp-marks-changed-p): New arg SERVER.
(nntp-request-update-info): Adjust caller.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1bbdba090..05fdcf4f0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
 	* nntp.el (nntp-request-set-mark, nntp-request-update-info): Call
 	nntp-possibly-create-directory, not nntp-possibly-change-group.
+	(nntp-marks-changed-p): New arg SERVER.
+	(nntp-request-update-info): Adjust caller.
 
 2004-05-14  Kai Grossjohann  <kai@emptydomain.de>
 
diff --git a/lisp/nntp.el b/lisp/nntp.el
index 9015533b3..f7aef8d69 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1046,7 +1046,7 @@ command whose response triggered the error."
 
 (deffoo nntp-request-update-info (group info &optional server)
   (nntp-possibly-create-directory group server)
-  (when (and (not nntp-marks-is-evil) (nntp-marks-changed-p group))
+  (when (and (not nntp-marks-is-evil) (nntp-marks-changed-p group server))
     (nnheader-message 8 "Updating marks for %s..." group)
     (nntp-open-marks group server)
     ;; Update info using `nntp-marks'.
@@ -1980,7 +1980,7 @@ Please refer to the following variables to customize the connection:
       (make-directory (directory-file-name dir) t)
       (nnheader-message 5 "Creating nntp marks directory %s" dir))))
 
-(defun nntp-marks-changed-p (group)
+(defun nntp-marks-changed-p (group server)
   (let ((file (expand-file-name
 	       nntp-marks-file-name 
 	       (nnmail-group-pathname