newsticker: Change wording of confirmation prompt regarding obsolete variable `newsti...

Fixes: debbugs:19165
* lisp/net/newst-treeview.el (newsticker-groups-filename): Change
default value to nil.  Point out that variable is obsolete in doc
string.
(newsticker--treeview-load): Change wording of the questions the
user is asked when `newsticker-groups-filename' is found to be
used and we offer to read and remove the groups file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d875b05e588487d15f63edc09c862102e5789de..3665d19bcbd9c0fd004ba0e1adddbcc431cd28ce 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2014-11-27  Ulf Jasper  <ulf.jasper@web.de>
+
+       * net/newst-treeview.el (newsticker-groups-filename): Change
+       default value to nil.  Point out that variable is obsolete in doc
+       string.
+       (newsticker--treeview-load): Change wording of the questions the
+       user is asked when `newsticker-groups-filename' is found to be
+       used and we offer to read and remove the groups file. (bug#19165)
+
 2014-11-27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * net/eww.el (eww): Record the new URL immediately, so that if the

diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index 6d0720d074ea86581259dc5ef98a5cc2099a5b7b..94661922cab3531f8ab4c6c57a9b67cdf4c7e6f5 100644 (file)
--- a/lisp/net/newst-treeview.el
+++ b/lisp/net/newst-treeview.el
@@ -132,8 +132,9 @@ Example: (\"Topmost group\" \"feed1\" (\"subgroup1\" \"feed 2\")
 \"feed3\")")
 
 (defcustom newsticker-groups-filename
-  "~/.newsticker-groups"
-  "Name of the newsticker groups settings file."
+  nil
+  "Name of the newsticker groups settings file.  This variable is obsolete."
+  :version "25.1"                       ; changed default value to nil
   :type 'string
   :group 'newsticker-treeview)
 (make-obsolete-variable 'newsticker-groups-filename 'newsticker-dir "23.1")
@@ -1259,16 +1260,26 @@ Note: does not update the layout."
   "Load treeview settings."
   (let* ((coding-system-for-read 'utf-8)
          (filename
-          (or (and (file-exists-p newsticker-groups-filename)
+          (or (and newsticker-groups-filename
+                   (not (string=
+                         (expand-file-name newsticker-groups-filename)
+                         (expand-file-name (concat newsticker-dir "/groups"))))
+                   (file-exists-p newsticker-groups-filename)
                    (y-or-n-p
-                    (format "Old newsticker groups (%s) file exists.  Read it? "
-                            newsticker-groups-filename))
+                    (format
+                     (concat "Obsolete variable `newsticker-groups-filename' "
+                             "points to existing file \"%s\".\n"
+                             "Read it? ")
+                     newsticker-groups-filename))
                    newsticker-groups-filename)
               (concat newsticker-dir "/groups")))
          (buf (and (file-exists-p filename)
                    (find-file-noselect filename))))
     (and (file-exists-p newsticker-groups-filename)
-        (y-or-n-p (format "Delete old newsticker groups file? "))
+        (y-or-n-p (format
+                    (concat "Delete the file \"%s\",\nto which the obsolete "
+                            "variable `newsticker-groups-filename' points ? ")
+                    newsticker-groups-filename))
         (delete-file newsticker-groups-filename))
     (when buf
       (set-buffer buf)