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

[Ulf Jasper]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Ulf Jasper <u11>        09/01/23 18:49:06

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

Log message:
        newsticker: fixed bug#1710

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15158&r2=1.15159
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/newst-backend.el?cvsroot=emacs&r1=1.7&r2=1.8

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15158
retrieving revision 1.15159
diff -u -b -r1.15158 -r1.15159
--- ChangeLog   23 Jan 2009 15:09:16 -0000      1.15158
+++ ChangeLog   23 Jan 2009 18:49:03 -0000      1.15159
@@ -1,3 +1,8 @@
+2009-01-23  Ulf Jasper  <address@hidden>
+
+       * net/newst-backend.el (newsticker--cache-read): Offer deletion of
+       old cache file.  Fixes bug#1710.
+
 2009-01-23  Chong Yidong  <address@hidden>
 
        * mail/rmail.el (rmail-generate-viewer-buffer): Fix typo.

Index: net/newst-backend.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/newst-backend.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- net/newst-backend.el        5 Jan 2009 03:22:45 -0000       1.7
+++ net/newst-backend.el        23 Jan 2009 18:49:06 -0000      1.8
@@ -7,7 +7,7 @@
 ;; Filename:    newst-backend.el
 ;; URL:         http://www.nongnu.org/newsticker
 ;; Keywords:    News, RSS, Atom
-;; Time-stamp:  "22. Dezember 2008, 19:58:01 (ulf)"
+;; Time-stamp:  "23. Januar 2009, 19:39:22 (ulf)"
 
 ;; ======================================================================
 
@@ -2155,8 +2155,8 @@
       (progn
         (when (y-or-n-p "Old newsticker cache file exists.  Read it? ")
           (newsticker--cache-read-version1))
-        (message "Please remove/rename the old cache file (%s) now."
-                 newsticker-cache-filename))
+        (when (y-or-n-p (format "Delete old newsticker cache file? "))
+          (delete-file newsticker-cache-filename)))
     (mapc (lambda (f)
             (newsticker--cache-read-feed (car f)))
           (append newsticker-url-list-defaults newsticker-url-list))))