(nnrss-close): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd551d5..2e3ac29 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-02-09  Jesper Harder  <harder@ifa.au.dk>
+
+       * nnrss.el (nnrss-close): New function.
+
 2004-02-08  Jesper Harder  <harder@ifa.au.dk>
 
        * nnrss.el (nnrss-make-filename): New function.

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index d767109..3368bb1 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -352,6 +352,15 @@ ARTICLE is the article number of the current headline.")
            ".el"))
    nnrss-directory))
 
+(gnus-add-shutdown 'nnrss-close 'gnus)
+
+(defun nnrss-close ()
+  "Clear internal nnrss variables."
+  (setq nnrss-group-data nil
+       nnrss-server-data nil
+       nnrss-group-hashtb nil
+       nnrss-group-alist nil))
+
 ;;; URL interface
 
 (defun nnrss-no-cache (url)