;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313%\210\314\315\316\317#\210\314\320\321\317#\210\314\322\323\317#\210\314\324\325\317#\210\314\326\327\317#\210\314\330\331\332#\210\333\334\335\336\337DD\340\341\342\343\344&\210\333\345\335\336\346DD\347\343\350%\210\333\351\335\336\352DD\353\343\354%\210\333\355\335\336\356DD\357\343\354%\210\333\360\335\336\361DD\362\343\350%\210\333\363\335\336\364DD\365\341\366\343\350&\210\333\367\335\336\370DD\371\341\366\343\350&\207" [require cl-lib newst-reader widget tree-widget wid-edit custom-declare-group newsticker-treeview nil "Settings for the tree view reader." :group newsticker-reader custom-declare-face newsticker-treeview-face ((((class color) (background dark)) :foreground "white") (((class color) (background light)) :foreground "black")) "Face for newsticker tree." newsticker-treeview-new-face ((t :inherit newsticker-treeview-face :weight bold)) newsticker-treeview-old-face ((t :inherit newsticker-treeview-face)) newsticker-treeview-immortal-face ((default :inherit newsticker-treeview-face :slant italic) (((class color) (background dark)) :foreground "orange") (((class color) (background light)) :foreground "blue")) newsticker-treeview-obsolete-face ((t :inherit newsticker-treeview-face :strike-through t)) newsticker-treeview-selection-face ((((class color) (background dark)) :background "#4444aa") (((class color) (background light)) :background "#bbbbff")) "Face for newsticker selection." custom-declare-variable newsticker-treeview-date-format funcall function #[0 "\300\207" ["%d.%m.%y, %H:%M"] 1 #1=""] "Format for the date column in the treeview list buffer.\nSee `format-time-string' for a list of valid specifiers." :version "25.1" :type string newsticker-treeview-own-frame #[0 "\300\207" [nil] 1 #1#] "Decides whether newsticker treeview creates and uses its own frame." boolean newsticker-treeview-treewindow-width #[0 "\300\207" [30] 1 #1#] "Width of tree window in treeview layout.\nSee also `newsticker-treeview-listwindow-height'." integer newsticker-treeview-listwindow-height #[0 "\300\207" [10] 1 #1#] "Height of list window in treeview layout.\nSee also `newsticker-treeview-treewindow-width'." newsticker-treeview-automatically-mark-displayed-items-as-old #[0 "\300\207" [t] 1 #1#] "Decides whether to automatically mark displayed items as old.\nIf t an item is marked as old as soon as it is displayed.  This\napplies to newsticker only." newsticker-treeview-use-feed-name-from-url-list-in-treeview #[0 "\300\207" [t] 1 #1#] "Use the feed names from 'newsticker-url-list' for display in treeview." "28.1" newsticker-treeview-use-feed-name-from-url-list-in-itemview #[0 "\300\207" [t] 1 #1#] "Use feed names from 'newsticker-url-list' in itemview."] 8)
#@413 List of feed groups, used in the treeview frontend.
First element is a string giving the group name.  Remaining
elements are either strings giving a feed name or lists having
the same structure as `newsticker-groups'. (newsticker-groups :=
groupdefinition, groupdefinition := groupname groupcontent*,
groupcontent := feedname | groupdefinition)

Example: ("Topmost group" "feed1" ("subgroup1" "feed 2")
"feed3")
(defvar newsticker-groups '("Feeds") (#$ . 2890))
(defvar newsticker--treeview-windows nil)
(defvar newsticker--treeview-buffers nil)
#@36 Feed name of currently shown item.
(defvar newsticker--treeview-current-feed nil (#$ . 3442))
(defvar newsticker--treeview-current-vfeed nil)
(defvar newsticker--treeview-list-show-feed nil)
(defvar newsticker--saved-window-config nil)
#@35 Highlight the selected tree node.
(defvar newsticker--selection-overlay nil (#$ . 3684))
#@35 Highlight the selected list item.
(defvar newsticker--tree-selection-overlay nil (#$ . 3779))
#@39 Special frame for newsticker windows.
(defvar newsticker--frame nil (#$ . 3879))
(defvar newsticker--treeview-list-sort-order 'sort-by-time)
(defvar newsticker--treeview-current-node-id nil)
(defvar newsticker--treeview-current-tree nil)
(defvar newsticker--treeview-feed-tree nil)
(defvar newsticker--treeview-vfeed-tree nil)
#@69 Key map for click-able headings in the newsticker treeview buffers.
(defvar newsticker--treeview-url-keymap (byte-code "\300\301!\302
\303\304#\210\302
\305\304#\210\302
\306\307#\210\302
\310\307#\210\302
\311\312#\210\207" [make-sparse-keymap newsticker--treeview-url-keymap define-key [mouse-1] newsticker-treeview-mouse-browse-url [mouse-2] "\n" newsticker-treeview-browse-url "
" [(control return)] newsticker-handle-url] 5) (#$ . 4212))
#@52 Return the tree buffer of the newsticker treeview.
(defalias 'newsticker--treeview-tree-buffer #[0 "@\207" [newsticker--treeview-buffers] 1 (#$ . 4661)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put newsticker--treeview-tree-buffer speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@52 Return the list buffer of the newsticker treeview.
(defalias 'newsticker--treeview-list-buffer #[0 "A@\207" [newsticker--treeview-buffers] 1 (#$ . 4980)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put newsticker--treeview-list-buffer speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@52 Return the item buffer of the newsticker treeview.
(defalias 'newsticker--treeview-item-buffer #[0 "\3018\207" [newsticker--treeview-buffers 2] 2 (#$ . 5300)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put newsticker--treeview-item-buffer speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@52 Return the tree window of the newsticker treeview.
(defalias 'newsticker--treeview-tree-window #[0 "@\207" [newsticker--treeview-windows] 1 (#$ . 5625)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put newsticker--treeview-tree-window speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@52 Return the list window of the newsticker treeview.
(defalias 'newsticker--treeview-list-window #[0 "A@\207" [newsticker--treeview-windows] 1 (#$ . 5944)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put newsticker--treeview-list-window speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@52 Return the item window of the newsticker treeview.
(defalias 'newsticker--treeview-item-window #[0 "\3018\207" [newsticker--treeview-windows 2] 2 (#$ . 6264)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put newsticker--treeview-item-window speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@107 Create an id for a newsticker treeview node.
PARENT is the node's parent, I is an integer.

(fn PARENT I)
(defalias 'newsticker--treeview-get-id #[514 "\300\301\302\303\"#\207" [format "%s-%d" widget-get :nt-id] 7 (#$ . 6590)])
#@60 Return non-nil if ids ID1 and ID2 are equal.

(fn ID1 ID2)
(defalias 'newsticker--treeview-ids-eq #[514 "
\205\211\205

\230\207" [] 4 (#$ . 6826)])
#@223 Compare treeview nodes NODE1 and NODE2 for equality.
Nodes are equal if the have the same newsticker-id.  Note that
during re-tagging and collapsing/expanding nodes change, while
their id stays constant.

(fn NODE1 NODE2)
(defalias 'newsticker--treeview-nodes-eq #[514 "\300\301\"\300\301\"\302\"\206\300\303\"\300\303\"\230\207" [widget-get :nt-id newsticker--treeview-ids-eq :nt-feed] 8 (#$ . 6986)])
#@95 Recursively search node for feed FEED-NAME starting from STARTNODE.

(fn FEED-NAME STARTNODE)
(defalias 'newsticker--treeview-do-get-node-of-feed #[514 "
\300\301\"\206\f\300\302\"\230\203\303\304\"\207\300
\305\"\211\211\205,\211@\306\"\210
A\266\202\202\207" [widget-get :nt-feed :nt-vfeed throw found :children newsticker--treeview-do-get-node-of-feed] 8 (#$ . 7403)])
#@77 Return node for feed FEED-NAME in newsticker treeview tree.

(fn FEED-NAME)
(defalias 'newsticker--treeview-get-node-of-feed #[257 "\3022\303
\"\210\303
	\"0\207" [newsticker--treeview-feed-tree newsticker--treeview-vfeed-tree found newsticker--treeview-do-get-node-of-feed] 4 (#$ . 7792)])
#@77 Recursively search node with ID starting from STARTNODE.

(fn ID STARTNODE)
(defalias 'newsticker--treeview-do-get-node-by-id #[514 "\300\301\302\"\"\203\303\304\"\207\301
\305\"\211\211\205&\211@\306\"\210
A\266\202\202\207" [newsticker--treeview-ids-eq widget-get :nt-id throw found :children newsticker--treeview-do-get-node-by-id] 8 (#$ . 8092)])
#@59 Return node with ID in newsticker treeview tree.

(fn ID)
(defalias 'newsticker--treeview-get-node-by-id #[257 "\3022\303
\"\210\303
	\"0\207" [newsticker--treeview-feed-tree newsticker--treeview-vfeed-tree found newsticker--treeview-do-get-node-by-id] 4 (#$ . 8459)])
#@50 Return current node in newsticker treeview tree.
(defalias 'newsticker--treeview-get-current-node #[0 "\301!\207" [newsticker--treeview-current-node-id newsticker--treeview-get-node-by-id] 2 (#$ . 8737)])
#@60 Render text between markers START and END.

(fn START END)
(defalias 'newsticker--treeview-render-text #[514 "\205Z\3061O\307 r\310\311\"\216\212\312\313\"\210b\210\314\315\313#\205J	\203)\316\202*\n	?\2050\n\317\320
8!\210\212\"\210+\321=\203I\322\313!\210\313+\262
0\207\323\324@A#\210\325\262
\207" [newsticker-html-renderer newsticker-use-full-width fill-column w3-maximum-line-length w3m-fill-column newsticker--treeview-windows (error) internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] set-marker-insertion-type t re-search-forward "</?[A-Za-z1-6]*\\|&#?[A-Za-z0-9]+;" -1 select-window 2 w3m-region w3m-toggle-inline-images message "Error: HTML rendering failed: %s, %s" nil] 7 (#$ . 8949)])
#@159 Add news ITEM for FEED to newsticker treeview list window.
If string SHOW-FEED is non-nil it is shown in the item string.

(fn ITEM FEED &optional SHOW-FEED)
(defalias 'newsticker--treeview-list-add-item #[770 "\211r	A@q\210\304\305\211db\210\306 \262\307c\210\310\307\311\312#c\210\2034\313\314\315!\"\316\317O\310\307\311\320#P\2025\321c\210\322\323
8\262
\"c\210\310\307\311\324\325\203Q\326\202R\327E#c\210\306 \262
\211@\262
c\210\330c\210\331
\306 \"\210\211b\210\332\330\305\304#\203|\333\307!\210\202m\334 \335\211\203\222\211@\336\337#\210
A\266\202\202\210\336
\330\340#\210\336
\341\340#\210\342d\343	\344\n\345
\346
8\262
\347\350\351\f\352d{\257\f#\266\330c)\266\202)\207" [newsticker--treeview-list-show-feed newsticker--treeview-buffers inhibit-read-only newsticker-treeview-date-format t nil point-marker " " propertize display (space :align-to 2) format "%-10s" newsticker--real-feed-name 0 10 (space :align-to 12) "" format-time-string 3 space :align-to 28 18 "\n" newsticker--treeview-render-text search-forward replace-match make-sparse-keymap ([mouse-1] [mouse-3]) define-key newsticker-treeview-tree-click newsticker-treeview-show-item "
" add-text-properties :nt-item :nt-feed :nt-link 2 mouse-face highlight keymap help-echo] 22 (#$ . 9740)])
#@44 Clear the newsticker treeview list window.
(defalias 'newsticker--treeview-list-clear #[0 "rA@q\210\302\303 \210\304 \210\305 *\207" [newsticker--treeview-buffers inhibit-read-only t erase-buffer kill-all-local-variables remove-overlays] 1 (#$ . 11044)])
#@334 Fill newsticker treeview list window with items of certain age.
This is a callback function for the treeview nodes.
Argument WIDGET is the calling treeview widget.
Argument CHANGED-WIDGET is the widget that actually has changed.
Optional argument AGES is the list of ages that are to be shown.

(fn WIDGET CHANGED-WIDGET &rest AGES)
(defalias 'newsticker--treeview-list-items-with-age-callback #[642 "\300 \210\301\302\303#\210\304\305\"\207" [newsticker--treeview-list-clear widget-put :nt-selected t apply newsticker--treeview-list-items-with-age] 7 (#$ . 11308)])
#@138 Actually fill newsticker treeview list window with items of certain age.
AGES is the list of ages that are to be shown.

(fn &rest AGES)
(defalias 'newsticker--treeview-list-items-with-age #[128 "\302\303\304\"\305	\"\"\210\306\307!\207" [newsticker-url-list-defaults newsticker-url-list mapc make-closure #[257 "\301
@!\302\303\304\300#\305\306!A!\"\207" [V0 intern mapc make-closure #[257 "\211\302
8\262
\300>\205\303
\301\304#\207" [V0 V1 4 newsticker--treeview-list-add-item t] 5 "\n\n(fn ITEM)"] newsticker--treeview-list-sort-items newsticker--cache-get-feed] 7 "\n\n(fn FEED)"] append newsticker--treeview-list-update nil] 6 (#$ . 11884)])
#@334 Fill newsticker treeview list window with new items.
This is a callback function for the treeview nodes.
Argument WIDGET is the calling treeview widget.
Argument CHANGED-WIDGET is the widget that actually has changed.
Optional argument EVENT is the mouse event that triggered this action.

(fn WIDGET CHANGED-WIDGET &optional EVENT)
(defalias 'newsticker--treeview-list-new-items #[770 "\300\301#\210\302\303\304\"\207" [newsticker--treeview-list-items-with-age-callback new newsticker--treeview-item-show-text "New items" "This is a virtual feed containing all new items"] 7 (#$ . 12545)])
#@339 Fill newsticker treeview list window with immortal items.
This is a callback function for the treeview nodes.
Argument WIDGET is the calling treeview widget.
Argument CHANGED-WIDGET is the widget that actually has changed.
Optional argument EVENT is the mouse event that triggered this action.

(fn WIDGET CHANGED-WIDGET &optional EVENT)
(defalias 'newsticker--treeview-list-immortal-items #[770 "\300\301#\210\302\303\304\"\207" [newsticker--treeview-list-items-with-age-callback immortal newsticker--treeview-item-show-text "Immortal items" "This is a virtual feed containing all immortal items."] 7 (#$ . 13145)])
#@339 Fill newsticker treeview list window with obsolete items.
This is a callback function for the treeview nodes.
Argument WIDGET is the calling treeview widget.
Argument CHANGED-WIDGET is the widget that actually has changed.
Optional argument EVENT is the mouse event that triggered this action.

(fn WIDGET CHANGED-WIDGET &optional EVENT)
(defalias 'newsticker--treeview-list-obsolete-items #[770 "\300\301#\210\302\303\304\"\207" [newsticker--treeview-list-items-with-age-callback obsolete newsticker--treeview-item-show-text "Obsolete items" "This is a virtual feed containing all obsolete items."] 7 (#$ . 13771)])
#@334 Fill newsticker treeview list window with all items.
This is a callback function for the treeview nodes.
Argument WIDGET is the calling treeview widget.
Argument CHANGED-WIDGET is the widget that actually has changed.
Optional argument EVENT is the mouse event that triggered this action.

(fn WIDGET CHANGED-WIDGET &optional EVENT)
(defalias 'newsticker--treeview-list-all-items #[770 "\300\301\302\303\304&\210\305\306\307\"\207" [newsticker--treeview-list-items-with-age-callback new old obsolete immortal newsticker--treeview-item-show-text "All items" "This is a virtual feed containing all items."] 11 (#$ . 14397)])
#@58 List items for virtual feed VFEED-NAME.

(fn VFEED-NAME)
(defalias 'newsticker--treeview-list-items-v #[257 "\211\205/\300\301\"\203\302\303!\210\202,\300\304\"\203 \302\305!\210\202,\300\306\"\203,\302\307\310\"\210\311\310!\207" [string-match "\\*new\\*" newsticker--treeview-list-items-with-age new "\\*immortal\\*" immortal "\\*old\\*" old nil newsticker--treeview-list-update] 4 (#$ . 15030)])
#@48 List items for feed FEED-NAME.

(fn FEED-NAME)
(defalias 'newsticker--treeview-list-items #[257 "\211\205 \300
!\203\301
!\207\302\303\304\"\305\306\307!!A!\"\210\310\311!\207" [newsticker--treeview-virtual-feed-p newsticker--treeview-list-items-v mapc make-closure #[257 "\211\301
8\262
\302=\203\303
\304\300!\"\207\305
\304\300!\"\207" [V0 4 feed newsticker--treeview-item-show intern newsticker--treeview-list-add-item] 5 "\n\n(fn ITEM)"] newsticker--treeview-list-sort-items newsticker--cache-get-feed intern newsticker--treeview-list-update nil] 7 (#$ . 15445)])
#@271 Callback function for listing feed items.
Argument WIDGET is the calling treeview widget.
Argument CHANGED-WIDGET is the widget that actually has changed.
Optional argument EVENT is the mouse event that triggered this action.

(fn WIDGET CHANGED-WIDGET &optional EVENT)
(defalias 'newsticker--treeview-list-feed-items #[770 "\300 \210\301\302\303#\210\304\305\"\304\306\"
\203\307!\207\310
!\207" [newsticker--treeview-list-clear widget-put :nt-selected t widget-get :nt-feed :nt-vfeed newsticker--treeview-list-items newsticker--treeview-list-items-v] 7 (#$ . 16028)])
#@67 Compare two news items ITEM1 and ITEM2 wrt age.

(fn ITEM1 ITEM2)
(defalias 'newsticker--treeview-list-compare-item-by-age #[514 "\3002\\
\301
8\262

\301
8\262

\302\267\266\202Z\266\303\202[\211\304\267\266\2024\266\303\202[\266\303\202[\266\305\202[\211\306\267\266\202T\266\305\202[\266\305\202[\266\305\202[\266\303\202[\266\3050\207" [result 4 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (new 24 immortal 30 old 56)) t #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (new 38 immortal 44)) nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (new 64 immortal 70 old 76))] 6 (#$ . 16610)])
#@84 Compare two news items ITEM1 and ITEM2 wrt age in reverse order.

(fn ITEM1 ITEM2)
(defalias 'newsticker--treeview-list-compare-item-by-age-reverse #[514 "\300
\"\207" [newsticker--treeview-list-compare-item-by-age] 5 (#$ . 17349)])
#@75 Compare two news items ITEM1 and ITEM2 wrt time values.

(fn ITEM1 ITEM2)
(defalias 'newsticker--treeview-list-compare-item-by-time #[514 "\300\"\207" [newsticker--cache-item-compare-by-time] 5 (#$ . 17589)])
#@92 Compare two news items ITEM1 and ITEM2 wrt time values in reverse order.

(fn ITEM1 ITEM2)
(defalias 'newsticker--treeview-list-compare-item-by-time-reverse #[514 "\300
\"\207" [newsticker--cache-item-compare-by-time] 5 (#$ . 17806)])
#@69 Compare two news items ITEM1 and ITEM2 wrt title.

(fn ITEM1 ITEM2)
(defalias 'newsticker--treeview-list-compare-item-by-title #[514 "\300\"\207" [newsticker--cache-item-compare-by-title] 5 (#$ . 18048)])
#@86 Compare two news items ITEM1 and ITEM2 wrt title in reverse order.

(fn ITEM1 ITEM2)
(defalias 'newsticker--treeview-list-compare-item-by-title-reverse #[514 "\300
\"\207" [newsticker--cache-item-compare-by-title] 5 (#$ . 18261)])
#@141 Return sorted copy of list ITEMS.
The sort function is chosen according to the value of
`newsticker--treeview-list-sort-order'.

(fn ITEMS)
(defalias 'newsticker--treeview-list-sort-items #[257 "\301\267\202\302\202\303\202\304\202\305\202\306\202\307\202\306\310\311!\"\207" [newsticker--treeview-list-sort-order #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (sort-by-age 6 sort-by-age-reverse 10 sort-by-time 14 sort-by-time-reverse 18 sort-by-title 22 sort-by-title-reverse 26)) newsticker--treeview-list-compare-item-by-age newsticker--treeview-list-compare-item-by-age-reverse newsticker--treeview-list-compare-item-by-time newsticker--treeview-list-compare-item-by-time-reverse newsticker--treeview-list-compare-item-by-title newsticker--treeview-list-compare-item-by-title-reverse sort copy-sequence] 5 (#$ . 18500)])
#@43 Update faces in the treeview list buffer.
(defalias 'newsticker--treeview-list-update-faces #[0 "\304rA@q\210\212\305eb\210m\204^\306 \307`\310\"\211\311
8\262
\307`\312\"
\313\267\2027\314\2028\315\2028\316\2028\317\2028\320\321`\322$\210
\203M\323\n`Tp$\210
\203T`\262\324y\210\325 \266\202
+\211\205q\326A@!\205q\327A@\"\207" [newsticker--treeview-buffers inhibit-read-only newsticker--selection-overlay newsticker--treeview-windows nil t point-at-eol get-text-property :nt-item 4 :nt-selected #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (new 39 old 43 immortal 47 obsolete 51)) newsticker-treeview-new-face newsticker-treeview-old-face newsticker-treeview-immortal-face newsticker-treeview-obsolete-face bold put-text-property face move-overlay 1 beginning-of-line window-live-p set-window-point] 11 (#$ . 19387)])
#@50 Clear the highlight in the treeview list buffer.
(defalias 'newsticker--treeview-list-clear-highlight #[0 "rA@q\210\302\303ed\304\305$\210)\306 )\207" [newsticker--treeview-buffers inhibit-read-only t put-text-property :nt-selected nil newsticker--treeview-list-update-faces] 5 (#$ . 20276)])
#@51 Update the highlight in the treeview list buffer.
(defalias 'newsticker--treeview-list-update-highlight #[0 "\302 \210rA@q\210\303\304\305 \306 \307\303$\210)\310 )\207" [newsticker--treeview-buffers inhibit-read-only newsticker--treeview-list-clear-highlight t put-text-property point-at-bol point-at-eol :nt-selected newsticker--treeview-list-update-faces] 5 (#$ . 20577)])
#@55 Return position of selection in treeview list buffer.
(defalias 'newsticker--treeview-list-highlight-start #[0 "rA@q\210\212eb\210\301`\302\"*\207" [newsticker--treeview-buffers next-single-property-change :nt-selected] 3 (#$ . 20961)])
#@145 Update the faces and highlight in the treeview list buffer.
If CLEAR-BUFFER is non-nil the list buffer is completely erased.

(fn CLEAR-BUFFER)
(defalias 'newsticker--treeview-list-update #[257 "\212\303A@!\203\304A@	A@\"\210	A@q\210\211\203!\305\306 \210)\307 \210\310 \210eb)\207" [newsticker--treeview-windows newsticker--treeview-buffers inhibit-read-only window-live-p set-window-buffer t erase-buffer newsticker-treeview-list-mode newsticker--treeview-list-update-faces] 4 (#$ . 21206)])
#@64 Local keymap for newsticker treeview list window sort buttons.
(defvar newsticker-treeview-list-sort-button-map (byte-code "\300 \301
\302\303#\210\301
\304\303#\210\207" [make-sparse-keymap define-key [header-line mouse-1] newsticker--treeview-list-sort-by-column [header-line mouse-2]] 5) (#$ . 21712))
#@159 Sort the newsticker list window buffer by the column clicked on.
Optional argument EVENT is the mouse event that triggered this action.

(fn &optional EVENT)
(defalias 'newsticker--treeview-list-sort-by-column #[256 "\211\203\301
!\210\302
!\211\211\303
8\262
\206\304
!\262
\211\203(\305
A\306@#\202.\305\307!\306\"\211\310\267\202^\311=\203>\312\202_\311\202_\313=\203L\314\202_\313\202_\315=\203Z\316\202_\315\202_\317\320 \207" [newsticker--treeview-list-sort-order mouse-select-window event-start 7 posn-string get-text-property sort-order posn-point #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (sort-by-age 52 sort-by-time 66 sort-by-title 80)) sort-by-age sort-by-age-reverse sort-by-time sort-by-time-reverse sort-by-title sort-by-title-reverse nil newsticker-treeview-update] 7 (#$ . 22024) (list last-input-event)])
#@153 Create propertized string for headerline button.
NAME is the button text, SORT-ORDER is the associated sort order
for the button.

(fn NAME SORT-ORDER)
(defalias 'newsticker-treeview-list-make-sort-button #[514 "\302\303!\303!\"\203\304\202\305\306\307\310\311P\312\313\314	\315	&\207" [newsticker--treeview-list-sort-order newsticker-treeview-list-sort-button-map string-match symbol-name bold header-line propertize sort-order help-echo "Sort by " mouse-face highlight face keymap] 15 (#$ . 22920)])
#@51 Select ITEM in treeview's list buffer.

(fn ITEM)
(defalias 'newsticker--treeview-list-select #[257 "\301 \210rA@q\210eb\210\3022@\303`\304\"\211=\203-\305 \210\306 \210\307\303`\310\"\"\210\311\302\312\"\210\210\313y\210m\203eb\210\311\302\314\"\210\202)\207" [newsticker--treeview-buffers newsticker--treeview-list-clear-highlight found get-text-property :nt-item newsticker--treeview-list-update-highlight newsticker--treeview-list-update-faces newsticker--treeview-item-show :nt-feed throw t 1 nil] 7 (#$ . 23440)])
#@96 Show text in treeview item buffer consisting of TITLE and DESCRIPTION.

(fn TITLE DESCRIPTION)
(defalias 'newsticker--treeview-item-show-text #[514 "r\3038q\210\304\305!\203\305p!\210\306\307 \210\310 \210\311 \210
c\210\312e`\313\314$\210\315
\261\210\n\2034\316ed\n#\210\317 \210eb*\207" [newsticker--treeview-buffers inhibit-read-only newsticker-justification 2 fboundp w3m-process-stop t erase-buffer kill-all-local-variables remove-overlays put-text-property face newsticker-feed-face "\n\n" fill-region newsticker-treeview-item-mode] 7 (#$ . 23975)])
#@98 Show news ITEM coming from FEED-NAME-SYMBOL in treeview item buffer.

(fn ITEM FEED-NAME-SYMBOL)
(defalias 'newsticker--treeview-item-show #[514 "\306
!r\307	8q\210\310\311!\203\311p!\210\312\313\211\314 \314 \315 \210\316 \210\317 \210\203\222
\203\222
\320\3078!\203?\321\3078!\202@\fS
\203K\322\304!\210\211\322\304!\210\f
^\210\211A@\262
\323
\206a\324\261\266
eT\313\223\210\211d\313\223\210\325\"\2629\203\206\204\206\3269#\210\327 \210eb\210\313:\330\313\331#\332 \203\250\211\203\250\333
	@\"\210\202\272;\203\264\306!\202\270\334!c\210)\210\335e`\336\337\340\341\342\334!\343P\344\307
8\262
\345<\257\n#\210`\262\346c\210`\262\211@\262
\323\261\210
\313\223\210\211`\313\223\210\325\"\210\347`\336\350$\210\211b\210\351\352!\210\323c\210\347
`\336\353$\210\211`\313\223\2109\203$
\3269#\210\211b\210\335`S\340\341\342\354\344\307
8\262
\345<\257#\210\355=\356
8\262
\"c\210\323c\210`\262\323c\210db\210\346c\210`\262\357<\"\210\347`\336\360$\210`\262\323c\210
\313\223\210\361<\312#\210\211`\313\223\210\325\"\210\347\336\362$\210eb\210)\266)>\203\265

\203\265

\363
8\262
\364>\203\265
\313>\365\312!\210\366 \210)\320\3078!\205\303
\367\3078\370\"\207" [newsticker--treeview-current-feed newsticker--treeview-buffers inhibit-read-only newsticker--treeview-windows fill-column newsticker-use-full-width symbol-name 2 fboundp w3m-process-stop t nil make-marker erase-buffer kill-all-local-variables remove-overlays window-live-p window-width make-local-variable "\n" "[No Description]" newsticker--treeview-render-text fill-region newsticker-treeview-item-mode newsticker--image-read 40 display-images-p newsticker--insert-image newsticker--real-feed-name add-text-properties face newsticker-feed-face mouse-face highlight help-echo "\nClick to visit in web browser." :nt-link keymap "\n\n" put-text-property newsticker-treeview-new-face delete-char -1 newsticker-treeview-face "Visit in web browser." format-time-string 3 newsticker--insert-enclosure newsticker-enclosure-face newsticker--print-extra-elements newsticker-extra-face 4 (new obsolete) newsticker-treeview-mark-item-old newsticker--treeview-list-update-faces set-window-point 1 newsticker-justification newsticker-enable-logo-manipulations newsticker-treeview-use-feed-name-from-url-list-in-itemview newsticker--treeview-url-keymap newsticker-date-format newsticker-treeview-automatically-mark-displayed-items-as-old] 20 (#$ . 24544)])
#@45 Update the treeview item buffer and window.
(defalias 'newsticker--treeview-item-update #[0 "\212\303\3048!\203\305\3048\304	8\"\210\304	8q\210\306\307 \210)\310 )\207" [newsticker--treeview-windows newsticker--treeview-buffers inhibit-read-only window-live-p 2 set-window-buffer t erase-buffer newsticker-treeview-item-mode] 4 (#$ . 27050)])
#@100 Expand TREE.
Callback function for tree widget that adds nodes for feeds and subgroups.

(fn TREE)
(defalias 'newsticker--treeview-tree-expand #[257 "\300\301!\210\302
\303\"\304C\305C\306\307\310$\"\207" [tree-widget-set-theme "folder" widget-get :nt-group 0 "" mapcar make-closure #[257 "\302\303\300\301\242\"\240\210\301\211\242T\240\210\211<\203:\211@\304\305\306\307\302\242#\310\311\312\313\314	A\315\n\316\302\242\317BBBBBBBBBBBBB\207\306
\307\302\242#\320\305\321\322\315\323\324\316\302\242\325BBBBBBBBBBB\207" [V0 V1 V2 newsticker--treeview-get-id tree-widget :tag newsticker--treeview-tree-get-tag nil :expander newsticker--treeview-tree-expand :expander-p (lambda (&rest ignore) t) :nt-group :nt-feed :nt-id (:leaf-icon newsticker--tree-widget-leaf-icon :keep (:nt-feed :num-new :nt-id :open) :open nil) item :leaf-icon newsticker--tree-widget-leaf-icon :action newsticker--treeview-list-feed-items (:keep (:nt-id) :open t)] 16 "\n\n(fn G)"]] 10 (#$ . 27405)])
#@36 Create the ICON widget.

(fn ICON)
(defalias 'newsticker--tree-widget-icon-create #[257 "\301\211\302\"\303\"\211\205\304\305!!\211\203.\306\307#\210\310!\210\311\312\313\"\210\314`S`\315\316\317E$\207\306\320\321#\210\322!\207" [tree-widget-space-width widget-get :node :nt-feed newsticker--icon-read intern widget-put :tag-glyph widget-default-create insert-char 32 1 put-text-property display space :width :leaf-icon tree-widget-leaf-icon tree-widget-icon-create] 10 (#$ . 28397)])
#@123 Expand the vfeed TREE.
Optional arguments CHANGED-WIDGET and EVENT are ignored.

(fn TREE &optional CHANGED-WIDGET EVENT)
(defalias 'newsticker--treeview-tree-expand-status #[769 "\300\301!\210\302\303\304\305\306\"\307\306\310\311\312\313\314\"\315BBBBBBBBB\302\303\304\305\316\"\307\316\310\317\312\313\f\320\"\321BBBBBBBBB\302\303\304\305\322\"\307\322\310\323\312\313
\324\"\325BBBBBBBBB\302\303\304\305\326\"\307\326\310\327\312\313\330\"\331BBBBBBBBBF\207" [tree-widget-set-theme "folder" item :tag newsticker--treeview-tree-get-tag nil "new" :nt-vfeed :action newsticker--treeview-list-new-items :nt-id newsticker--treeview-get-id 0 (:keep (:nt-id)) "immortal" newsticker--treeview-list-immortal-items 1 (:keep (:nt-id)) "obsolete" newsticker--treeview-list-obsolete-items 2 (:keep (:nt-id)) "all" newsticker--treeview-list-all-items 3 (:keep (:nt-id))] 17 (#$ . 28900)])
#@64 Return non-nil if FEED-NAME is a virtual feed.

(fn FEED-NAME)
(defalias 'newsticker--treeview-virtual-feed-p #[257 "\300\301\"\207" [string-match "\\*.*\\*"] 4 (#$ . 29791)])
(define-widget 'newsticker--tree-widget-leaf-icon 'tree-widget-icon "Icon for a tree-widget leaf node." :tag "O" :glyph-name "leaf" :create 'newsticker--tree-widget-icon-create :button-face 'default)
#@41 Update treeview tree buffer and window.
(defalias 'newsticker--treeview-tree-update #[0 "\212\306@!\203\307@	@\"\210	@q\210\310 \210\311\312 \210\313\314!\210\315\316\317\320\321\322\323#\324\325\326\327\330\331\332A\333\323\334\335\336\311&\315\316\317\320\337\322\340#\324\341\326\342\330\331\333\340\334\343\336\311&\344'!\210\345 \210)\346 )\207" [newsticker--treeview-windows newsticker--treeview-buffers inhibit-read-only newsticker-groups newsticker--treeview-feed-tree newsticker--treeview-vfeed-tree window-live-p set-window-buffer kill-all-local-variables t erase-buffer tree-widget-set-theme "folder" widget-create tree-widget :tag newsticker--treeview-propertize-tag "Feeds" 0 "feeds" :expander newsticker--treeview-tree-expand :expander-p #[128 "\300\207" [t] 2 "\n\n(fn &rest _)"] :leaf-icon newsticker--tree-widget-leaf-icon :nt-group :nt-id :keep (:nt-id) :open "Virtual Feeds" "vfeeds" newsticker--treeview-tree-expand-status #[128 "\300\207" [t] 2 "\n\n(fn &rest _)"] (:nt-id) use-local-map widget-setup newsticker-treeview-mode widget-keymap] 18 (#$ . 30174)])
#@218 Return propertized copy of string TAG.
Optional argument NUM-NEW is used for choosing face, other
arguments NT-ID, FEED, VFEED and TOOLTIP are added as properties.

(fn TAG &optional NUM-NEW NT-ID FEED VFEED TOOLTIP)
(defalias 'newsticker--treeview-propertize-tag #[1537 "\300\301 \203\302V\203\303\262\304\211\203&\211@\305\306#\210
A\266\202\202\210\305
\307\310#\210\305
\311\310#\210\312\313\314\315\f\316
\317\320\321\322&\207" [newsticker-treeview-face make-sparse-keymap 0 newsticker-treeview-new-face ([mouse-1] [mouse-3]) define-key newsticker-treeview-tree-click "\n" newsticker-treeview-tree-do-click "
" propertize face keymap :nt-id :nt-feed :nt-vfeed help-echo mouse-face highlight] 24 (#$ . 31272)])
#@177 Return a tag string for either FEED-NAME or, if it is nil, for VFEED-NAME.
Optional argument NT-ID is added to the tag's properties.

(fn FEED-NAME VFEED-NAME &optional NT-ID)
(defalias 'newsticker--treeview-tree-get-tag #[770 "\301\211\302\203Y\303\230\203\304\305!\262
\306\307\"\262\202S\310\230\203/\304\311!\262
\306\312\"\262\202S\313\230\203C\304\314!\262
\306\315\"\262\202S\316\230\203S\304 \262
\306\317\"\262\262\202\225\203\225\320\321!\305\311#\262
\306\322\203r\202x\323\321	!!#\262\324!\203\207\202\223\306\325\323\321!!$\262\205\246\326		&\207" [newsticker-treeview-use-feed-name-from-url-list-in-itemview nil 0 "new" newsticker--stat-num-items-total new format "New items (%d)" "immortal" immortal "Immortal items (%d)" "obsolete" obsolete "Obsolete items (%d)" "all" "All items (%d)" newsticker--stat-num-items-for-group intern "%s (%d)" newsticker--real-feed-name newsticker--group-get-group "%s (%d)\n%s" newsticker--treeview-propertize-tag] 13 (#$ . 32019)])
#@114 Count number of items in feed FEED-NAME-SYMBOL that have an age matching AGES.

(fn FEED-NAME-SYMBOL &rest AGES)
(defalias 'newsticker--stat-num-items-for-group #[385 "\300\301#C\302\303\304#\305\306\307!!\310\"\"\210\211\242\207" [apply newsticker--stat-num-items mapc make-closure #[257 "\301\211\242\302\303\304!\300#\\\240\207" [V0 V1 apply newsticker--stat-num-items intern] 7 "\n\n(fn F-N)"] newsticker--group-get-feeds newsticker--group-get-group symbol-name t] 9 (#$ . 33065)])
#@179 Count number of relevant items for a treeview node.
FEED gives the name of the feed or group.  If ISVIRTUAL is non-nil
the feed is a virtual feed.

(fn FEED &optional ISVIRTUAL)
(defalias 'newsticker--treeview-count-node-items #[513 "\300\2039
\2030\301\230\203\302\303!\207\304\230\203\302\305!\207\306\230\203'\302\307!\207\310\230\2039\302 \207\311\312!\303\305#\262
\207" [0 "new" newsticker--stat-num-items-total new "immortal" immortal "obsolete" obsolete "all" newsticker--stat-num-items-for-group intern] 7 (#$ . 33565)])
#@275 Update tag for tree widget W.
If RECURSIVE is non-nil recursively update parent widgets as
well.  Argument IGNORE is ignored.  Note that this function, if
called recursively, makes w invalid.  You should keep w's nt-id in
that case.

(fn W &optional RECURSIVE &rest IGNORE)
(defalias 'newsticker--treeview-tree-update-tag #[641 "\301\302\"\301\303\"\206\301
\303\"\301\304\"\206\301\304\"\301\305\"\206&\301\305\"\306\206,\"\307#\301	\310\"\203G\203G\311!\210
\205\201\211\203U\312
\313#\210\312\n\314#\210\312\n\313#\210\315\301\316\"!\205\201`r@q\210\317\320
!\"\210)\211b\262
\207" [newsticker--treeview-buffers widget-get :parent :nt-feed :nt-vfeed :nt-id newsticker--treeview-count-node-items newsticker--treeview-tree-get-tag :node newsticker--treeview-tree-update-tag widget-put :tag :num-new marker-position :from widget-value-set widget-value] 15 (#$ . 34116)])
#@59 Actually recursively update tags for WIDGET.

(fn WIDGET)
(defalias 'newsticker--treeview-tree-do-update-tags #[257 "\212\300
\301\"\211\211\203\211@\302
!\210
A\266\202\202\210\303!\262
)\207" [widget-get :children newsticker--treeview-tree-do-update-tags newsticker--treeview-tree-update-tag] 6 (#$ . 35035)])
#@73 Update all tags of all trees.
Arguments are ignored.

(fn &rest IGNORE)
(defalias 'newsticker--treeview-tree-update-tags #[128 "r@q\210\304\305\n!\210\305!\210)\306\307!)\207" [newsticker--treeview-buffers inhibit-read-only newsticker--treeview-feed-tree newsticker--treeview-vfeed-tree t newsticker--treeview-tree-do-update-tags tree-widget-set-theme "folder"] 3 (#$ . 35358)])
#@34 Update highlight in tree buffer.
(defalias 'newsticker--treeview-tree-update-highlight #[0 "\303\304 \305\"\211\250\204 \306
!\203\307
!\204 \303\211\304 \310\"\305\"\262
\211\250\2041\306
!\205P\307
!\205Pr@q\210\211b\210\311	\312 \313 Tp$\210)\314\n@!\205P\315\n@\"\207" [newsticker--treeview-buffers newsticker--tree-selection-overlay newsticker--treeview-windows widget-get newsticker--treeview-get-current-node :from markerp marker-position :parent move-overlay point-at-bol point-at-eol window-live-p set-window-point] 6 (#$ . 35746)])
(defvar newsticker-treeview-tool-bar-map (byte-code "\301\300!\205n\302 \303\304\305\211\306\307%\210\303\310\311\211\306\312%\210\303\313\314\211\315\316\306\317&\210\303\320\321\211\306\322%\210\303\323\324\211\306\325%\210\303\326\327\211\306\330%\210\303\331\332\211\306\333%\210\303\334\335\211\306\336%\210\303\337\340\211\306\341%\210\342\343\344\345D#\210\303\346\347\211\306\350%\210\303\351\352\211\306\353%\210)\207" [tool-bar-map boundp make-sparse-keymap tool-bar-add-item "newsticker/prev-feed" newsticker-treeview-prev-feed :help "Go to previous feed" "newsticker/prev-item" newsticker-treeview-prev-item "Go to previous item" "newsticker/next-item" newsticker-treeview-next-item :visible t "Go to next item" "newsticker/next-feed" newsticker-treeview-next-feed "Go to next feed" "newsticker/mark-immortal" newsticker-treeview-toggle-item-immortal "Toggle current item as immortal" "newsticker/mark-read" newsticker-treeview-mark-item-old "Mark current item as read" "newsticker/get-all" newsticker-get-all-news "Get news for all feeds" "newsticker/update" newsticker-treeview-update "Update newsticker buffer" "newsticker/browse-url" newsticker-browse-url "Browse URL for item at point" define-key [newsticker-sep-1] menu-item "--double-line" "close" newsticker-treeview-quit "Close newsticker" "preferences" newsticker-customize "Customize newsticker"] 8))
#@85 Call `browse-url' for the link of the item at which the EVENT occurred.

(fn EVENT)
(defalias 'newsticker-treeview-mouse-browse-url #[257 "\212\301\302\303!\211@\262
!!\210\304\305\303!!\306\"\211\205#\307
!\210\205#\310 \262
)\207" [newsticker-automatically-mark-visited-items-as-old switch-to-buffer window-buffer event-end get-text-property posn-point :nt-link browse-url newsticker-treeview-mark-item-old] 5 (#$ . 37683) "e"])
#@54 Call `browse-url' for the link of the item at point.
(defalias 'newsticker-treeview-browse-url #[0 "rA@q\210\302`\303\"\211\205\304
!\210	\205\305 \262
)\207" [newsticker--treeview-buffers newsticker-automatically-mark-visited-items-as-old get-text-property :nt-link browse-url newsticker-treeview-mark-item-old] 3 (#$ . 38125) nil])
#@34 Initialize all treeview buffers.
(defalias 'newsticker--treeview-buffer-init #[0 "\304\305\306!\211\235\203\266\202\307C\"\210\305\310!\211\235\203'\266\202.\307C\"\210\305\311!\211\235\203=\266\202D\307C\"\210	\204\\rA@q\210\312\313ed\"\314	\315\316#\210)\204sr@q\210\312\313ed\"\314\315\316#\210)\317 \210\320\312!\210\321 \207" [newsticker--treeview-buffers newsticker--selection-overlay buffer-undo-list newsticker--tree-selection-overlay nil get-buffer-create "*Newsticker Tree*" append "*Newsticker List*" "*Newsticker Item*" t make-overlay overlay-put face newsticker-treeview-selection-face newsticker--treeview-tree-update newsticker--treeview-list-update newsticker--treeview-item-update] 4 (#$ . 38470)])
#@76 Update all treeview buffers and windows.
Note: does not update the layout.
(defalias 'newsticker-treeview-update #[0 "\302 \303 \203\n\304 \210\305\306!\210\307 \210\310 \210\203\311!\210\202)	\203)\312\313	!!\210\314 \210\315 \210\2064	\211\205?
\205?\316!\207" [newsticker--treeview-current-feed newsticker--treeview-current-vfeed newsticker--treeview-get-selected-item newsticker--group-manage-orphan-feeds newsticker--treeview-tree-update newsticker--treeview-list-update t newsticker--treeview-item-update newsticker--treeview-tree-update-tags newsticker--treeview-list-items newsticker--treeview-list-items-with-age intern newsticker--treeview-tree-update-highlight newsticker--treeview-list-update-highlight newsticker--treeview-list-select] 4 (#$ . 39229) nil])
#@27 Quit newsticker treeview.
(defalias 'newsticker-treeview-quit #[0 "\303\304\305!\210\304\306!\210\304\307!\210\310	!\210\n\203\"\311\n!\203 \312\n!\210\303\313 \207" [newsticker--sentinel-callback newsticker--saved-window-config newsticker--frame nil bury-buffer "*Newsticker Tree*" "*Newsticker List*" "*Newsticker Item*" set-window-configuration frame-live-p delete-frame newsticker-treeview-save] 2 (#$ . 40017) nil])
#@31 Save treeview group settings.
(defalias 'newsticker-treeview-save #[0 "\304\305\306P!
\211\205#r\211q\210\307\310 \210\311c\210\312!c\210\313 \210\314 ))\207" [newsticker-dir coding-system-for-write buffer-undo-list newsticker-groups utf-8 find-file-noselect "/groups" t erase-buffer ";; -*- coding: utf-8 -*-\n" prin1-to-string save-buffer kill-buffer] 4 (#$ . 40448) nil])
#@25 Load treeview settings.
(defalias 'newsticker--treeview-load #[0 "\303	\304P\305
!\205\306
!\211\2050\211q\210eb\210\3071&\310
!\2110\210\202-\210\311\312!\210\313\314
!)\207" [coding-system-for-read newsticker-dir newsticker-groups utf-8 "/groups" file-exists-p find-file-noselect (error) read message "Error while reading newsticker groups file!" nil kill-buffer] 4 (#$ . 40834)])
#@22 Scroll current item.
(defalias 'newsticker-treeview-scroll-item #[0 "\301 r\302\303\"\216\304\3058\306\"\210\307\310!*\207" [newsticker--treeview-windows internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] select-window 2 t scroll-up 1] 4 (#$ . 41231) nil])
#@20 Show current item.
(defalias 'newsticker-treeview-show-item #[0 "\301 \210\302 \210rA@q\210\303 \210\304`\305\"\304`\306\"\307\"\266)\310\311 \312\"\210\313 \207" [newsticker--treeview-buffers newsticker--treeview-restore-layout newsticker--treeview-list-update-highlight beginning-of-line get-text-property :nt-item :nt-feed newsticker--treeview-item-show newsticker--treeview-tree-update-tag newsticker--treeview-get-current-node t newsticker--treeview-tree-update-highlight] 5 (#$ . 41561) nil])
#@20 Move to next item.
(defalias 'newsticker-treeview-next-item #[0 "\301 \210rA@q\210\302 \203\303y\210m\203\304y\210)\305 \207" [newsticker--treeview-buffers newsticker--treeview-restore-layout newsticker--treeview-list-highlight-start 1 -1 newsticker-treeview-show-item] 1 (#$ . 42070) nil])
#@24 Move to previous item.
(defalias 'newsticker-treeview-prev-item #[0 "\301 \210rA@q\210\302y\210)\303 \207" [newsticker--treeview-buffers newsticker--treeview-restore-layout -1 newsticker-treeview-show-item] 1 (#$ . 42372) nil])
#@346 Move to next new or immortal item.
Will move to next feed until an item is found.  Will not move if
optional argument CURRENT-ITEM-COUNTS is t and current item is
new or immortal.  Will not move from virtual to ordinary feed
tree or vice versa if optional argument DONT-WRAP-TREES is non-nil.

(fn &optional CURRENT-ITEM-COUNTS DONT-WRAP-TREES)
(defalias 'newsticker-treeview-next-new-or-immortal-item #[512 "\301 \210\302 \210\3032@
?rA@q\210\211\203%\304y\210m\203%\305y\210\306\303\307\"\210)\310 \311
8\262
\312>\203:\313 \210\306\303\314\"\210\314\262
\202\f?\205[\211?\315\314!\204U\211\205Y\316 \205Y\317\314\211\"\262
\207" [newsticker--treeview-buffers newsticker--treeview-restore-layout newsticker--treeview-list-clear-highlight found 1 -1 throw nil newsticker--treeview-get-selected-item 4 (new immortal) newsticker-treeview-show-item t newsticker-treeview-next-feed newsticker--treeview-first-feed newsticker-treeview-next-new-or-immortal-item] 6 (#$ . 42608) nil])
#@91 Move to previous new or immortal item.
Will move to previous feed until an item is found.
(defalias 'newsticker-treeview-prev-new-or-immortal-item #[0 "\301 \210\302 \210\3032=rA@q\210o\203\304\303\305\"\210\306y\210)\307 \310
8\262
\311>\2031\312 \210\304\303\313\"\210o\203\n\304\303\305\"\210\202\n?\205Q\314\313!\205QA@q\210db\210\315 \207" [newsticker--treeview-buffers newsticker--treeview-restore-layout newsticker--treeview-list-clear-highlight found throw nil -1 newsticker--treeview-get-selected-item 4 (new immortal) newsticker-treeview-show-item t newsticker-treeview-prev-feed newsticker-treeview-prev-new-or-immortal-item] 3 (#$ . 43603) nil])
#@56 Return item that is currently selected in list buffer.
(defalias 'newsticker--treeview-get-selected-item #[0 "rA@q\210\301 \210\302`\303\")\207" [newsticker--treeview-buffers beginning-of-line get-text-property :nt-item] 3 (#$ . 44277)])
#@128 Mark current item as old unless it is obsolete.
Move to next item unless DONT-PROCEED is non-nil.

(fn &optional DONT-PROCEED)
(defalias 'newsticker-treeview-mark-item-old #[256 "\300 \211\301
8\262
\302=\204\303
\304\"\210\210\211?\205\305 \207" [newsticker--treeview-get-selected-item 4 obsolete newsticker--treeview-mark-item old newsticker-treeview-next-item] 5 (#$ . 44523) nil])
#@37 Toggle immortality of current item.
(defalias 'newsticker-treeview-toggle-item-immortal #[0 "\300 \211\301
8\262
\302=\203\303\202\302\304\"\210\305 \207" [newsticker--treeview-get-selected-item 4 immortal old newsticker--treeview-mark-item newsticker-treeview-next-item] 5 (#$ . 44918) nil])
#@44 Mark ITEM with NEW-AGE.

(fn ITEM NEW-AGE)
(defalias 'newsticker--treeview-mark-item #[514 "
\203\n\302\233
\240\210\303\304\305!!!\210\306	!\207" [newsticker--treeview-current-feed newsticker--treeview-vfeed-tree 4 newsticker--cache-save-feed newsticker--cache-get-feed intern newsticker--treeview-tree-do-update-tags] 6 (#$ . 45223)])
#@31 Mark all listed items as old.
(defalias 'newsticker-treeview-mark-list-items-old #[0 "\206	r\nA@q\210eb\210m\204-\303`\304\"\211\305
8\262
\306>\204&\307
\310\"\210\210\311y\210\202)\312 \210\211\2058\313
!\207" [newsticker--treeview-current-feed newsticker--treeview-current-vfeed newsticker--treeview-buffers get-text-property :nt-item 4 (immortal obsolete) newsticker--treeview-mark-item old 1 newsticker--treeview-tree-update-tags newsticker-treeview-jump] 5 (#$ . 45569) nil])
#@20 Save current item.
(defalias 'newsticker-treeview-save-item #[0 "\302\206	\303 \"\207" [newsticker--treeview-current-feed newsticker--treeview-current-vfeed newsticker-save-item newsticker--treeview-get-selected-item] 3 (#$ . 46065) nil])
#@63 Convert current item to HTML and call `browse-url' on result.
(defalias 'newsticker-treeview-browse-url-item #[0 "\302\206	\303 \"\207" [newsticker--treeview-current-feed newsticker--treeview-current-vfeed newsticker-browse-url-item newsticker--treeview-get-selected-item] 3 (#$ . 46313) nil])
#@79 Open customization buffer for `newsticker-url-list' and move to current feed.
(defalias 'newsticker-treeview-customize-current-feed #[0 "\206	\302
!\203\303\304!\207\305
!\207" [newsticker--treeview-current-feed newsticker--treeview-current-vfeed newsticker--group-get-group message "Cannot customize groups.  Please select a feed." newsticker-customize-feed] 3 (#$ . 46616) nil])
#@40 Make NODE the current node.

(fn NODE)
(defalias 'newsticker--treeview-set-current-node #[257 "r@q\210\304
\305\"\304
\306\"\304
\307\"\310 )\207" [newsticker--treeview-buffers newsticker--treeview-current-node-id newsticker--treeview-current-feed newsticker--treeview-current-vfeed widget-get :nt-id :nt-feed :nt-vfeed newsticker--treeview-tree-update-highlight] 4 (#$ . 47008)])
#@37 Get first child of NODE.

(fn NODE)
(defalias 'newsticker--treeview-get-first-child #[257 "\300
\301\"\211\205\n\211@\207" [widget-get :children] 4 (#$ . 47399)])
#@37 Get scond child of NODE.

(fn NODE)
(defalias 'newsticker--treeview-get-second-child #[257 "\300
\301\"\211\205\211A@\207" [widget-get :children] 4 (#$ . 47569)])
#@36 Get last child of NODE.

(fn NODE)
(defalias 'newsticker--treeview-get-last-child #[257 "\300
\301\"\211\205\f\302
!@\207" [widget-get :children reverse] 4 (#$ . 47740)])
#@40 Get (virtual) feed of NODE.

(fn NODE)
(defalias 'newsticker--treeview-get-feed-vfeed #[257 "\300
\301\"\206\300
\302\"\207" [widget-get :nt-feed :nt-vfeed] 4 (#$ . 47918)])
#@38 Get next sibling of NODE.

(fn NODE)
(defalias 'newsticker--treeview-get-next-sibling #[257 "\300
\301\"\3022)\300
\303\"\211\205&\304
@\"\203\305\302A@\"\210\211A\262
\202\f\262
0\207" [widget-get :parent found :children newsticker--treeview-nodes-eq throw] 6 (#$ . 48100)])
#@42 Get previous sibling of NODE.

(fn NODE)
(defalias 'newsticker--treeview-get-prev-sibling #[257 "\300
\301\"\30223\300
\303\"\304
\2050\305@\"\203%\300
\306\"\203%\307\302\"\210
@\262

A\262\202
\266\2020\207" [widget-get :parent found :children nil newsticker--treeview-nodes-eq :nt-id throw] 7 (#$ . 48389)])
#@64 Get next uncle of NODE, i.e. parent's next sibling.

(fn NODE)
(defalias 'newsticker--treeview-get-next-uncle #[257 "\300
\301\"\300
\301\"\3022-\300
\303\"\211\205*\304
@\"\203#\305\302A@\"\210\211A\262
\202\262
0\207" [widget-get :parent found :children newsticker--treeview-nodes-eq throw] 7 (#$ . 48715)])
#@72 Get previous uncle of NODE, i.e. parent's previous sibling.

(fn NODE)
(defalias 'newsticker--treeview-get-prev-uncle #[257 "\300
\301\"\300
\301\"\30220\300
\303\"\304
\205-\305@\"\203\"\306\302\"\210
@\262

A\262\202\266\2020\207" [widget-get :parent found :children nil newsticker--treeview-nodes-eq throw] 8 (#$ . 49038)])
#@17 Get other tree.
(defalias 'newsticker--treeview-get-other-tree #[0 "\302 \203\303\302 \304\"\203\207	\207" [newsticker--treeview-vfeed-tree newsticker--treeview-feed-tree newsticker--treeview-get-current-node widget-get :nt-feed] 3 (#$ . 49380)])
#@188 Activate NODE.
If NODE is a tree widget the node's first subnode is activated.
If BACKWARD is non-nil the last subnode of the previous sibling
is activated.

(fn NODE &optional BACKWARD)
(defalias 'newsticker--treeview-activate-node #[513 "\301!\210r@q\210
\211@\262
\302=\2036\303\304\"\204$\305\304\306#\210\307!\210\310
\203/\311!\2022\312!!\202=
\205=\307!)\207" [newsticker--treeview-buffers newsticker--treeview-set-current-node tree-widget widget-get :open widget-put nil widget-apply-action newsticker--treeview-activate-node newsticker--treeview-get-last-child newsticker--treeview-get-second-child] 6 (#$ . 49639)])
#@63 Jump to the depth-first feed in the `newsticker-groups' tree.
(defalias 'newsticker--treeview-first-feed #[0 "\301\302\303\304\"!@!\207" [newsticker-groups newsticker-treeview-jump reverse newsticker--group-get-feeds t] 5 (#$ . 50285)])
#@205 Move to next feed.
Optional argument STAY-IN-TREE prevents moving from real feed
tree to virtual feed tree or vice versa.
Return t if a new feed was activated, nil otherwise.

(fn &optional STAY-IN-TREE)
(defalias 'newsticker-treeview-next-feed #[256 "\301 \210\302 \303
\203 \304!\206%\305!\206%?\205%\306 \202%\307\310\"@\262
\211\2056\311
!\210\312 \210\211=?\207" [newsticker--treeview-feed-tree newsticker--treeview-restore-layout newsticker--treeview-get-current-node nil newsticker--treeview-get-next-sibling newsticker--treeview-get-next-uncle newsticker--treeview-get-other-tree widget-get :children newsticker--treeview-activate-node newsticker--treeview-tree-update-highlight] 6 (#$ . 50530) nil])
#@209 Move to previous feed.
Optional argument STAY-IN-TREE prevents moving from real feed
tree to virtual feed tree or vice versa.
Return t if a new feed was activated, nil otherwise.

(fn &optional STAY-IN-TREE)
(defalias 'newsticker-treeview-prev-feed #[256 "\301 \210\302 \303
\205;
\203$\304!\206)\305!\206)?\205)\306 \202)\307\310\"@\262
\211\205;\311
\312\"\210\313 \210\211=?\207" [newsticker--treeview-feed-tree newsticker--treeview-restore-layout newsticker--treeview-get-current-node nil newsticker--treeview-get-prev-sibling newsticker--treeview-get-prev-uncle newsticker--treeview-get-other-tree widget-get :children newsticker--treeview-activate-node t newsticker--treeview-tree-update-highlight] 6 (#$ . 51257) nil])
#@21 Scroll item buffer.
(defalias 'newsticker-treeview-next-page #[0 "\301 r\302\303\"\216\304\3058\306\"\210\3071\310\311!0\202\210eb*\207" [newsticker--treeview-windows internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] select-window 2 t (error) scroll-up nil] 4 (#$ . 52001) nil])
#@84 Recursively show subtree above the node that represents FEED-NAME.

(fn FEED-NAME)
(defalias 'newsticker--treeview-unfold-node #[257 "\301
!\211\204\302!@\303
!\266\301!\262
\211\205,r@q\210\304
\305\306#\210\307
!\210\310
!)\207" [newsticker--treeview-buffers newsticker--treeview-get-node-of-feed newsticker--group-find-parent-group newsticker--treeview-unfold-node widget-put :nt-selected t widget-apply-action newsticker--treeview-set-current-node] 6 (#$ . 52358)])
#@64 Jump to feed FEED-NAME in newsticker treeview.

(fn FEED-NAME)
(defalias 'newsticker-treeview-jump #[257 "\300
!\207" [newsticker--treeview-unfold-node] 3 (#$ . 52841) (byte-code "\303\304\305\306\307\310\311\306	\n\"\"\"\312\303$)C\207" [completion-ignore-case newsticker-url-list newsticker-url-list-defaults t completing-read "Jump to feed/group: " append ("new" "obsolete" "immortal" "all") mapcar car nil] 9)])
#@103 Recursively find FEED-OR-GROUP-NAME in PARENT-NODE or NODE.

(fn FEED-OR-GROUP-NAME PARENT-NODE NODE)
(defalias 'newsticker--group-do-find-group #[771 "\211;\203
\230\2056\300\301\"\207\211<\2056
@\230\203!\300\301\"\207
A\235\203-\300\301\"\207\302\303\304#A\"\207" [throw found mapc make-closure #[257 "\211<\205\n\302\300\301#\207" [V0 V1 newsticker--group-do-find-group] 5 "\n\n(fn N)"]] 8 (#$ . 53265)])
#@68 Find group containing FEED-OR-GROUP-NAME.

(fn FEED-OR-GROUP-NAME)
(defalias 'newsticker--group-find-parent-group #[257 "\3012\302\303\304\"\"\210\3050\207" [newsticker-groups found mapc make-closure #[257 "\302\300	#\207" [V0 newsticker-groups newsticker--group-do-find-group] 5 "\n\n(fn N)"] nil] 5 (#$ . 53697)])
#@62 Recursively find group with NAME below NODE.

(fn NAME NODE)
(defalias 'newsticker--group-do-get-group #[514 "

@\230\203\f\300\301\"\207\302\303\304\"A\"\207" [throw found mapc make-closure #[257 "\211<\205	\301\300\"\207" [V0 newsticker--group-do-get-group] 4 "\n\n(fn N)"]] 6 (#$ . 54024)])
#@34 Find group with NAME.

(fn NAME)
(defalias 'newsticker--group-get-group #[257 "\3012\302\303\304\"\"\210\3050\207" [newsticker-groups found mapc make-closure #[257 "\211<\205	\301\300\"\207" [V0 newsticker--group-do-get-group] 4 "\n\n(fn N)"] nil] 5 (#$ . 54330)])
#@145 Return list of subgroups for GROUP.
If RECURSIVE is non-nil recursively get subgroups and return a nested list.

(fn GROUP &optional RECURSIVE)
(defalias 'newsticker--group-get-subgroups #[513 "\300C\301\302\303#\"\210\211\242\207" [nil mapc make-closure #[257 "\211<\205\301
@\301\242B\240\210\302
\300\"\211\205\301\303\301\242\"\240\262
\207" [V0 V1 newsticker--group-get-subgroups append] 6 "\n\n(fn N)"]] 8 (#$ . 54608)])
#@35 Return nested list of all groups.
(defalias 'newsticker--group-all-groups #[0 "\301\302\"\207" [newsticker-groups newsticker--group-get-subgroups t] 3 (#$ . 55049)])
#@153 Return list of all feeds in GROUP.
If RECURSIVE is non-nil recursively get feeds of subgroups and
return a nested list.

(fn GROUP &optional RECURSIVE)
(defalias 'newsticker--group-get-feeds #[513 "\300C\301\302\303#A\"\210\211\242\207" [nil mapc make-closure #[257 "\211<\204\f\301
\301\242B\240\207\300\205!\302
\303\"\211\205\301\304\301\242\"\240\262
\207" [V0 V1 newsticker--group-get-feeds t append] 6 "\n\n(fn N)"]] 8 (#$ . 55223)])
#@51 Add group NAME to group PARENT.

(fn NAME PARENT)
(defalias 'newsticker-group-add-group #[514 "\302!\203\303\304\"\210\211\203\211\305\230\204\302
!\202\211\204%\303\306\"\210\211CAB\241\266\307 \210\310	!\207" [newsticker-groups newsticker--treeview-current-feed newsticker--group-get-group error "Group %s exists already" "" "Parent %s does not exist" newsticker--treeview-tree-update newsticker-treeview-jump] 6 (#$ . 55677) (byte-code "\301\302!\303\304\305\306 \307\303$)D\207" [completion-ignore-case read-string "Name of new group: " t completing-read "Name of parent group (optional): " newsticker--group-all-groups nil] 6)])
#@31 Delete group NAME.

(fn NAME)
(defalias 'newsticker-group-delete-group #[257 "\301
!\211\204\f\302\303\"\210\211\304\305\306\"A\"\241\210\307 \210\310 \210\311 \210\312!\207" [newsticker--treeview-current-feed newsticker--group-find-parent-group error "Parent %s does not exist" cl-delete-if make-closure #[257 "\211<\205	\300
@\230\207" [V0] 3 "\n\n(fn G)"] newsticker--group-manage-orphan-feeds newsticker--treeview-tree-update newsticker-treeview-update newsticker-treeview-jump] 7 (#$ . 56334) (byte-code "\302\303\304\305 \306\302\307	!@%)C\207" [completion-ignore-case newsticker--treeview-current-feed t completing-read "Delete group: " newsticker--group-names nil newsticker--group-find-parent-group] 7)])
#@69 Actually rename group OLD-NAME to NEW-NAME.

(fn OLD-NAME NEW-NAME)
(defalias 'newsticker--group-do-rename-group #[514 "\300!\211\204\f\301\302\"\210\303\304\305#\"\207" [newsticker--group-find-parent-group error "Parent of %s does not exist" mapcar make-closure #[257 "\211<\203\300
@\230\203\301
AB\207\207" [V0 V1] 3 "\n\n(fn ELT)"]] 8 (#$ . 57061)])
#@60 Rename group OLD-NAME to NEW-NAME.

(fn OLD-NAME NEW-NAME)
(defalias 'newsticker-group-rename-group #[514 "\302\"\303 \210\304 \210\305 \210\306	!\207" [newsticker-groups newsticker--treeview-current-feed newsticker--group-do-rename-group newsticker--group-manage-orphan-feeds newsticker--treeview-tree-update newsticker-treeview-update newsticker-treeview-jump] 5 (#$ . 57431) (byte-code "\302\303\304\305 \306\302\307	!@%)\310\311!D\207" [completion-ignore-case newsticker--treeview-current-feed t completing-read "Rename group: " newsticker--group-names nil newsticker--group-find-parent-group read-string "Rename to: "] 7)])
#@44 Do get the group names from LST.

(fn LST)
(defalias 'newsticker--get-group-names #[257 "\300\301@\302\303\304\305A\"\"B\"\207" [delete nil apply append mapcar #[257 "\211<\203	\300
!\207\301\207" [newsticker--get-group-names nil] 3 "\n\n(fn E)"]] 9 (#$ . 58070)])
#@37 Get names of all newsticker groups.
(defalias 'newsticker--group-names #[0 "\301!\207" [newsticker-groups newsticker--get-group-names] 2 (#$ . 58345)])
#@135 Move feed NAME to group GROUP-NAME.
Update treeview afterwards unless NO-UPDATE is non-nil.

(fn NAME GROUP-NAME &optional NO-UPDATE)
(defalias 'newsticker-group-move-feed #[770 "
\203
\301\230\204\302!\202\303 \235\211\203\302!\202 \204*\304\305\"\210\306!\211\2037\307\"\210\211\262
\204*
AB\241\210?\205S\310 \210\311 \210\312!\207" [newsticker-groups "" newsticker--group-get-group newsticker--group-names error "Group %s does not exist" newsticker--group-find-parent-group delete newsticker--treeview-tree-update newsticker-treeview-update newsticker-treeview-jump] 10 (#$ . 58505) (byte-code "\303\304\305\306\307\310	\"\311 \"\312\303\n%\304\313\311 \312\303$)D\207" [completion-ignore-case newsticker-url-list newsticker--treeview-current-feed t completing-read "Name of feed or group to move: " append mapcar car newsticker--group-names nil "Name of new parent group: "] 6)])
#@39 Shift current feed down in its group.
(defalias 'newsticker-group-shift-feed-down #[0 "\300\301!\207" [newsticker--group-shift 1] 2 (#$ . 59427) nil])
#@39 Shift current feed down in its group.
(defalias 'newsticker-group-shift-feed-up #[0 "\300\301!\207" [newsticker--group-shift -1] 2 (#$ . 59584) nil])
#@40 Shift current group down in its group.
(defalias 'newsticker-group-shift-group-down #[0 "\300\301\302\"\207" [newsticker--group-shift 1 t] 3 (#$ . 59740) nil])
#@40 Shift current group down in its group.
(defalias 'newsticker-group-shift-group-up #[0 "\300\301\302\"\207" [newsticker--group-shift -1 t] 3 (#$ . 59906) nil])
#@325 Shift current feed or group within its parent group.
DELTA is an integer which specifies the direction and the amount
of the shift.  If MOVE-GROUP is nil the currently selected feed
`newsticker--treeview-current-feed' is shifted, if it is t then
the current feed's parent group is shifted..

(fn DELTA &optional MOVE-GROUP)
(defalias 'newsticker--group-shift #[513 "
\203\301
!\204\302
!@\202\211\302
!\211\204\303\304!\210\211A\305\306\307$\211\\\310G^]\311\310^#\311]T\"\234U?\205x\301	!\206Q\312\313\310V\203dD\202hD$\241\266\314 \210\315 \210\316\n!\207" [newsticker--treeview-current-feed newsticker--group-get-group newsticker--group-find-parent-group error "Group not found!" cl-position :test #[514 "
<\203\n
@\202

<\203
@\202
\232\207" [] 4 "\n\n(fn O1 O2)"] 0 cl-subseq cl-concatenate list newsticker--treeview-tree-update newsticker-treeview-update newsticker-treeview-jump] 19 (#$ . 60072)])
#@61 Recursively count number of subgroups of GROUP.

(fn GROUP)
(defalias 'newsticker--count-groups #[257 "\300C\301\302\303\"A\"\210\211\242\207" [1 mapc make-closure #[257 "\211<\205
\300\211\242\301!\\\240\207" [V0 newsticker--count-groups] 5 "\n\n(fn G)"]] 6 (#$ . 61037)])
#@75 Recursively count number of feeds in GROUP and its subgroups.

(fn GROUP)
(defalias 'newsticker--count-grouped-feeds #[257 "\300C\301\302\303\"A\"\210\211\242\207" [0 mapc make-closure #[257 "\211<\203\300\211\242\301!\\\240\207\300\211\242T\240\207" [V0 newsticker--count-grouped-feeds] 5 "\n\n(fn G)"]] 6 (#$ . 61321)])
#@59 Recursively remove obsolete feeds from GROUP.

(fn GROUP)
(defalias 'newsticker--group-remove-obsolete-feeds #[257 "\302C\303	\"\304\305\306#A\"\210
\242\203@\307\242!B\207
\242\207" [newsticker-url-list newsticker-url-list-defaults nil append mapc make-closure #[257 "\211<\203\302
!\211\205\300
\300\242B\240\207\303
\301\"\205 \300
\300\242B\240\207" [V0 V1 newsticker--group-remove-obsolete-feeds assoc] 5 "\n\n(fn G)"] reverse] 8 (#$ . 61654)])
#@126 Put unmanaged feeds into `newsticker-groups'.
Remove obsolete feeds as well.
Return t if groups have changed, nil otherwise.
(defalias 'newsticker--group-manage-orphan-feeds #[0 "\204\303\304C\305!\306\307\310\"\311	\n\"\"\210\312!
\242\206%\211\305!U?\207" [newsticker-groups newsticker-url-list-defaults newsticker-url-list ("Feeds") nil newsticker--count-grouped-feeds mapc make-closure #[257 "\301
@!?\205\300\302\240\210\303
@\304\302#\207" [V0 newsticker--group-find-parent-group t newsticker-group-move-feed nil] 5 "\n\n(fn F)"] append newsticker--group-remove-obsolete-feeds] 7 (#$ . 62124)])
#@50 Open tree menu at position of EVENT.

(fn EVENT)
(defalias 'newsticker--treeview-tree-open-menu #[257 "\301
!\302
\303\304\305\306E#\210\302
\307\304\310P\311E#\210\302
\312\304\313\314E#\210\315\"\211\205-\211@ \207" [newsticker--treeview-current-feed make-sparse-keymap define-key [newsticker-treeview-mark-list-items-old] menu-item "Mark all items old" newsticker-treeview-mark-list-items-old [newsticker-treeview-get-news] "Get news for " newsticker-treeview-get-news [newsticker-get-all-news] "Get news for all feeds" newsticker-get-all-news x-popup-menu] 9 (#$ . 62743)])
#@31 Map for newsticker list menu.
(defvar newsticker-treeview-list-menu (byte-code "\300\301!\302
\303\304\305\306E#\210\302
\307\304\310\311E#\210\302
\312\304\313\314E#\210\302
\315\304\316\317E#\210\207" [make-sparse-keymap "Newsticker List" define-key [newsticker-treeview-mark-list-items-old] menu-item "Mark all items old" newsticker-treeview-mark-list-items-old [newsticker-treeview-mark-item-old] "Mark current item old" newsticker-treeview-mark-item-old [newsticker-treeview-toggle-item-immortal] "Mark current item immortal (toggle)" newsticker-treeview-toggle-item-immortal [newsticker-treeview-get-news] "Get news for current feed" newsticker-treeview-get-news] 7) (#$ . 63333))
#@31 Map for newsticker item menu.
(defvar newsticker-treeview-item-menu (byte-code "\300\301!\302
\303\304\305\306E#\210\302
\307\304\310\311E#\210\302
\312\304\313\314E#\210\207" [make-sparse-keymap "Newsticker Item" define-key [newsticker-treeview-mark-item-old] menu-item "Mark current item old" newsticker-treeview-mark-item-old [newsticker-treeview-toggle-item-immortal] "Mark current item immortal (toggle)" newsticker-treeview-toggle-item-immortal [newsticker-treeview-get-news] "Get news for current feed" newsticker-treeview-get-news] 7) (#$ . 64026))
#@35 Mode map for newsticker treeview.
(defvar newsticker-treeview-mode-map (byte-code "\300\301!\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\302
\313\314#\210\302
\315\316#\210\302
\317\320#\210\302
\321\322#\210\302
\323\324#\210\302
\325\326#\210\302
\327\330#\210\302
\331\332#\210\302
\333\334#\210\302
\335\336#\210\302
\337\340#\210\302
\341\342#\210\302
\343\344#\210\302
\345\346#\210\302
\347\350#\210\302
\351\352#\210\302
\353\354#\210\302
\355\356#\210\302
\357\360#\210\302
\361\362#\210\302
\363\364#\210\302
\365\366#\210\302
\367\370#\210\302
\371\372#\210\302
\373\374#\210\207" [make-sparse-keymap newsticker-treeview-mode-map define-key " " newsticker-treeview-next-page "a" newsticker-add-url "b" newsticker-treeview-browse-url-item "c" newsticker-treeview-customize-current-feed "F" newsticker-treeview-prev-feed "f" newsticker-treeview-next-feed "g" newsticker-treeview-get-news "G" newsticker-get-all-news "i" newsticker-treeview-toggle-item-immortal "j" newsticker-treeview-jump "n" newsticker-treeview-next-item "N" newsticker-treeview-next-new-or-immortal-item "O" newsticker-treeview-mark-list-items-old "o" newsticker-treeview-mark-item-old "p" newsticker-treeview-prev-item "P" newsticker-treeview-prev-new-or-immortal-item "q" newsticker-treeview-quit "S" newsticker-treeview-save-item "s" newsticker-treeview-save "u" newsticker-treeview-update "v" newsticker-treeview-browse-url "\355" newsticker-group-move-feed "\341" newsticker-group-add-group "\344" newsticker-group-delete-group "\362" newsticker-group-rename-group [M-down] newsticker-group-shift-feed-down [M-up] newsticker-group-shift-feed-up [M-S-down] newsticker-group-shift-group-down [M-S-up] newsticker-group-shift-group-up] 5) (#$ . 64589))
(defvar newsticker-treeview-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [newsticker-treeview-mode-hook variable-documentation put "Hook run after entering Newsticker TV mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp newsticker-treeview-mode-map definition-name newsticker-treeview-mode] 4)
(defvar newsticker-treeview-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [newsticker-treeview-mode-abbrev-table newsticker-treeview-mode-map variable-documentation put purecopy "Keymap for `newsticker-treeview-mode'." boundp newsticker-treeview-mode-syntax-table definition-name newsticker-treeview-mode (lambda (#1=#:def-tmp-var) (defvar newsticker-treeview-mode-syntax-table #1#)) make-syntax-table "Syntax table for `newsticker-treeview-mode'." (lambda (#1#) (defvar newsticker-treeview-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `newsticker-treeview-mode'." derived-mode-parent] 5)
#@183 Major mode for Newsticker Treeview.
\{newsticker-treeview-mode-map}

This mode runs the hook `newsticker-treeview-mode-hook', as the final
or penultimate step during initialization.
(defalias 'newsticker-treeview-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\315\316!\203&\306\316!\210\307\211)\317\320!\207" [delay-mode-hooks major-mode mode-name newsticker-treeview-mode-map newsticker-treeview-mode-syntax-table newsticker-treeview-mode-abbrev-table make-local-variable t kill-all-local-variables newsticker-treeview-mode "Newsticker TV" use-local-map set-syntax-table boundp tool-bar-map run-mode-hooks newsticker-treeview-mode-hook local-abbrev-table newsticker-treeview-tool-bar-map buffer-read-only truncate-lines] 3 (#$ . 67674) nil])
(defvar newsticker-treeview-list-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [newsticker-treeview-list-mode-hook variable-documentation put "Hook run after entering Item List mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp newsticker-treeview-list-mode-map definition-name newsticker-treeview-list-mode] 4)
(defvar newsticker-treeview-list-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [newsticker-treeview-list-mode-abbrev-table newsticker-treeview-list-mode-map variable-documentation put purecopy "Keymap for `newsticker-treeview-list-mode'." boundp newsticker-treeview-list-mode-syntax-table definition-name newsticker-treeview-list-mode (lambda (#1=#:def-tmp-var) (defvar newsticker-treeview-list-mode-syntax-table #1#)) make-syntax-table "Syntax table for `newsticker-treeview-list-mode'." (lambda (#1#) (defvar newsticker-treeview-list-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `newsticker-treeview-list-mode'." derived-mode-parent newsticker-treeview-mode] 5)
#@601 Major mode derived from `newsticker-treeview-mode' by `define-derived-mode'.
It inherits all of the parent's attributes, but has its own keymap,
abbrev table and syntax table:

  `newsticker-treeview-list-mode-map',
`newsticker-treeview-list-mode-abbrev-table' and
`newsticker-treeview-list-mode-syntax-table'

which more-or-less shadow newsticker-treeview-mode's corresponding tables.

In addition to any hooks its parent mode might have run, this mode
runs the hook `newsticker-treeview-list-mode-hook', as the final or
penultimate step during initialization.

\{newsticker-treeview-list-mode-map}
(defalias 'newsticker-treeview-list-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
.=\204R\326
\325.C#\210\327!\210\330\f!\210
.\331\332\333\334#\335\336\337\"\331\332\333\340#/\203z\341\331\332\333\342#P\202{\343\335\344\345\"/\203\214\331\332\333\346#\202\221\331\332\333\347#\335\350\351\"\2600\352\3531#\210)\354\355!\207" [delay-mode-hooks major-mode mode-name newsticker-treeview-list-mode-map newsticker-treeview-list-mode-syntax-table newsticker-treeview-list-mode-abbrev-table make-local-variable t newsticker-treeview-mode newsticker-treeview-list-mode "Item List" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table propertize " " display (space :align-to 0) newsticker-treeview-list-make-sort-button "*" sort-by-age (space :align-to 2) "Feed" (space :align-to 12) "" "Date" sort-by-time (space :align-to 28) (space :align-to 18) "Title" sort-by-title define-key [down-mouse-3] run-mode-hooks newsticker-treeview-list-mode-hook local-abbrev-table newsticker--treeview-list-show-feed header-line-format newsticker-treeview-list-menu] 9 (#$ . 69867) nil])
(defvar newsticker-treeview-item-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [newsticker-treeview-item-mode-hook variable-documentation put "Hook run after entering Item mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp newsticker-treeview-item-mode-map definition-name newsticker-treeview-item-mode] 4)
(defvar newsticker-treeview-item-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [newsticker-treeview-item-mode-abbrev-table newsticker-treeview-item-mode-map variable-documentation put purecopy "Keymap for `newsticker-treeview-item-mode'." boundp newsticker-treeview-item-mode-syntax-table definition-name newsticker-treeview-item-mode (lambda (#1=#:def-tmp-var) (defvar newsticker-treeview-item-mode-syntax-table #1#)) make-syntax-table "Syntax table for `newsticker-treeview-item-mode'." (lambda (#1#) (defvar newsticker-treeview-item-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `newsticker-treeview-item-mode'." derived-mode-parent newsticker-treeview-mode] 5)
#@601 Major mode derived from `newsticker-treeview-mode' by `define-derived-mode'.
It inherits all of the parent's attributes, but has its own keymap,
abbrev table and syntax table:

  `newsticker-treeview-item-mode-map',
`newsticker-treeview-item-mode-abbrev-table' and
`newsticker-treeview-item-mode-syntax-table'

which more-or-less shadow newsticker-treeview-mode's corresponding tables.

In addition to any hooks its parent mode might have run, this mode
runs the hook `newsticker-treeview-item-mode-hook', as the final or
penultimate step during initialization.

\{newsticker-treeview-item-mode-map}
(defalias 'newsticker-treeview-item-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
\331\332#\210)\333\334!\207" [delay-mode-hooks major-mode mode-name newsticker-treeview-item-mode-map newsticker-treeview-item-mode-syntax-table newsticker-treeview-item-mode-abbrev-table make-local-variable t newsticker-treeview-mode newsticker-treeview-item-mode "Item" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table define-key [down-mouse-3] run-mode-hooks newsticker-treeview-item-mode-hook local-abbrev-table newsticker-treeview-item-menu] 5 (#$ . 73260) nil])
#@65 Handle click EVENT on a tag in the newsticker tree.

(fn EVENT)
(defalias 'newsticker-treeview-tree-click #[257 "\300 \210\212\301\302\303!\211@\262
!!\210\304\305\303!!\")\207" [newsticker--treeview-restore-layout switch-to-buffer window-buffer event-end newsticker-treeview-tree-do-click posn-point] 5 (#$ . 74776) "e"])
#@101 Actually handle click event.
POS gives the position where EVENT occurred.

(fn &optional POS EVENT)
(defalias 'newsticker-treeview-tree-do-click #[512 "
\206`\300
\301\"\300\302\"\211\203\303 \266\202R\304!\211\203P\305
\306\211#\210\304!\262
\307
\310\306#\210\311
\312#\210\313
!\210\203P@\314=\203P\315\316!\203P\317!\210\266\320 \207" [get-text-property :nt-id :nt-item newsticker-treeview-show-item newsticker--treeview-get-node-by-id newsticker--treeview-tree-update-tag t widget-put :nt-selected widget-apply :action newsticker--treeview-set-current-node mouse-3 sit-for 0 newsticker--treeview-tree-open-menu newsticker--treeview-tree-update-highlight] 10 (#$ . 75109) nil])
#@27 Restore treeview buffers.
(defalias 'newsticker--treeview-restore-layout #[0 "\3022<\303\211\304W\2059\2118
	8\305!\204\"\306 \210\307 \210\310\302\311\"\210\312!
=\2040\313\311#\210\266\211T\262
\202\262
0\207" [newsticker--treeview-windows newsticker--treeview-buffers error 0 3 window-live-p newsticker--treeview-window-init newsticker--treeview-buffer-init throw t window-buffer set-window-buffer] 7 (#$ . 75816)])
#@28 Initialize treeview frame.
(defalias 'newsticker--treeview-frame-init #[0 "\205	\203\302	!\204\303\304!\305	!\210\306	!\207" [newsticker-treeview-own-frame newsticker--frame frame-live-p make-frame ((name . "Newsticker")) select-frame-set-input-focus raise-frame] 2 (#$ . 76253)])
#@30 Initialize treeview windows.
(defalias 'newsticker--treeview-window-init #[0 "\305 \306\211\307 \210\310!\210\311 \211	\235\203	\266\202#\312	C\"\210\313\314!\210\315\f!\210\311 \211	\235\2039	\266\202@\312	C\"\210\313\314!\210\311 \211	\235\203R	\266\202Y\312	C\"\210\313\314!\207" [newsticker--saved-window-config newsticker--treeview-windows newsticker--treeview-buffers newsticker-treeview-treewindow-width newsticker-treeview-listwindow-height current-window-configuration nil delete-other-windows split-window-right selected-window append other-window 1 split-window-below] 5 (#$ . 76548)])
#@28 Start newsticker treeview.
(defalias 'newsticker-treeview #[0 "\302 \210\303\304 \210\305 \210\306 \210\307 \203\310 \210\311	!\210\312\313!\210\303 \210\314\315\316\"\207" [newsticker--sentinel-callback newsticker--treeview-feed-tree newsticker--treeview-load newsticker-treeview-update newsticker--treeview-frame-init newsticker--treeview-window-init newsticker--treeview-buffer-init newsticker--group-manage-orphan-feeds newsticker--treeview-tree-update newsticker--treeview-set-current-node newsticker-start t newsticker--treeview-item-show-text "Newsticker" "Welcome to newsticker!"] 3 (#$ . 77171) nil])
#@28 Get news for current feed.
(defalias 'newsticker-treeview-get-news #[0 "\205\301!\207" [newsticker--treeview-current-feed newsticker-get-news] 2 (#$ . 77790) nil])
(provide 'newst-treeview)