Mercurial > emacs

diff lisp/net/newst-treeview.el @ 102979:5739f357f79f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
newsticker: enable jump to virtual feeds
author Ulf Jasper <ulf.jasper@web.de>
date Wed, 15 Apr 2009 18:13:41 +0000
parents e25fb73b6868
children df3d3d6c4426
line wrap: on
line diff
--- 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))
 
 ;; ======================================================================