[Emacs-diffs] emacs/lisp ChangeLog net/newst-treeview.el

[Ulf Jasper]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Ulf Jasper <u11>        09/02/16 20:45:17

Modified files:
        lisp           : ChangeLog 
        lisp/net       : newst-treeview.el 

Log message:
        newsticker: offer deletion of old groups file.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15337&r2=1.15338
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/newst-treeview.el?cvsroot=emacs&r1=1.17&r2=1.18

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15337
retrieving revision 1.15338
diff -u -b -r1.15337 -r1.15338
--- ChangeLog   16 Feb 2009 01:18:38 -0000      1.15337
+++ ChangeLog   16 Feb 2009 20:45:14 -0000      1.15338
@@ -1,3 +1,8 @@
+2009-02-16  Ulf Jasper  <address@hidden>
+
+       * net/newst-treeview.el (newsticker--treeview-load): Offer
+       deletion of old groups file.
+
 2009-02-16  Glenn Morris  <address@hidden>
 
        * mail/rmailout.el (rmail-delete-unwanted-fields)

Index: net/newst-treeview.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/newst-treeview.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- net/newst-treeview.el       9 Feb 2009 20:05:50 -0000       1.17
+++ net/newst-treeview.el       16 Feb 2009 20:45:17 -0000      1.18
@@ -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 @@
               (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))