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

[Ulf Jasper]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Ulf Jasper <u11>        08/12/18 10:54:24

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

Log message:
        newsticker: fixed problem with missing group definition

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.14962&r2=1.14963
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/newst-backend.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/newst-treeview.el?cvsroot=emacs&r1=1.10&r2=1.11

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.14962
retrieving revision 1.14963
diff -u -b -r1.14962 -r1.14963
--- ChangeLog   18 Dec 2008 10:39:11 -0000      1.14962
+++ ChangeLog   18 Dec 2008 10:54:21 -0000      1.14963
@@ -1,3 +1,12 @@
+2008-12-18  Ulf Jasper  <address@hidden>
+
+       * net/newst-treeview.el (newsticker-groups-filename): Made obsolete.
+       (newsticker-treeview-quit): Call `newsticker-treeview-save'.
+       (newsticker--treeview-load): Check whether groups file exists.
+
+       * net/newst-backend.el (newsticker-cache-filename): Made obsolete.
+       (newsticker-dir): Use `locate-user-emacs-file'.
+
 2008-12-18  Martin Rudalics  <address@hidden>
 
        * emulation/cua-base.el (cmd): Add beginning-of-visual-line and
@@ -703,7 +712,7 @@
        * calendar/appt.el (appt-disp-window): Do a set-buffer when the
        frame can't be split.
 
-2008-11-24  Ulf Jasper  <address@hidden>
+2008-11-24  Ulf Jasper  <address@hidden>
 
        * net/newst-treeview.el (newsticker--treeview-current-feed): Docstring.
        (newsticker--treeview-item-show): Rename arg FEED to FEED-NAME-SYMBOL.
@@ -2404,7 +2413,7 @@
        * kmacro.el (kmacro-edit-lossage): Ditto.
        * edmacro.el (edit-kbd-macro): Ditto.
 
-2008-10-11  Ulf Jasper  <address@hidden>
+2008-10-11  Ulf Jasper  <address@hidden>
 
        * net/newst-treeview.el (newsticker--treeview-list-sort-by-column):
        Fix variable names.
@@ -3748,7 +3757,7 @@
        (facemenu-keymap): Bind "\es" to `center-line' and "\eS" to
        `center-paragraph'.
 
-2008-08-25  Ulf Jasper  <address@hidden>
+2008-08-25  Ulf Jasper  <address@hidden>
 
        * net/newst-treeview.el (newsticker-treeview-own-frame): Doc fixed.
        (newsticker-treeview-treewindow-width): New.
@@ -5311,7 +5320,7 @@
        * net/browse-url.el (browse-url-default-browser):
        Fix argument list in lambda.
 
-2008-07-07  Ulf Jasper  <address@hidden>
+2008-07-07  Ulf Jasper  <address@hidden>
 
        * net/newst-backend.el (newsticker--get-news-by-url): Catch errors
        from url-retrieve.
@@ -6012,7 +6021,7 @@
        (COMPILE_FIRST): List the elc files rather than the el files.
        (ELCFILES): Update.
 
-2008-06-21  Ulf Jasper  <address@hidden>
+2008-06-21  Ulf Jasper  <address@hidden>
 
        * net/newst-treeview.el: Remove dead code.
        (newsticker--window-config): Remove.
@@ -6098,7 +6107,7 @@
        * emacs-lisp/checkdoc.el (checkdoc-start-section, checkdoc-error):
        Bind inhibit-read-only since the buffer is always read-only.
 
-2008-06-20  Ulf Jasper  <address@hidden>
+2008-06-20  Ulf Jasper  <address@hidden>
 
        * net/newst-treeview.el (newsticker-treeview-own-frame):
        Change default value to nil.
@@ -6351,7 +6360,7 @@
        * net/tramp-cmds.el (tramp-cleanup-all-connections):
        Reset `tramp-locked'.
 
-2008-06-15  Ulf Jasper  <address@hidden>
+2008-06-15  Ulf Jasper  <address@hidden>
 
        * net/newst-treeview.el (newsticker--treeview-list-update)
        (newsticker--treeview-item-update)
@@ -6370,7 +6379,7 @@
 
        * wdired.el (wdired-search-and-rename): Fix undocumented change.
 
-2008-06-15  Ulf Jasper  <address@hidden>
+2008-06-15  Ulf Jasper  <address@hidden>
 
        * net/newst-plainview.el (newsticker-faces, newsticker-feed-face)
        (newsticker-extra-face, newsticker-enclosure-face): Moved to

Index: net/newst-backend.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/newst-backend.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- net/newst-backend.el        24 Nov 2008 19:40:38 -0000      1.4
+++ net/newst-backend.el        18 Dec 2008 10:54:24 -0000      1.5
@@ -7,7 +7,7 @@
 ;; Filename:    newst-backend.el
 ;; URL:         http://www.nongnu.org/newsticker
 ;; Keywords:    News, RSS, Atom
-;; Time-stamp:  "24. November 2008, 19:39:24 (ulf)"
+;; Time-stamp:  "28. November 2008, 19:55:34 (ulf)"
 
 ;; ======================================================================
 
@@ -423,11 +423,12 @@
   "Name of the newsticker cache file."
   :type 'string
   :group 'newsticker-miscellaneous)
+(make-obsolete 'newsticker-cache-filename 'newsticker-dir)
 
 (defcustom newsticker-dir
-  "~/.newsticker"
-  "Name of the directory where newsticker saves cached data."
-  :type 'string
+  (locate-user-emacs-file "newsticker/" ".newsticker/")
+  "Directory where newsticker saves data."
+  :type 'directory
   :group 'newsticker-miscellaneous)
 
 ;; debugging

Index: net/newst-treeview.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/newst-treeview.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- net/newst-treeview.el       24 Nov 2008 19:40:38 -0000      1.10
+++ net/newst-treeview.el       18 Dec 2008 10:54:24 -0000      1.11
@@ -7,7 +7,7 @@
 ;; URL:         http://www.nongnu.org/newsticker
 ;; Created:     2007
 ;; Keywords:    News, RSS, Atom
-;; Time-stamp:  "24. November 2008, 19:49:20 (ulf)"
+;; Time-stamp:  "18. Dezember 2008, 11:26:54 (ulf)"
 
 ;; ======================================================================
 
@@ -143,6 +143,7 @@
   "Name of the newsticker groups settings file."
   :type 'string
   :group 'newsticker-treeview)
+(make-obsolete 'newsticker-groups-filename 'newsticker-dir)
 
 ;; ======================================================================
 ;;; internal variables
@@ -1230,7 +1231,8 @@
   (when newsticker--frame
     (if (frame-live-p newsticker--frame)
       (delete-frame newsticker--frame))
-    (setq newsticker--frame nil)))
+    (setq newsticker--frame nil))
+  (newsticker-treeview-save))
 
 (defun newsticker-treeview-save ()
   "Save newsticker data including treeview settings."
@@ -1256,7 +1258,8 @@
                             newsticker-groups-filename))
                    newsticker-groups-filename)
               (concat newsticker-dir "/groups")))
-         (buf (find-file-noselect filename)))
+         (buf (and (file-exists-p filename)
+                   (find-file-noselect filename))))
     (when buf
       (set-buffer buf)
       (goto-char (point-min))