# HG changeset patch
# User Ulf Jasper <ulf.jasper@web.de>
# Date 1213527426 0
# Node ID f104cdfcb450b6c6e8373463ad44d357d853fbc6
# Parent  22820f8cee46a826195ef3575f382b208951f3a8
newsticker: window dedication, orphan feeds.

diff -r 22820f8cee46 -r f104cdfcb450 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jun 15 10:29:13 2008 +0000
+++ b/lisp/ChangeLog	Sun Jun 15 10:57:06 2008 +0000
@@ -1,3 +1,16 @@
+2008-06-15  Ulf Jasper  <ulf@web.de>
+
+	* net/newst-treeview.el (newsticker--treeview-list-update)
+	(newsticker--treeview-item-update)
+	(newsticker--treeview-tree-update)
+	(newsticker-treeview-jump, newsticker-group-add-group)
+	(newsticker-group-move-feed, newsticker-group-delete-group):
+	Remove window dedication.
+	(newsticker--group-manage-orphan-feeds): Handle ill-valued
+	newsticker-groups.
+	(newsticker--treeview-tree-expand): Don't manage orphan feeds
+	here.
+
 2008-06-15  Andreas Schwab  <schwab@suse.de>
 
 	* vc-cvs.el (vc-cvs-status-extra-headers): Don't match newline
diff -r 22820f8cee46 -r f104cdfcb450 lisp/net/newst-treeview.el
--- a/lisp/net/newst-treeview.el	Sun Jun 15 10:29:13 2008 +0000
+++ b/lisp/net/newst-treeview.el	Sun Jun 15 10:57:06 2008 +0000
@@ -7,7 +7,7 @@
 ;; URL:         http://www.nongnu.org/newsticker
 ;; Created:     2007
 ;; Keywords:    News, RSS, Atom
-;; Time-stamp:  "13. Juni 2008, 19:29:03 (ulf)"
+;; Time-stamp:  "15. Juni 2008, 12:46:27 (ulf)"
 
 ;; ======================================================================
 
@@ -594,8 +594,6 @@
   (save-excursion
     (set-window-buffer (newsticker--treeview-list-window)
                        (newsticker--treeview-list-buffer))
-    (if newsticker-treeview-own-frame
-        (set-window-dedicated-p (newsticker--treeview-list-window) t))
     (set-buffer (newsticker--treeview-list-buffer))
     (if clear-buffer
         (let ((inhibit-read-only t))
@@ -773,8 +771,6 @@
   (save-excursion
     (set-window-buffer (newsticker--treeview-item-window)
                        (newsticker--treeview-item-buffer))
-    (if newsticker-treeview-own-frame
-        (set-window-dedicated-p (newsticker--treeview-item-window) t))
     (set-buffer (newsticker--treeview-item-buffer))
     (let ((inhibit-read-only t))
       (erase-buffer))
@@ -786,7 +782,6 @@
 (defun newsticker--treeview-tree-expand (tree)
   "Expand TREE.
 Callback function for tree widget that adds nodes for feeds and subgroups."
-  (newsticker--group-manage-orphan-feeds)
   (tree-widget-set-theme "folder")
   (let ((group (widget-get tree :nt-group))
         (i 0)
@@ -856,8 +851,6 @@
   (save-excursion
     (set-window-buffer (newsticker--treeview-tree-window)
                        (newsticker--treeview-tree-buffer))
-    (if newsticker-treeview-own-frame
-        (set-window-dedicated-p (newsticker--treeview-tree-window) t))
     (set-buffer (newsticker--treeview-tree-buffer))
     (kill-all-local-variables)
     (let ((inhibit-read-only t))
@@ -1563,15 +1556,11 @@
   "Jump to feed FEED-NAME in newsticker treeview."
   (interactive
    (list (let ((completion-ignore-case t))
-           (if newsticker-treeview-own-frame
-               (set-window-dedicated-p (newsticker--treeview-item-window) nil))
            (completing-read
             "Jump to feed: "
             (mapcar 'car (append newsticker-url-list
                                  newsticker-url-list-defaults))
                             nil t))))
-  (if newsticker-treeview-own-frame
-      (set-window-dedicated-p (newsticker--treeview-item-window) t))
   (newsticker--treeview-unfold-node feed-name))
 
 ;; ======================================================================
@@ -1668,12 +1657,8 @@
   (interactive
    (list (read-string "Group Name: ")
          (let ((completion-ignore-case t))
-           (if newsticker-treeview-own-frame
-               (set-window-dedicated-p (newsticker--treeview-item-window) nil))
            (completing-read "Parent Group: " (newsticker--group-all-groups)
                             nil t))))
-  (if newsticker-treeview-own-frame
-      (set-window-dedicated-p (newsticker--treeview-item-window) t))
   (if (newsticker--group-get-group name)
       (error "Group %s exists already" name))
   (let ((p (if (and parent (not (string= parent "")))
@@ -1689,15 +1674,11 @@
 Update teeview afterwards unless NO-UPDATE is non-nil."
   (interactive
    (let ((completion-ignore-case t))
-     (if newsticker-treeview-own-frame
-         (set-window-dedicated-p (newsticker--treeview-item-window) nil))
      (list (completing-read "Feed Name: "
                             (mapcar 'car newsticker-url-list)
                             nil t newsticker--treeview-current-feed)
            (completing-read "Group Name: " (newsticker--group-all-groups)
                             nil t))))
-  (if newsticker-treeview-own-frame
-      (set-window-dedicated-p (newsticker--treeview-item-window) t))
   (let ((group (if (and group-name (not (string= group-name "")))
                    (newsticker--group-get-group group-name)
                  newsticker-groups)))
@@ -1717,12 +1698,8 @@
   "Remove group NAME."
   (interactive
    (let ((completion-ignore-case t))
-     (if newsticker-treeview-own-frame
-         (set-window-dedicated-p (newsticker--treeview-item-window) nil))
      (list (completing-read "Group Name: " (newsticker--group-all-groups)
                             nil t))))
-  (if newsticker-treeview-own-frame
-      (set-window-dedicated-p (newsticker--treeview-item-window) t))
   (let* ((g (newsticker--group-get-group name))
          (p (or (newsticker--group-get-parent-group name)
                 newsticker-groups)))
@@ -1770,6 +1747,8 @@
 (defun newsticker--group-manage-orphan-feeds ()
   "Put unmanaged feeds into `newsticker-groups'.
 Remove obsolete feeds as well."
+  (unless newsticker-groups
+    (setq newsticker-groups '("Feeds")))
   (let ((new-feed nil)
         (grouped-feeds (newsticker--count-grouped-feeds newsticker-groups)))
     (mapc (lambda (f)