From d3cd81ecfc491f20b9ff081e074fbdebfc6038e5 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Sat, 23 Oct 1999 10:56:26 +0000 Subject: [PATCH] save flag changes when unplugged --- lisp/nnagent.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/nnagent.el b/lisp/nnagent.el index 9d94eb8df..ed628506a 100644 --- a/lisp/nnagent.el +++ b/lisp/nnagent.el @@ -114,7 +114,12 @@ (gnus-request-accept-article "nndraft:queue" nil t t)) (deffoo nnagent-request-set-mark (group action server) - action) + (with-temp-buffer + (insert (format "(%s-request-set-mark \"%s\" '%s \"%s\")\n" + (nth 0 gnus-command-method) group action + (or server (nth 1 gnus-command-method)))) + (append-to-file (point-min) (point-max) (gnus-agent-lib-file "flags"))) + nil) ;; Use nnml functions for just about everything. (nnoo-import nnagent -- 2.34.1