newsticker: enable jump to virtual feeds

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  <ulf.jasper@web.de>
+
+        * net/newst-treeview.el (newsticker-treeview-jump): Enable virtual
+        feeds.
+
 2009-04-15  Dan Nicolaescu  <dann@ics.uci.edu>
 
         * 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))
 
 ;; ======================================================================