Redefine some basic methods.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b528c5e..f2b3854 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-15 08:55:19  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnagent.el (nnagent-server-opened): Redefine.
+       (nnagent-status-message): Ditto.
+
 1999-12-14 23:37:44  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * rfc1843.el (rfc1843-decode-region): Use

diff --git a/lisp/nnagent.el b/lisp/nnagent.el
index e4eb1b0..0548547 100644 (file)
--- a/lisp/nnagent.el
+++ b/lisp/nnagent.el
@@ -184,6 +184,14 @@
   (nnoo-parent-function 'nnagent 'nnml-set-status 
                    (list article name value group (nnagent-server server))))
 
+(deffoo nnagent-server-opened (server)
+  (nnoo-parent-function 'nnagent 'nnml-server-opened
+                       (list (nnagent-server server))))
+
+(deffoo nnagent-status-message (server)
+  (nnoo-parent-function 'nnagent 'nnml-status-message
+                       (list (nnagent-server server))))
+
 ;; Use nnml functions for just about everything.
 (nnoo-import nnagent
   (nnml))