diff options
| author | Ulf Jasper <ulf.jasper@web.de> | 2011-10-30 16:21:37 +0100 |
|---|---|---|
| committer | Ulf Jasper <ulf.jasper@web.de> | 2011-10-30 16:21:37 +0100 |
| commit | dba0634a93dce8370b7a07727d6ad54ffa695872 (patch) | |
| tree | ff7a943866d0a101f24ee2c6d966bfa71e6720bf /lisp/net/newst-treeview.el | |
| parent | 3d8daefefaf3bfd73ca4d8a363b044ec66a45e3a (diff) | |
| download | emacs-dba0634a93dce8370b7a07727d6ad54ffa695872.tar.gz emacs-dba0634a93dce8370b7a07727d6ad54ffa695872.tar.bz2 emacs-dba0634a93dce8370b7a07727d6ad54ffa695872.zip | |
newsticker: Clean up newsticker--group-manage-orphan-feeds
2011-10-30 Ulf Jasper <ulf.jasper@web.de>
* net/newst-treeview.el: Remove "Time-stamp".
(newsticker--group-manage-orphan-feeds): Do not call
newsticker--treeview-tree-update.
(newsticker-treeview-update, newsticker-treeview): Call
newsticker--treeview-tree-update if necessary.
2011-10-30 Ulf Jasper <ulf.jasper@web.de>
* automated/newsticker-tests.el
(newsticker--group-manage-orphan-feeds): Removed fsetting of
newsticker--treeview-tree-update.
Diffstat (limited to 'lisp/net/newst-treeview.el')
| -rw-r--r-- | lisp/net/newst-treeview.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el index 26dddffb6ed..5e38a905ad5 100644 --- a/lisp/net/newst-treeview.el +++ b/lisp/net/newst-treeview.el @@ -7,7 +7,6 @@ ;; URL: http://www.nongnu.org/newsticker ;; Created: 2007 ;; Keywords: News, RSS, Atom -;; Time-stamp: "13. Mai 2011, 20:56:49 (ulf)" ;; Package: newsticker ;; ====================================================================== @@ -1193,7 +1192,8 @@ Arguments IGNORE are ignored." Note: does not update the layout." (interactive) (let ((cur-item (newsticker--treeview-get-selected-item))) - (newsticker--group-manage-orphan-feeds) + (if (newsticker--group-manage-orphan-feeds) + (newsticker--treeview-tree-update)) (newsticker--treeview-list-update t) (newsticker--treeview-item-update) (newsticker--treeview-tree-update-tags) @@ -1811,7 +1811,8 @@ Update teeview afterwards unless NO-UPDATE is non-nil." (defun newsticker--group-manage-orphan-feeds () "Put unmanaged feeds into `newsticker-groups'. -Remove obsolete feeds as well." +Remove obsolete feeds as well. +Return t if groups have changed, nil otherwise." (unless newsticker-groups (setq newsticker-groups '("Feeds"))) (let ((new-feed nil) @@ -1823,10 +1824,9 @@ Remove obsolete feeds as well." (append newsticker-url-list-defaults newsticker-url-list)) (setq newsticker-groups (newsticker--group-remove-obsolete-feeds newsticker-groups)) - (if (or new-feed - (not (= grouped-feeds - (newsticker--count-grouped-feeds newsticker-groups)))) - (newsticker--treeview-tree-update)))) + (or new-feed + (not (= grouped-feeds + (newsticker--count-grouped-feeds newsticker-groups)))))) ;; ====================================================================== ;;; Modes @@ -2036,7 +2036,8 @@ POS gives the position where EVENT occurred." (newsticker--treeview-frame-init) (newsticker--treeview-window-init) (newsticker--treeview-buffer-init) - (newsticker--group-manage-orphan-feeds) + (if (newsticker--group-manage-orphan-feeds) + (newsticker--treeview-tree-update)) (newsticker--treeview-set-current-node newsticker--treeview-feed-tree) (newsticker-start t) ;; will start only if not running (newsticker-treeview-update) |