(nntp-request-set-mark, nntp-request-update-info):

Avoid creating directory when nntp-marks-is-evil is true.
Reported by Reiner Steib.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae5b3a6..b9a9f4b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-05-18  Kai Grossjohann  <kgrossjo@eu.uu.net>
+
+       * nntp.el (nntp-request-set-mark, nntp-request-update-info):
+       Avoid creating directory when nntp-marks-is-evil is true.
+       Reported by Reiner Steib.
+
 2004-05-18  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-picon.el (gnus-picon-style): New variable.

diff --git a/lisp/nntp.el b/lisp/nntp.el
index f7aef8d..4e0182b 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1025,8 +1025,8 @@ command whose response triggered the error."
   t)
 
 (deffoo nntp-request-set-mark (group actions &optional server)
-  (nntp-possibly-create-directory group server)
   (unless nntp-marks-is-evil
+    (nntp-possibly-create-directory group server)
     (nntp-open-marks group server)
     (dolist (action actions)
       (let ((range (nth 0 action))
@@ -1045,7 +1045,8 @@ command whose response triggered the error."
   nil)
 
 (deffoo nntp-request-update-info (group info &optional server)
-  (nntp-possibly-create-directory group server)
+  (unless nntp-marks-is-evil
+    (nntp-possibly-create-directory group server))
   (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)