newsticker: offer deletion of old groups file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dd6b376a9883988e42fd94b83b9a8c611ddf8700..093bd0fa8e139e4cab0a59a26a0ef5731f7e7462 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-16  Ulf Jasper  <ulf.jasper@web.de>
+
+       * net/newst-treeview.el (newsticker--treeview-load): Offer
+       deletion of old groups file.
+
 2009-02-16  Glenn Morris  <rgm@gnu.org>
 
        * mail/rmailout.el (rmail-delete-unwanted-fields)

diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index a30fe8ebb39ea6a9397e7773834b20dca7d8dc9d..572387f60f234e8abaa92b89406c6476762be139 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:  "8. Februar 2009, 19:24:05 (ulf)"
+;; Time-stamp:  "16. Februar 2009, 21:25:09 (ulf)"
 
 ;; ======================================================================
 
@@ -1261,6 +1261,9 @@ Note: does not update the layout."
               (concat newsticker-dir "/groups")))
          (buf (and (file-exists-p filename)
                    (find-file-noselect filename))))
+    (if (and (file-exists-p newsticker-groups-filename)
+             (y-or-n-p (format "Delete old newsticker groups file? "))
+             (delete-file newsticker-groups-filename)))
     (when buf
       (set-buffer buf)
       (goto-char (point-min))