X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnagent.el;h=9d94eb8dff94a572c9ab841daa4872793ee808d3;hb=27df114db202e8a922cf5e6c59a90be21701765c;hp=714a07a1671308b81dddd535929fd40a3432e287;hpb=1a07d3af53efbefbb605a969eee925e759962b37;p=gnus

diff --git a/lisp/nnagent.el b/lisp/nnagent.el
index 714a07a16..9d94eb8df 100644
--- a/lisp/nnagent.el
+++ b/lisp/nnagent.el
@@ -1,5 +1,5 @@
 ;;; nnagent.el --- offline backend for Gnus
-;; Copyright (C) 1997,98 Free Software Foundation, Inc.
+;; Copyright (C) 1997,98,99 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news, mail
@@ -73,7 +73,8 @@
 	     (ftp-error (setq err (format "%s" arg)))))
       (nnagent-close-server)
       (nnheader-report
-       'nnagent (or err "No such file or directory: %s" dir)))
+       'nnagent (or err
+		    (format "No such file or directory: %s" dir))))
      ((not (file-directory-p (file-truename dir)))
       (nnagent-close-server)
       (nnheader-report 'nnagent "Not a directory: %s" dir))
@@ -110,7 +111,10 @@
 
 (deffoo nnagent-request-post (&optional server)
   (gnus-agent-insert-meta-information 'news gnus-command-method)
-  (gnus-request-accept-article "nndraft:queue"))
+  (gnus-request-accept-article "nndraft:queue" nil t t))
+
+(deffoo nnagent-request-set-mark (group action server)
+  action)
 
 ;; Use nnml functions for just about everything.
 (nnoo-import nnagent