diff options
| author | Ulf Jasper <ulf.jasper@web.de> | 2022-08-11 13:26:52 +0200 |
|---|---|---|
| committer | Ulf Jasper <ulf.jasper@web.de> | 2022-08-11 13:34:18 +0200 |
| commit | f7438fc8597f5a3a06e44cd2361d3fdffdb0f07d (patch) | |
| tree | 066fd8afaf780d38857b97c25fcd67c9dd4d1dba | |
| parent | a2ecf73545bcab598de8c8996c5591d6ffa5d1fc (diff) | |
| download | emacs-f7438fc8597f5a3a06e44cd2361d3fdffdb0f07d.tar.gz emacs-f7438fc8597f5a3a06e44cd2361d3fdffdb0f07d.tar.bz2 emacs-f7438fc8597f5a3a06e44cd2361d3fdffdb0f07d.zip | |
newsticker: fix bug#57045
* lisp/net/newst-treeview.el
(newsticker--treeview-list-items-with-age) (newsticker-treeview-update):
Fix issues with changing sort order in virtual feed 'all' (Bug#57045).
| -rw-r--r-- | lisp/net/newst-treeview.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el index 637f53e6550..e98767ae7c7 100644 --- a/lisp/net/newst-treeview.el +++ b/lisp/net/newst-treeview.el @@ -361,7 +361,8 @@ AGES is the list of ages that are to be shown." (mapc (lambda (feed) (let ((feed-name-symbol (intern (car feed)))) (mapc (lambda (item) - (when (memq (newsticker--age item) ages) + (when (or (memq 'all ages) + (memq (newsticker--age item) ages)) (newsticker--treeview-list-add-item item feed-name-symbol t))) (newsticker--treeview-list-sort-items @@ -1218,11 +1219,11 @@ Note: does not update the layout." (newsticker--treeview-list-update t) (newsticker--treeview-item-update) (newsticker--treeview-tree-update-tags) - (cond (newsticker--treeview-current-feed - (newsticker--treeview-list-items newsticker--treeview-current-feed)) - (newsticker--treeview-current-vfeed + (cond (newsticker--treeview-current-vfeed (newsticker--treeview-list-items-with-age - (intern newsticker--treeview-current-vfeed)))) + (intern newsticker--treeview-current-vfeed))) + (newsticker--treeview-current-feed + (newsticker--treeview-list-items newsticker--treeview-current-feed))) (newsticker--treeview-tree-update-highlight) (newsticker--treeview-list-update-highlight) (let ((cur-feed (or newsticker--treeview-current-feed |