newsticker: kill groups buffer after saving/loading.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7389ce71d8715e8ccefa28b718ade3bd3045cbc..8d39cc70a07161a338d45715f99522687d3ab58d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-02-09  Ulf Jasper  <ulf.jasper@web.de>
+
+       * net/newst-treeview.el (newsticker-treeview-save)
+       (newsticker--treeview-load): Kill groups buffer after
+       saving/loading.
+
 2009-02-09  Tassilo Horn  <tassilo@member.fsf.org>
 
        * doc-view.el (doc-view-scroll-up-or-next-page)

diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index cb70a311c55d6c271093c74865476000b220d602..a30fe8ebb39ea6a9397e7773834b20dca7d8dc9d 100644 (file)
--- a/lisp/net/newst-treeview.el
+++ b/lisp/net/newst-treeview.el
@@ -7,7 +7,7 @@
 ;; URL:         http://www.nongnu.org/newsticker
 ;; Created:     2007
 ;; Keywords:    News, RSS, Atom
-;; Time-stamp:  "7. Februar 2009, 11:46:00 (ulf)"
+;; Time-stamp:  "8. Februar 2009, 19:24:05 (ulf)"
 
 ;; ======================================================================
 
@@ -1246,7 +1246,8 @@ Note: does not update the layout."
         (erase-buffer)
         (insert ";; -*- coding: utf-8 -*-\n")
         (insert (prin1-to-string newsticker-groups))
-        (save-buffer)))))
+        (save-buffer)
+        (kill-buffer)))))
 
 (defun newsticker--treeview-load ()
   "Load treeview settings."
@@ -1267,7 +1268,8 @@ Note: does not update the layout."
           (setq newsticker-groups (read buf))
         (error
          (message "Error while reading newsticker groups file!")
-         (setq newsticker-groups nil))))))
+         (setq newsticker-groups nil)))
+      (kill-buffer buf))))
 
 
 (defun newsticker-treeview-scroll-item ()