# HG changeset patch
# User Ulf Jasper <ulf.jasper@web.de>
# Date 1239819221 0
# Node ID 5739f357f79fae7655682d6dfac5b3b7ad250585
# Parent  ff07912acca789a9b15a5c0334ebddd3687079c7
newsticker: enable jump to virtual feeds

diff -r ff07912acca7 -r 5739f357f79f lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 15 17:06:34 2009 +0000
+++ b/lisp/ChangeLog	Wed Apr 15 18:13:41 2009 +0000
@@ -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 -r ff07912acca7 -r 5739f357f79f lisp/net/newst-treeview.el
--- a/lisp/net/newst-treeview.el	Wed Apr 15 17:06:34 2009 +0000
+++ b/lisp/net/newst-treeview.el	Wed Apr 15 18:13:41 2009 +0000
@@ -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 @@
    (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))
 
 ;; ======================================================================