From b0f439fc190963f329b221678c8c495011df834b Mon Sep 17 00:00:00 2001 From: Ulf Jasper Date: Wed, 15 Apr 2009 18:13:41 +0000 Subject: [PATCH] newsticker: enable jump to virtual feeds --- lisp/ChangeLog | 5 +++++ lisp/net/newst-treeview.el | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3f0a3110cbb..163b3e21ab9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-04-15 Ulf Jasper + + * net/newst-treeview.el (newsticker-treeview-jump): Enable virtual + feeds. + 2009-04-15 Dan Nicolaescu * vc-svn.el (vc-svn-after-dir-status): Fix regexp to allow for diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el index dc97b5e8e3d..022acef570d 100644 --- a/lisp/net/newst-treeview.el +++ b/lisp/net/newst-treeview.el @@ -7,7 +7,7 @@ ;; URL: http://www.nongnu.org/newsticker ;; Created: 2007 ;; Keywords: News, RSS, Atom -;; Time-stamp: "16. Februar 2009, 21:25:09 (ulf)" +;; Time-stamp: "15. April 2009, 19:51:17 (ulf)" ;; ====================================================================== @@ -1638,9 +1638,10 @@ Return t if a new feed was activated, nil otherwise." (list (let ((completion-ignore-case t)) (completing-read "Jump to feed: " - (mapcar 'car (append newsticker-url-list - newsticker-url-list-defaults)) - nil t)))) + (append '("new" "obsolete" "immortal" "all") + (mapcar 'car (append newsticker-url-list + newsticker-url-list-defaults))) + nil t)))) (newsticker--treeview-unfold-node feed-name)) ;; ====================================================================== -- 2.39.5