(nnagent-request-set-mark): Use write-region instead of

append-to-file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 85eff18..c730e70 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * nnagent.el (nnagent-request-set-mark): Silence log file
        writing. 
+       (nnagent-request-set-mark): Use write-region instead of
+       append-to-file. 
 
        * gnus-sum.el (gnus-read-header): Fudge article number if using a
        strange select method.

diff --git a/lisp/nnagent.el b/lisp/nnagent.el
index 169659e..7234d40 100644 (file)
--- a/lisp/nnagent.el
+++ b/lisp/nnagent.el
@@ -130,8 +130,8 @@
            (gnus-method-to-server gnus-command-method)
            "\"")
     (insert ")\n")
-    (append-to-file (point-min) (point-max) (gnus-agent-lib-file "flags")
-                   nil 'silent))
+    (write-region (point-min) (point-max) (gnus-agent-lib-file "flags")
+                 t 'silent))
   nil)
 
 (deffoo nnagent-retrieve-headers (articles &optional group server fetch-old)