Mercurial > emacs

changeset 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 ff07912acca7
children 4ac543a14f94
files lisp/ChangeLog lisp/net/newst-treeview.el
diffstat 2 files changed, 10 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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))
 
 ;; ======================================================================