mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

newsticker: offer deletion of old groups file.

Browse Source
This commit is contained in:
Ulf Jasper 2009-02-16 20:45:14 +00:00
parent 5dc584b517
commit c6193b5379
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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)

5
lisp/net/newst-treeview.el
View File

@ -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))