Current File : //usr/local/share/emacs/27.2/lisp/net/newst-plainview.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312%\207" [require newst-ticker newst-reader derived xml custom-declare-group newsticker-plainview nil "Settings for the simple plain view reader.\nSee also `newsticker-plainview-hooks'." :group newsticker-reader] 6)
#@128 Set newsticker-variable SYMBOL value to VALUE.
Calls all actions which are necessary in order to make the new
value effective.
(defalias 'newsticker--set-customvar-buffer #[(symbol value) "\302!\203
J \232\203 L\207 L\210\303\304!\207" [symbol value boundp newsticker--buffer-set-uptodate nil] 2 (#$ . 711)])
#@128 Set newsticker-variable SYMBOL value to VALUE.
Calls all actions which are necessary in order to make the new
value effective.
(defalias 'newsticker--set-customvar-sorting #[(symbol value) "\302!\203
J \232\203 L\207 L\210\303\304!\210\305\306!\203\" \306 \210\305\307!\203, \307\310!\210\303\311!\207" [symbol value boundp message "Applying new sort method..." fboundp newsticker--cache-sort newsticker--buffer-set-uptodate nil "Applying new sort method...done"] 2 (#$ . 1034)])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\315\306\316\310\311& \210\300\317\320\321\304\315\306\316\310\311& \210\300\322\323\324\304\315\306\316\310\311& \210\300\325\326\327\304\315\306\316\310\311& \210\330\331\332\333\310\334%\210\330\335\336\337\310\334%\210\330\340\341\342\310\334%\210\330\343\344\337\310\334%\210\330\345\346\347\310\334%\210\330\350\351\347\310\334%\210\330\352\353\354\310\334%\210\300\355\356\357\304\360\306\361\310\311& \210\300\362\363\364\304\360\306\361\310\311& \210\300\365\356\366\304\360\310\311&\210\367\370\356\371\310\372%\210\300\373\374\375\304\376\377\201@ \310\370& \210\300\201A \201B \201C \304\376\377\201D \310\370& \210\300\201E \201F \201G \304\376\310\370&\210\300\201H \201I \201J \304\376\310\370&\207" [custom-declare-variable newsticker-sort-method 'sort-by-original-order "Sort method for news items.\nThe following sort methods are available:\n* `sort-by-original-order' keeps the order in which the items\n appear in the headline file (please note that for immortal items,\n which have been removed from the news feed, there is no original\n order),\n* `sort-by-time' looks at the time at which an item has been seen\n the first time. The most recent item is put at top,\n* `sort-by-title' will put the items in an alphabetical order." :type (choice (const :tag "Keep original order" sort-by-original-order) (const :tag "Sort by time" sort-by-time) (const :tag "Sort by title" sort-by-title)) :set newsticker--set-customvar-sorting :group newsticker-plainview newsticker-heading-format "%l\n%t %d %s" "Format string for feed headings.\nThe following printf-like specifiers can be used:\n%d The date the feed was retrieved. See `newsticker-date-format'.\n%l The logo (image) of the feed. Most news feeds provide a small\n image as logo. Newsticker can display them, if Emacs can --\n see `image-types' for a list of supported image types.\n%L The logo (image) of the feed. If the logo is not available\n the title of the feed is used.\n%s The statistical data of the feed. See `newsticker-statistics-format'.\n%t The title of the feed, i.e. its name." string newsticker--set-customvar-formatting newsticker-item-format "%t %d" "Format string for news item headlines.\nThe following printf-like specifiers can be used:\n%d The date the item was (first) retrieved. See `newsticker-date-format'.\n%l The logo (image) of the feed. Most news feeds provide a small\n image as logo. Newsticker can display them, if Emacs can --\n see `image-types' for a list of supported image types.\n%L The logo (image) of the feed. If the logo is not available\n the title of the feed is used.\n%t The title of the item." newsticker-desc-format "%d %c" "Format string for news descriptions (contents).\nThe following printf-like specifiers can be used:\n%c The contents (description) of the item.\n%d The date the item was (first) retrieved. See\n `newsticker-date-format'." newsticker-statistics-format "[%n + %i + %o + %O = %a]" "Format for the statistics part in feed lines.\nThe following printf-like specifiers can be used:\n%a The number of all items in the feed.\n%i The number of immortal items in the feed.\n%n The number of new items in the feed.\n%o The number of old items in the feed.\n%O The number of obsolete items in the feed." custom-declare-face newsticker-new-item-face ((t :weight bold)) "Face for new news items." newsticker-faces newsticker-old-item-face ((default :weight bold) (((class color) (background dark)) :foreground "orange3") (((class color) (background light)) :foreground "red4")) "Face for old news items." newsticker-immortal-item-face ((default :weight bold :slant italic) (((class color) (background dark)) :foreground "orange") (((class color) (background light)) :foreground "blue")) "Face for immortal news items." newsticker-obsolete-item-face ((t :weight bold :strike-through t)) newsticker-date-face ((t :slant italic :height 0.8)) "Face for newsticker dates." newsticker-statistics-face ((t :slant italic :height 0.8)) newsticker-default-face ((t)) "Face for the description of news items." newsticker-hide-old-items-in-newsticker-buffer nil "Decides whether to automatically hide old items in the *newsticker* buffer.\nIf set to t old items will be completely folded and only new\nitems will show up in the *newsticker* buffer. Otherwise old as\nwell as new items will be visible." boolean newsticker--set-customvar-buffer newsticker-show-descriptions-of-new-items t "Whether to automatically show descriptions of new items in *newsticker*.\nIf set to t old items will be folded and new items will be\nunfolded. Otherwise old as well as new items will be folded." newsticker-show-all-news-elements "Show all news elements." custom-declare-group newsticker-plainview-hooks "Settings for newsticker hooks which apply to plainview only." newsticker-hooks newsticker-select-item-hook 'newsticker--buffer-make-item-completely-visible "List of functions run after a headline has been selected.\nEach function is called after one of `newsticker-next-item',\n`newsticker-next-new-item', `newsticker-previous-item',\n`newsticker-previous-new-item' has been called.\n\nThe default value `newsticker--buffer-make-item-completely-visible'\nassures that the current item is always completely visible." hook :options (newsticker--buffer-make-item-completely-visible) newsticker-select-feed-hook 'newsticker--buffer-make-item-completely-visible "List of functions run after a feed has been selected.\nEach function is called after one of `newsticker-next-feed', and\n`newsticker-previous-feed' has been called.\n\nThe default value `newsticker--buffer-make-item-completely-visible'\nassures that the current feed is completely visible." (newsticker--buffer-make-item-completely-visible) newsticker-buffer-change-hook 'newsticker-w3m-show-inline-images "List of functions run after the newsticker buffer has been updated.\nEach function is called after `newsticker-buffer-update' has been called.\n\nThe default value `newsticker-w3m-show-inline-images' loads inline\nimages." newsticker-narrow-hook 'newsticker-w3m-show-inline-images "List of functions run after narrowing in newsticker buffer has changed.\nEach function is called after\n`newsticker-toggle-auto-narrow-to-feed' or\n`newsticker-toggle-auto-narrow-to-item' has been called.\n\nThe default value `newsticker-w3m-show-inline-images' loads inline\nimages."] 10)
(defvar newsticker--plainview-tool-bar-map (byte-code "\301\300!\205\210 \302 \303\304\305\211\306\307\310\311&\210\303\312\313\211\306\314\310\315&\210\303\316\317\211\306\320\310\321&\210\303\322\323\211\306\324\310\325&\210\303\326\327\211\306\330%\210\303\331\332\211\306\333\310\334&\210\303\335\336\211\306\337\310\340&\210\303\341\342\211\306\343%\210\303\344\345\211\306\346\310\347&\210\303\350\351\211\306\352%\210\353\354\355\356D#\210\303\357\360\211\306\361%\210\303\362\363\211\306\364%\210)\207" [tool-bar-map boundp make-sparse-keymap tool-bar-add-item "newsticker/prev-feed" newsticker-previous-feed :help "Go to previous feed" :enable (newsticker-previous-feed-available-p) "newsticker/prev-item" newsticker-previous-item "Go to previous item" (newsticker-previous-item-available-p) "newsticker/next-item" newsticker-next-item "Go to next item" (newsticker-next-item-available-p) "newsticker/next-feed" newsticker-next-feed "Go to next feed" (newsticker-next-feed-available-p) "newsticker/narrow" newsticker-toggle-auto-narrow-to-feed "Toggle visibility of other feeds" "newsticker/mark-immortal" newsticker-mark-item-at-point-as-immortal "Mark current item as immortal" (newsticker-item-not-immortal-p) "newsticker/mark-read" newsticker-mark-item-at-point-as-read "Mark current item as read" (newsticker-item-not-old-p) "newsticker/get-all-news" newsticker-get-all-news "Get news for all feeds" "newsticker/update" newsticker-buffer-force-update "Update newsticker buffer" (not newsticker--buffer-uptodate-p) "newsticker/browse-url" newsticker-browse-url "Browse URL for item at point" define-key [newsticker-sep-1] menu-item "--double-line" "close" newsticker-close-buffer "Close newsticker buffer" "preferences" newsticker-customize "Customize newsticker"] 8))
(defvar newsticker-menu (byte-code "\301\302!\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210)\207" [map make-sparse-keymap "Newsticker" define-key [newsticker-browse-url] ("Browse URL for item at point" . newsticker-browse-url) [newsticker-separator-1] ("--") [newsticker-buffer-update] ("Update buffer" . newsticker-buffer-update) [newsticker-separator-2] ("--") [newsticker-get-all-news] ("Get news from all feeds" . newsticker-get-all-news) [newsticker-get-news-at-point] ("Get news from feed at point" . newsticker-get-news-at-point) [newsticker-separator-3] ("--") [newsticker-mark-all-items-as-read] ("Mark all items as read" . newsticker-mark-all-items-as-read) [newsticker-mark-all-items-at-point-as-read] ("Mark all items in feed at point as read" . newsticker-mark-all-items-at-point-as-read) [newsticker-mark-item-at-point-as-read] ("Mark item at point as read" . newsticker-mark-item-at-point-as-read) [newsticker-mark-item-at-point-as-immortal] ("Toggle immortality for item at point" . newsticker-mark-item-at-point-as-immortal) [newsticker-separator-4] ("--") [newsticker-toggle-auto-narrow-to-item] ("Narrow to single item" . newsticker-toggle-auto-narrow-to-item) [newsticker-toggle-auto-narrow-to-feed] ("Narrow to single news feed" . newsticker-toggle-auto-narrow-to-feed) [newsticker-hide-old-items] ("Hide old items" . newsticker-hide-old-items) [newsticker-show-old-items] ("Show old items" . newsticker-show-old-items) [newsticker-next-item] ("Go to next item" . newsticker-next-item) [newsticker-previous-item] ("Go to previous item" . newsticker-previous-item)] 4))
(defvar newsticker-mode-map (byte-code "\302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\353#\210\303\354\355#\210\303\356\355#\210\303\357\360#\210\303\361\362#\210\303\363\364#\210\303\365\366#\210\303\367\370#\210\303\371\372#\210\303\373\374#\210\303\375\376#\210\303\377\201@ #\210\303\201A \201B #\210\303\201C \201D #\210\303\201E \201F #\210\303\201G \201H #\210\303\201I \201J #\210\303\201K #\210\303\201L \201M B#\210)\207" [map newsticker-menu make-keymap define-key "sO" newsticker-show-old-items "hO" newsticker-hide-old-items "sa" newsticker-show-all-desc "ha" newsticker-hide-all-desc "sf" newsticker-show-feed-desc "hf" newsticker-hide-feed-desc "so" newsticker-show-old-item-desc "ho" newsticker-hide-old-item-desc "sn" newsticker-show-new-item-desc "hn" newsticker-hide-new-item-desc "se" newsticker-show-entry "he" newsticker-hide-entry "sx" newsticker-show-extra "hx" newsticker-hide-extra [33554464] scroll-down-command " " scroll-up-command "q" newsticker-close-buffer "p" newsticker-previous-item "P" newsticker-previous-new-item "F" newsticker-previous-feed " " newsticker-next-item "n" "N" newsticker-next-new-item "f" newsticker-next-feed "M" newsticker-mark-all-items-as-read "m" newsticker-mark-all-items-at-point-as-read-and-redraw "o" newsticker-mark-item-at-point-as-read "O" newsticker-mark-all-items-at-point-as-read "G" newsticker-get-all-news "g" newsticker-get-news-at-point "u" newsticker-buffer-update "U" newsticker-buffer-force-update "a" newsticker-add-url "i" newsticker-mark-item-at-point-as-immortal "xf" newsticker-toggle-auto-narrow-to-feed "xi" newsticker-toggle-auto-narrow-to-item [down-mouse-3] [menu-bar Newsticker] "Newsticker"] 5))
(defvar newsticker-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-mode-hook variable-documentation put "Hook run after entering NewsTicker 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-mode-map definition-name newsticker-mode] 4)
(defvar newsticker-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-mode-abbrev-table newsticker-mode-map variable-documentation put purecopy "Keymap for `newsticker-mode'." boundp newsticker-mode-syntax-table definition-name newsticker-mode (lambda (#1=#:def-tmp-var) (defvar newsticker-mode-syntax-table #1#)) make-syntax-table "Syntax table for `newsticker-mode'." (lambda (#1#) (defvar newsticker-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `newsticker-mode'." derived-mode-parent] 5)
#@159 Viewing news feeds in Emacs.
This mode runs the hook `newsticker-mode-hook', as the final or penultimate step
during initialization.
\{newsticker-mode-map}
(defalias 'newsticker-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
,\315\316!\203& \306\316!\210-\306\317!\210\320\306\321!\210\322\323.\324/\3070\325\326!\210\327\326!\210\306\330!\210\320\306\331!\210\307\332\333\334\335\336\337\340\341\342\343\344\345\346\257
1\347\307!\2102\204q \347\350!\210\351\320!\210)\352\353!\207" [delay-mode-hooks major-mode mode-name newsticker-mode-map newsticker-mode-syntax-table newsticker-mode-abbrev-table make-local-variable t kill-all-local-variables newsticker-mode "NewsTicker" use-local-map set-syntax-table boundp tool-bar-map imenu-sort-function nil scroll-conservatively 999 newsticker--imenu-create-index newsticker--imenu-goto auto-fill-mode -1 font-lock-mode font-lock-defaults line-move-ignore-invisible "-" mode-line-mule-info mode-line-modified mode-line-frame-identification " Newsticker (" (newsticker--buffer-uptodate-p "up to date" "NEED UPDATE") ") " (:eval (format "[%d]" (length newsticker--process-ids))) " -- " (:eval (newsticker--buffer-get-feed-title-at-point)) ": " (:eval (newsticker--buffer-get-item-title-at-point)) " %-" add-to-invisibility-spec extra newsticker--buffer-set-uptodate run-mode-hooks newsticker-mode-hook local-abbrev-table newsticker--plainview-tool-bar-map imenu-create-index-function imenu-default-goto-function buffer-read-only mode-line-format newsticker-show-all-news-elements] 13 (#$ . 14883) nil])
#@59 Key map for click-able headings in the newsticker buffer.
(defvar newsticker--url-keymap (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\307#\210\302\311\312#\210)\207" [map make-sparse-keymap define-key [mouse-1] newsticker-mouse-browse-url [mouse-2] "\n" newsticker-browse-url "
" [(control return)] newsticker-handle-url] 4) (#$ . 16478))
#@29 Start newsticker plainview.
(defalias 'newsticker-plainview #[nil "\300\301!\210\302\303!\207" [newsticker-buffer-update t switch-to-buffer "*newsticker*"] 2 (#$ . 16862) nil])
#@54 Update the newsticker buffer, even if not necessary.
(defalias 'newsticker-buffer-force-update #[nil "\300\301!\207" [newsticker-buffer-update t] 2 (#$ . 17045) nil])
#@136 Update the *newsticker* buffer.
Unless FORCE is t this is done only if necessary, i.e. when the
*newsticker* buffer is not up-to-date.
(defalias 'newsticker-buffer-update #[(&optional force) "\306 \210\212\307\310!\211\203 \311!\210\202 \311\312\310!!\210\313\314!\210) \204& \n\204l \315\316!\210\317\211 \320\314!\210\321 \210\322 \210\323\324!\210\325\326!\210
\203M \327\330!\210\331 S\332 \210\320\314!\210\333 \210!\203_ \334 \210\"\203g \335 \210)\315\336!\210\313\317!\210\337\340!)\207" [buf force newsticker--buffer-uptodate-p buffer-undo-list inhibit-read-only newsticker-use-full-width newsticker--cache-sort get-buffer "*newsticker*" switch-to-buffer get-buffer-create newsticker--buffer-set-uptodate nil message "Preparing newsticker buffer..." t set-buffer-modified-p erase-buffer newsticker-mode auto-fill-mode -1 set-buffer-file-coding-system utf-8 make-local-variable fill-column window-width newsticker--buffer-insert-all-items newsticker-hide-all-desc newsticker-hide-old-items newsticker-show-new-item-desc "" run-hooks newsticker-buffer-change-hook newsticker-hide-old-items-in-newsticker-buffer newsticker-show-descriptions-of-new-items] 4 (#$ . 17219) nil])
#@94 Launch retrieval of news for the feed point is in.
This does NOT start the retrieval timers.
(defalias 'newsticker-get-news-at-point #[nil "\301`\300\"\211\205 \302\303\304!\"\210\305\304!!)\207" [feed get-text-property newsticker--debug-msg "Getting news for %s" symbol-name newsticker-get-news] 5 (#$ . 18416) nil])
#@213 Show inline images in visible text ranges.
In-line images in invisible text ranges are hidden. This function
calls `w3m-toggle-inline-image'. It works only if
`newsticker-html-renderer' is set to `w3m-region'.
(defalias 'newsticker-w3m-show-inline-images #[nil "\305=\205G \306\212\214~\210eb\210`\n\205F \307\n\310\"\211\203 \nb\210\311\n\310\"\203 \312\311`S\313\" \" \311`S\314\"@\204B \f\204B \315\306!\210)\202 ,\207" [newsticker-html-renderer inhibit-read-only pos buffer-invisibility-spec invis w3m-region t next-single-property-change w3m-image get-text-property newsticker--lists-intersect-p invisible display w3m-toggle-inline-image] 5 (#$ . 18745) nil])
#@30 Close the newsticker buffer.
(defalias 'newsticker-close-buffer #[nil "\300\301!\210\302 \207" [newsticker--cache-update t bury-buffer] 2 (#$ . 19425) nil])
#@164 Go to next new news item.
If no new item is found behind point, search is continued at
beginning of buffer unless optional argument DO-NOT-WRAP-AT-EOB
is non-nil.
(defalias 'newsticker-next-new-item #[(&optional do-not-wrap-at-eob) "~\210\303\203, \304\305\306\"\204 \204 eb\210\307\303!\210\310\311\312`\313\"\n\"\204 \310\211\204 )\314\315!\210`\207" [go-ahead do-not-wrap-at-eob buffer-invisibility-spec t newsticker--buffer-goto (item) new newsticker-next-new-item nil newsticker--lists-intersect-p get-text-property invisible run-hooks newsticker-select-item-hook] 5 (#$ . 19589) nil])
#@168 Go to previous new news item.
If no new item is found before point, search is continued at
beginning of buffer unless optional argument DO-NOT-WRAP-AT-BOB
is non-nil.
(defalias 'newsticker-previous-new-item #[(&optional do-not-wrap-at-bob) "~\210\303\203- \304\305\306\303#\204 \204 db\210\304\307\306\303#\210\310\311`\312\"\n\"\204 \313\211\204 )\314\315!\210`\207" [go-ahead do-not-wrap-at-bob buffer-invisibility-spec t newsticker--buffer-goto (item) new (item) newsticker--lists-intersect-p get-text-property invisible nil run-hooks newsticker-select-item-hook] 5 (#$ . 20196) nil])
#@183 Go to next news item.
Return new buffer position.
If no item is found below point, search is continued at beginning
of buffer unless optional argument DO-NOT-WRAP-AT-EOB is
non-nil.
(defalias 'newsticker-next-item #[(&optional do-not-wrap-at-eob) "~\210\305\306\n\203\f \307 \203/ \310!\204 \204 eb\210\311\312\313`\314\"\f\"\204\f \311\211\204 *\315\316!\210\317 \210`\207" [search-list go-ahead newsticker--auto-narrow-to-item do-not-wrap-at-eob buffer-invisibility-spec t (item) (item feed) newsticker--buffer-goto nil newsticker--lists-intersect-p get-text-property invisible run-hooks newsticker-select-item-hook force-mode-line-update] 5 (#$ . 20799) nil])
#@156 Go to next news item in the same feed.
Return new buffer position. If no item is found below point or if
auto-narrow-to-item is enabled, nil is returned.
(defalias 'newsticker-next-item-same-feed #[nil "?\205? \305`\212\306 ) \203* \307\310!\204 \311\312\313`\314\"\f\"\204 \311\211\204 `\nV\203: ` W\203: `\202> \nb\210\311+\207" [newsticker--auto-narrow-to-item end-of-feed current-pos go-ahead buffer-invisibility-spec t newsticker--buffer-end-of-feed newsticker--buffer-goto (item) nil newsticker--lists-intersect-p get-text-property invisible] 5 (#$ . 21479) nil])
#@188 Go to previous news item.
Return new buffer position.
If no item is found before point, search is continued at
beginning of buffer unless optional argument DO-NOT-WRAP-AT-BOB
is non-nil.
(defalias 'newsticker-previous-item #[(&optional do-not-wrap-at-bob) "~\210\305\306\n\203\f \307o\203 \204 db\210 \203< \310\311\305#\2033 \312\313`\314\"\f\"\204 \311\211\202 eb\210\311\211\204 *\315\316!\210\317 \210`\207" [search-list go-ahead newsticker--auto-narrow-to-item do-not-wrap-at-bob buffer-invisibility-spec t (item) (item feed) newsticker--buffer-goto nil newsticker--lists-intersect-p get-text-property invisible run-hooks newsticker-select-item-hook force-mode-line-update] 5 (#$ . 22066) nil])
#@51 Go to next news feed.
Return new buffer position.
(defalias 'newsticker-next-feed #[nil "~\210\300\301!\210\302\303!\210\304 \210`\207" [newsticker--buffer-goto (feed) run-hooks newsticker-select-feed-hook force-mode-line-update] 2 (#$ . 22784) nil])
#@55 Go to previous news feed.
Return new buffer position.
(defalias 'newsticker-previous-feed #[nil "~\210\300\301\302\303#\210\304\305!\210\306 \210`\207" [newsticker--buffer-goto (feed) nil t run-hooks newsticker-select-feed-hook force-mode-line-update] 4 (#$ . 23041) nil])
#@51 Mark all items as read and clear ticker contents.
(defalias 'newsticker-mark-all-items-at-point-as-read-and-redraw #[nil "\204\n \301\302!\205 \303\304`\305\"!\207" [newsticker--buffer-uptodate-p y-or-n-p "Buffer is not up to date -- really mark items as read? " newsticker-mark-all-items-of-feed-as-read get-text-property feed] 4 (#$ . 23320) nil])
#@66 Mark all items of FEED as read, clear ticker, and redraw buffer.
(defalias 'newsticker-mark-all-items-of-feed-as-read #[(feed) "\2054 `\303\304\305!\"\210\306\n\307\310$\210\306\n\311\310$\210\312 \210\313\314!\210\315 \210\316 \210 b\210\314\210\317\320\314\321#)\207" [feed pos newsticker--cache message "Marking all items as read for %s" symbol-name newsticker--cache-replace-age new old obsolete newsticker--cache-update newsticker--buffer-set-uptodate nil newsticker--ticker-text-setup newsticker-buffer-update newsticker--buffer-goto (feed) t] 5 (#$ . 23678)])
#@51 Mark all items as read and clear ticker contents.
(defalias 'newsticker-mark-all-items-at-point-as-read #[nil "\204\n \301\302!\205 \303\304!\210\305 \203 \303\304!\210\202 \306\304!\207" [newsticker--buffer-uptodate-p y-or-n-p "Buffer is not up to date -- really mark items as read? " newsticker--do-mark-item-at-point-as-read t newsticker-next-item-same-feed newsticker-next-item] 2 (#$ . 24257) nil])
#@138 Mark item at point as read and move to next item.
If optional argument RESPECT-IMMORTALITY is not nil immortal items do
not get changed.
(defalias 'newsticker-mark-item-at-point-as-read #[(&optional respect-immortality) "\204\n \302\303!\205 \304 !\210\305\306!\207" [newsticker--buffer-uptodate-p respect-immortality y-or-n-p "Buffer is not up to date -- really mark this item as read? " newsticker--do-mark-item-at-point-as-read newsticker-next-item t] 2 (#$ . 24672) nil])
#@116 Mark item at point as read.
If optional argument RESPECT-IMMORTALITY is not nil immortal items do
not get changed.
(defalias 'newsticker--do-mark-item-at-point-as-read #[(&optional respect-immortality) "\306`\300\"\211\205\227 \212\307 \210\310\306`\311\"\306`\312\"\306`\313\"\306`\303\"\212\314 )\315 \316=\204G \317=\204G \320=\205\225 ?\205\225 \321
\315\211\f&\211\203a \322 \233\323\240\210\324 !\210\316=\203m \204| \325>\203\201 =\204\201 \326
\"\210\212\214~\210\327`\n\311\323$\210\330`\n\"\210*\331\315!.)\207" [feed item pos nt-desc guid title get-text-property newsticker--buffer-beginning-of-item t nt-age nt-title nt-guid newsticker--buffer-end-of-item nil new obsolete immortal newsticker--cache-contains 4 old newsticker--do-forget-preformatted (old immortal) newsticker--ticker-text-remove put-text-property newsticker--buffer-set-faces set-buffer-modified-p age inhibit-read-only respect-immortality newsticker--cache newsticker-hide-immortal-items-in-echo-area newsticker-hide-old-items-in-newsticker-buffer] 9 (#$ . 25157)])
#@29 Mark item at point as read.
(defalias 'newsticker-mark-item-at-point-as-immortal #[nil "\204\n \306\307!\205\276 \310`\302\"\311\211\205\275 \212\312 \210\313\310`\314\"\310`\315\"\310`\316\"\212\317 ) \320 \320=\203> \321 \322 \n
\311\211\211\f&\211\203Y \323 \233 \240\210\324 !\210 \320=\203e \204\200 \325=\203q \204\200 \320=\203\210 ! =\204\210 \326\n
\"\210\202\213 \327 \210\212\214~\210\330` \314 $\210 \320=\203\250 \330` \314\320$\210\202\257 \330` \314\321$\210\331` \"\210. \205\275 \332\313!*\207" [newsticker--buffer-uptodate-p item feed pos guid title y-or-n-p "Buffer is not up to date -- really mark this item as read? " get-text-property nil newsticker--buffer-beginning-of-item t nt-age nt-title nt-guid newsticker--buffer-end-of-item immortal old newsticker--cache-contains 4 newsticker--do-forget-preformatted obsolete newsticker--ticker-text-remove newsticker--ticker-text-setup put-text-property newsticker--buffer-set-faces newsticker-next-item oldage inhibit-read-only newage newsticker--cache newsticker-hide-immortal-items-in-echo-area newsticker-hide-obsolete-items-in-echo-area newsticker-hide-old-items-in-newsticker-buffer] 9 (#$ . 26244) nil])
#@51 Mark all items as read and clear ticker contents.
(defalias 'newsticker-mark-all-items-as-read #[nil "\204\n \302\303!\205 \304 \305\306\307$\210\310\311!\210\312 \210\313 \210\314 \207" [newsticker--buffer-uptodate-p newsticker--cache y-or-n-p "Buffer is not up to date -- really mark items as read? " newsticker--cache-replace-age any new old newsticker--buffer-set-uptodate nil newsticker--ticker-text-setup newsticker--cache-update newsticker-buffer-update] 5 (#$ . 27458) nil])
#@35 Hide the extra elements of items.
(defalias 'newsticker-hide-extra #[nil "\300\301\302\"\210\303 \207" [newsticker--buffer-hideshow extra nil newsticker--buffer-redraw] 3 (#$ . 27949) nil])
#@35 Show the extra elements of items.
(defalias 'newsticker-show-extra #[nil "\300\301\302\"\210\303 \207" [newsticker--buffer-hideshow extra t newsticker--buffer-redraw] 3 (#$ . 28145) nil])
#@36 Hide the description of old items.
(defalias 'newsticker-hide-old-item-desc #[nil "\300\301\302\"\210\303 \207" [newsticker--buffer-hideshow desc-old nil newsticker--buffer-redraw] 3 (#$ . 28339) nil])
#@36 Show the description of old items.
(defalias 'newsticker-show-old-item-desc #[nil "\300\301\302\"\210\300\303\302\"\210\304 \207" [newsticker--buffer-hideshow item-old t desc-old newsticker--buffer-redraw] 3 (#$ . 28547) nil])
#@36 Hide the description of new items.
(defalias 'newsticker-hide-new-item-desc #[nil "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\305 \207" [newsticker--buffer-hideshow desc-new nil desc-immortal desc-obsolete newsticker--buffer-redraw] 3 (#$ . 28780) nil])
#@36 Show the description of new items.
(defalias 'newsticker-show-new-item-desc #[nil "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\305 \207" [newsticker--buffer-hideshow desc-new t desc-immortal desc-obsolete newsticker--buffer-redraw] 3 (#$ . 29052) nil])
#@32 Hide the description of feeds.
(defalias 'newsticker-hide-feed-desc #[nil "\300\301\302\"\210\303 \207" [newsticker--buffer-hideshow desc-feed nil newsticker--buffer-redraw] 3 (#$ . 29322) nil])
#@36 Show the description of old items.
(defalias 'newsticker-show-feed-desc #[nil "\300\301\302\"\210\303 \207" [newsticker--buffer-hideshow desc-feed t newsticker--buffer-redraw] 3 (#$ . 29523) nil])
#@47 Hide the descriptions of feeds and all items.
(defalias 'newsticker-hide-all-desc #[nil "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\210\300\306\302\"\210\307 \207" [newsticker--buffer-hideshow desc-feed nil desc-immortal desc-obsolete desc-new desc-old newsticker--buffer-redraw] 3 (#$ . 29726) nil])
#@47 Show the descriptions of feeds and all items.
(defalias 'newsticker-show-all-desc #[nil "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\210\300\306\302\"\210\307 \207" [newsticker--buffer-hideshow desc-feed t desc-immortal desc-obsolete desc-new desc-old newsticker--buffer-redraw] 3 (#$ . 30059) nil])
#@17 Hide old items.
(defalias 'newsticker-hide-old-items #[nil "\300\301\302\"\210\300\303\302\"\210\304 \207" [newsticker--buffer-hideshow desc-old nil item-old newsticker--buffer-redraw] 3 (#$ . 30390) nil])
#@17 Show old items.
(defalias 'newsticker-show-old-items #[nil "\300\301\302\"\210\303 \207" [newsticker--buffer-hideshow item-old t newsticker--buffer-redraw] 3 (#$ . 30602) nil])
#@37 Hide description of entry at point.
(defalias 'newsticker-hide-entry #[nil "\212\306\211\307\306\211 \306 \310 \210\311\312!\210e`S]\311\313!\210e`S]\314\315\"\314\316\" \307=\204T \f\306=\203F \317 \315\307C\316 F#\210\202T \317 \315\fD#\210\320 \321#\210.\322 \207" [pos1 pos2 inhibit-read-only inv-prop org-inv-prop is-invisible nil t newsticker--buffer-beginning-of-item newsticker--buffer-goto (desc) (extra feed item nil) get-text-property invisible org-invisible add-text-properties remove-text-properties (org-invisible nil) newsticker--buffer-redraw] 8 (#$ . 30785) nil])
#@37 Show description of entry at point.
(defalias 'newsticker-show-entry #[nil "\212\306\211\307\306\211 \306 \310 \210\311\312!\210e`S]\311\313!\210e`S]\314\315\"\314\316\"\211\306=\203? \317 \315\306\316 F#\210\202M \317 \315\fD#\210\320 \321#\210.\322 \207" [pos1 pos2 inhibit-read-only inv-prop org-inv-prop is-invisible nil t newsticker--buffer-beginning-of-item newsticker--buffer-goto (desc) (extra feed item) get-text-property invisible org-invisible add-text-properties remove-text-properties (org-invisible nil) newsticker--buffer-redraw] 8 (#$ . 31386) nil])
#@117 Toggle narrowing to current news feed.
If auto-narrowing is active, only news item of the current feed
are visible.
(defalias 'newsticker-toggle-auto-narrow-to-feed #[nil "\301?!\207" [newsticker--auto-narrow-to-feed newsticker-set-auto-narrow-to-feed] 2 (#$ . 31973) nil])
#@122 Turn narrowing to current news feed on or off.
If VALUE is nil, auto-narrowing is turned off, otherwise it is turned on.
(defalias 'newsticker-set-auto-narrow-to-feed #[(value) "\303 ~\210\304 \210\305\306!\207" [newsticker--auto-narrow-to-item value newsticker--auto-narrow-to-feed nil newsticker--buffer-make-item-completely-visible run-hooks newsticker-narrow-hook] 2 (#$ . 32255) nil])
#@115 Toggle narrowing to current news item.
If auto-narrowing is active, only one item of the current feed
is visible.
(defalias 'newsticker-toggle-auto-narrow-to-item #[nil "\301?!\207" [newsticker--auto-narrow-to-item newsticker-set-auto-narrow-to-item] 2 (#$ . 32654) nil])
#@122 Turn narrowing to current news item on or off.
If VALUE is nil, auto-narrowing is turned off, otherwise it is turned on.
(defalias 'newsticker-set-auto-narrow-to-item #[(value) "\303 ~\210\304 \210\305\306!\207" [newsticker--auto-narrow-to-feed value newsticker--auto-narrow-to-item nil newsticker--buffer-make-item-completely-visible run-hooks newsticker-narrow-hook] 2 (#$ . 32934) nil])
#@58 Return t if position is before last feed, nil otherwise.
(defalias 'newsticker-next-feed-available-p #[nil "\212`\301\302!\210`U*?\207" [p newsticker--buffer-goto (feed)] 2 (#$ . 33332)])
#@59 Return t if position is behind first feed, nil otherwise.
(defalias 'newsticker-previous-feed-available-p #[nil "\212`\301\302\303\304#\210`U*?\207" [p newsticker--buffer-goto (feed) nil t] 4 (#$ . 33528)])
#@58 Return t if position is before last feed, nil otherwise.
(defalias 'newsticker-next-item-available-p #[nil "\212\3012) `dW\205( \302\303!\204 \304\301\305\"\210\306\307`\310\"\"\204 \304\301\311\"\210\202 0)\207" [buffer-invisibility-spec result newsticker--buffer-goto (item) throw nil newsticker--lists-intersect-p get-text-property invisible t] 4 (#$ . 33743)])
#@59 Return t if position is behind first item, nil otherwise.
(defalias 'newsticker-previous-item-available-p #[nil "\212\3012+ `eV\205* \302\303\304\305#\204 \306\301\304\"\210\307\310`\311\"\"\204 \306\301\305\"\210\202 0)\207" [buffer-invisibility-spec result newsticker--buffer-goto (item) nil t throw newsticker--lists-intersect-p get-text-property invisible] 4 (#$ . 34118)])
#@72 Return t if there is an item at point which is not old, nil otherwise.
(defalias 'newsticker-item-not-old-p #[nil "\301`\302\"\205 \212\303 \210\301`\304\"\211\305>\205 \306*\207" [age get-text-property feed newsticker--buffer-beginning-of-item nt-age (new immortal obsolete) t] 4 (#$ . 34506)])
#@77 Return t if there is an item at point which is not immortal, nil otherwise.
(defalias 'newsticker-item-not-immortal-p #[nil "\301`\302\"\205 \212\303 \210\301`\304\"\211\305>\205 \306*\207" [age get-text-property feed newsticker--buffer-beginning-of-item nt-age (new old obsolete) t] 4 (#$ . 34811)])
#@55 Scan newsticker buffer and return an index for imenu.
(defalias 'newsticker--imenu-create-index #[nil "\212eb\210\305\211\306\203G \307`\310\"\307`\311\"\211 \312=\2037 \2031 \n\203. \n C\244\210\2021 C C\202> `BC\244\210*\313\314!\211\204 \n\203S \n C\244\210\202V C\n,\207" [go-ahead feed-list index-alist title type nil t get-text-property nt-type nt-title feed newsticker--buffer-goto (item feed)] 5 (#$ . 35121)])
#@66 Go to item NAME at position POS and show item.
ARGS are ignored.
(defalias 'newsticker--imenu-goto #[(name pos &rest args) "b\210\306\307!\210\310eS]\211`S]\311\312\" \311\313\"\211 \314=\203- \315\n \312\314\313\fF#\210-\316 \207" [pos inhibit-read-only pos1 pos2 inv-prop org-inv-prop newsticker--buffer-goto (desc extra feed item) t get-text-property invisible org-invisible nil add-text-properties newsticker-show-entry] 8 (#$ . 35561)])
#@98 Set the uptodate-status of the newsticker buffer to VALUE.
The mode-line is changed accordingly.
(defalias 'newsticker--buffer-set-uptodate #[(value) "\304\305!\211\205 r\nq\210\203 \306\202 \307)\310\311!)\207" [value newsticker--buffer-uptodate-p b mode-name get-buffer "*newsticker*" "Newsticker -- up to date -- " "Newsticker -- NEED UPDATE -- " force-mode-line-update 0] 3 (#$ . 36016)])
#@31 Redraw the newsticker window.
(defalias 'newsticker--buffer-redraw #[nil "\300\301!\203
\301p!\210\202 \302 \210\303\304!\210\305\306!\207" [fboundp force-window-update redraw-frame run-hooks newsticker-buffer-change-hook sit-for 0] 2 (#$ . 36423)])
#@152 Insert all cached newsticker items into the current buffer.
Keeps order of feeds as given in `newsticker-url-list' and
`newsticker-url-list-defaults'.
(defalias 'newsticker--buffer-insert-all-items #[nil "eb\210\302\303\304 \"\"\210\305ed\"\210\306ed\"\210eb\207" [newsticker-url-list newsticker-url-list-defaults mapc #[(url-item) "@\306 !\307\n \"\211 A ` \f\2057 \310\311
\"\210\310\312
\"\210\313`\304\f@$\210` \314c\210\313`\315\316$)-\207" [url-item feed-name feed-name-symbol newsticker--cache feed items intern assoc mapc #[(item) "\3028\262\303=\205 \304 \"\207" [item feed-name-symbol 4 feed newsticker--buffer-insert-item] 3] #[(item) "\3028\262\303>\205 \304 \"\207" [item feed-name-symbol 4 (new immortal old obsolete) newsticker--buffer-insert-item] 3] put-text-property "\n" hard t pos p] 6] append newsticker--buffer-set-faces newsticker--buffer-set-invisibility] 5 (#$ . 36682)])
#@222 Insert a news item in the current buffer.
Insert a formatted representation of the ITEM. The optional parameter
FEED-NAME-SYMBOL determines how the item is formatted and whether the
item-retrieval time is added as well.
(defalias 'newsticker--buffer-insert-item #[(item &optional feed-name-symbol) "\3028\262\303=\203 \304\303 #\210\202 \304\300 #\210\304\305 #\207" [item feed-name-symbol 4 feed newsticker--buffer-do-insert-text desc] 4 (#$ . 37606)])
#@205 Actually insert contents of news item, format it, render it and all that.
ITEM is a news item, TYPE tells which part of the item shall be inserted,
FEED-NAME-SYMBOL tells to which feed this item belongs.
(defalias 'newsticker--buffer-do-insert-text #[(item type feed-name-symbol) "` \306\211 \306\211 @\306\211 A B\306\211 C D\306\211 E F
\3078\262 G
\3108\262 H
\3118\262 IH\203U H\312H\313=\204U J\314=\203U Hc\202aI\203p I\312H\313=\204p J\315=\203p Ic\202aJ\315=\203} K\202\207 J\316=\203\207 L\nG\312V\2037\nG\317V\203\235 \320\n\312\321#\202\236 \322\211 M\323\230\203\311
\211A@\262\203\301 \324 A
\211A@\262c\210\324 B\320\n\321\"\2023M\325\230\203\365 \324
\3268\262\203\352 \327N
\3268\262\"c\210\324 \320\n\321\"\2023M\330\230\203;
\3078\262\316=\203\331O\332\"\312U\202
\3078\262\332=? P\333OP\"\211 Q\2032\334Q
@\"\210*\320\n\321\"\2023M\335\230\203\263
\3078\262\316=\203X\331O\332\"\312U\202b
\3078\262\332=? P\333OP\"\211 Q\203{\334Q
@\"\210\202\252
@\203\252\324 A
\3078\262\316=\203\234
\211@\262c\210\202\246\302\336\337O!@\"c\210\324 B*\320\n\321\"\2023M\336\230\203\333\324
\3078\262\316=\203\317\340O!c\210\324 @\320\n\321\"\2023M\341\230\203\375
@\203\365\324 A
@c\210\324 B\320\n\321\"\2023\342\343M\"\203Mc\210\320\n\321\"\2023\342\344\n\"\2033` R\320\n\317\224\317\225#c\210\345R`\346\347$\210)\320\n\321\224\")\202\207 \306 ST\203\256A\203\256B\203\256\3501\241\212Ab\210\351\352B\347#\205\234U\203d\353\202fVU?\205nV W X\212TAB\"\210+T\354\267\202\230\355d\356YD#\210\202\230\355d\356ZD#\210\347\211S)0\202\255 [\357\360[@[A#)\210J\315=\203\321S\203\321b\210\351\361\306\347#\203\316\362\363\306\211#\210\202\275db\210\\\203\371J\364>\203\371S\204\371\3651\364\347 ]\366d\\#)0\202\370\210\202\371\210)b\210\367\306w\312U\204 `|\210db\210` ^\367Tx\312U\204 `^|\210)db\210\370c\210\345`S`\346\347$\210J\314=\203@`E\371
_\"\210`FJ\314=\203Wdb\210`C\372
_\"\210`DJ\373>\203\231\355`S\374\375\376
\3218\262\377\302\201`
\3218\262\"\356_\257#\210\355`\201a
\211@\262\201b
\211A@\262F#\210\355`\201c J\201d J\201e G\201f
\201g \201h \201i 8\262\"\211;\204\315\211\211AA\262@\262\262\257#\210 \203\346\f\203\346\345 \f\201d \201j $\210
\203\373@\203\373\345
@\201d \201k $\210C\203 D\203 \345CD\201d \201l $\210\345CD\201c \201l $\210E\203?F\203?FEV\203?\345EFS\201d \201m $\210J\201n \267\202`\201o
`{\"\202a\201p
`{\"\202a\306.\207" [pos newsticker-desc-format format pos-date-start pos-date-end pos-stat-start nil 4 6 7 0 10 desc item feed 1 substring 2 "" "%c" point-marker "%d" 3 format-time-string "%l" newsticker--stat-num-items new newsticker--image-read newsticker--insert-image "%L" "%s" newsticker--cache-get-feed newsticker--buffer-statistics "%t" string-match "%." "^\\([^%]*\\)\\(.*\\)" put-text-property hard t (error) re-search-forward "</?[A-Za-z1-6]*\\|&#?[A-Za-z0-9]+;" -1 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (w3m-region 643 w3-region 655)) add-text-properties keymap message "Error: HTML rendering failed: %s, %s" "[ ]*\n[ ]*" replace-match " " (item desc) (error) fill-region "
\n" "\n" newsticker--insert-enclosure newsticker--print-extra-elements (feed item) mouse-face highlight nt-link help-echo pos-stat-end pos-text-start pos-text-end pos-extra-start pos-extra-end pos-enclosure-start pos-enclosure-end age preformatted-contents preformatted-title type newsticker-item-format newsticker-heading-format prefix newsticker-date-format feed-name-symbol disabled img p is-rendered-HTML newsticker-html-renderer newsticker-use-full-width fill-column w3-maximum-line-length w3m-fill-column w3m-minor-mode-map w3-mode-map error-data newsticker-justification use-hard-newlines end newsticker--url-keymap "mouse-2: visit item (%s)" nt-title nt-desc nt-type nt-face nt-age nt-guid assoc guid 8 date stat extra enclosure #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (desc 1096 item 1108)) newsticker--cache-set-preformatted-contents newsticker--cache-set-preformatted-title] 17 (#$ . 38076)])
#@103 Return a statistic string for the feed given by FEED-NAME-SYMBOL.
See `newsticker-statistics-format'.
(defalias 'newsticker--buffer-statistics #[(feed-name-symbol) "\303\304\305\306\307\310 !\"\304\311\306\307\310 \312\"\"\304\313\306\307\310 \314\"\"\304\315\306\307\310 \316\"\"\304\317\306\307\310 \320\"\"\n#####)\207" [case-fold-search feed-name-symbol newsticker-statistics-format nil replace-regexp-in-string "%a" format "%d" newsticker--stat-num-items "%i" immortal "%n" new "%o" old "%O" obsolete] 19 (#$ . 42371)])
#@89 Add face properties according to mark property.
Scans the buffer between START and END.
(defalias 'newsticker--buffer-set-faces #[(start end) "\212\306 \307\310$\210b\210\311\312\303\"\312\302\" \2030 \313`\303\"\314
\f \n$\210\312\f\303\"\f\313
\303\"\211\205[ \f X\205[ \f
V\205[ \314
\f \n$\210\312\f\303\"\312\f\302\"\f\2020 -\207" [start end nt-age nt-face pos2 pos1 put-text-property face newsticker-default-face 1 get-text-property next-single-property-change newsticker--set-face-properties] 6 (#$ . 42903)])
#@175 Add invisibility properties according to nt-type property.
Scans the buffer between START and END. Sets the `invisible'
property to (<nt-type>-<nt-age> <nt-type> <nt-age>).
(defalias 'newsticker--buffer-set-invisibility #[(start end) "\212\306 \307\310$\210b\210\311\312\303\"\312\302\" \203I \313`\303\"\306e
]\fS\307\314\315 \316=\2035 \317\2026 !\320\315\n!Q! \nE$\210\312\f\303\"\f\313
\303\"\211\205\214 \f X\205\214 \f
V\205\214 \306
S\fS\307\314\315 \316=\203p \317\202q !\320\315\n!Q! \nE$\210\312\f\303\"\312\f\302\"\f\202I -\207" [start end nt-age nt-type pos2 pos1 put-text-property invisible nil 1 get-text-property next-single-property-change intern symbol-name extra desc "-"] 9 (#$ . 43443)])
#@124 Set the face for the text between the positions POS1 and POS2.
The face is chosen according the values of NT-FACE and AGE.
(defalias 'newsticker--set-face-properties #[(pos1 pos2 nt-face age) "\305\267\2024 \306\2025 \307\267\202 \310\2025 \311\2025 \312\2025 \313\2025 \314\2025 \315\2025 \316\2025 \317\2025 \320\2025 \314\211\205B \321 \211\f]\302\n$)\207" [nt-face age face pos1 pos2 #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (feed 6 item 10 date 36 stat 40 extra 44 enclosure 48)) newsticker-feed-face #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (new 16 old 20 immortal 24 obsolete 28)) newsticker-new-item-face newsticker-old-item-face newsticker-immortal-item-face newsticker-obsolete-item-face nil newsticker-date-face newsticker-statistics-face newsticker-extra-face newsticker-enclosure-face put-text-property] 6 (#$ . 44177)])
#@57 Scroll buffer until current item is completely visible.
(defalias 'newsticker--buffer-make-item-completely-visible #[nil "\203 \212\304 )\206\f e\212\305 )\206 d \n}\210* \2036 \212\306 )\206' e\212\307 )\2060 d \n}\210*\310\311!\210\212\307 \210\312 \204G \313\314!\210)\312 ?\205Q \313\311!\207" [newsticker--auto-narrow-to-feed min max newsticker--auto-narrow-to-item newsticker--buffer-beginning-of-feed newsticker--buffer-end-of-feed newsticker--buffer-beginning-of-item newsticker--buffer-end-of-item sit-for 0 pos-visible-in-window-p recenter -1] 2 (#$ . 45109)])
#@42 Return feed symbol of headline at point.
(defalias 'newsticker--buffer-get-feed-title-at-point #[nil "\300\301\302`\303\"\206\n \304\"\207" [format "%s" get-text-property feed " "] 5 (#$ . 45693)])
#@42 Return feed symbol of headline at point.
(defalias 'newsticker--buffer-get-item-title-at-point #[nil "\300\301\302`\303\"\206\n \304\"\207" [format "%s" get-text-property nt-title " "] 5 (#$ . 45897)])
#@257 Search next occurrence of TYPES in current buffer.
TYPES is a list of symbols. If TYPES is found point is moved, if
not point is left unchanged. If optional parameter AGE is not
nil, the type AND the age must match. If BACKWARDS is t, search
backwards.
(defalias 'newsticker--buffer-goto #[(types &optional age backwards) "\212\214~\210\3052I ` \203 e=?\205$ \306\307\"\206$ e\202$ \310\307\"\211\205G \311\307\"\n>\203\n \203? \311\312\" =\203\n \313\305\"\210\202\n )0*\211 \203R \fb\210\f)\207" [tpos backwards types age pos found previous-single-property-change nt-type next-single-property-change get-text-property nt-age throw] 4 (#$ . 46106)])
#@97 Hide or show items of type MARK-AGE.
If ONOFF is nil the item is hidden, otherwise it is shown.
(defalias 'newsticker--buffer-hideshow #[(mark-age onoff) "\203 \302 !\207\303 !\207" [onoff mark-age remove-from-invisibility-spec add-to-invisibility-spec] 2 (#$ . 46776)])
#@72 Move point to the beginning of the item at point.
Return new position.
(defalias 'newsticker--buffer-beginning-of-item #[nil "o\203 `\207\302`\303\"\302`S\303\"\211\304>\203! =\204! `\202( \305\306\307\310#\210`*\207" [typebefore type get-text-property nt-type (item feed) newsticker--buffer-goto (item feed) nil t] 5 (#$ . 47055)])
#@72 Move point to the beginning of the feed at point.
Return new position.
(defalias 'newsticker--buffer-beginning-of-feed #[nil "o\203 `\207\302`\303\"\302`S\303\"\211\304=\203! =\204! `\202( \305\306\307\310#\210`*\207" [typebefore type get-text-property nt-type feed newsticker--buffer-goto (feed) nil t] 5 (#$ . 47399)])
#@100 Move point to the end of the item at point.
Take care: end of item is at the end of its last line!
(defalias 'newsticker--buffer-end-of-item #[nil "\300\301!\205 `\207" [newsticker--buffer-goto (item feed nil)] 2 (#$ . 47732)])
#@117 Move point to the end of the last item of the feed at point.
Take care: end of item is at the end of its last line!
(defalias 'newsticker--buffer-end-of-feed #[nil "\300\301!\205\n \302u\210`\207" [newsticker--buffer-goto (feed nil) -1] 2 (#$ . 47968)])
#@73 Call `browse-url' for the link of the item at which the EVENT occurred.
(defalias 'newsticker-mouse-browse-url #[(event) "\212\303\304\305!\211@\262!!\210\306\307\305!!\310\"\211\205. \311 !\210\212\307\305!!b\210\n\205- \312\313!)*\207" [event url newsticker-automatically-mark-visited-items-as-old switch-to-buffer window-buffer event-end get-text-property posn-point nt-link browse-url newsticker-mark-item-at-point-as-read t] 5 (#$ . 48228) "e"])
#@54 Call `browse-url' for the link of the item at point.
(defalias 'newsticker-browse-url #[nil "\302`\303\"\211\205 \304!\210 \205 \305\306!)\207" [url newsticker-automatically-mark-visited-items-as-old get-text-property nt-link browse-url newsticker-mark-item-at-point-as-read t] 4 (#$ . 48690) nil])
#@5 ...
(defvar newsticker-open-url-history '("wget" "xmms" "realplay") (#$ . 48998))
#@58 Ask for a program to open the link of the item at point.
(defalias 'newsticker-handle-url #[nil "\303`\304\"\211\205( \305\306\307\310#\211\205' \311\312 #\210\313 \211\211$\210\n\205' \314\315!))\207" [url prog newsticker-automatically-mark-visited-items-as-old get-text-property nt-link read-string "Open url with: " nil newsticker-open-url-history message "%s %s" start-process newsticker-mark-item-at-point-as-read t] 6 (#$ . 49086) nil])
#@33 Sort the newsticker cache data.
(defalias 'newsticker--cache-sort #[nil "\303\267\202 \304\202 \305\202 \306\202 \307\310\311\n\")\207" [newsticker-sort-method sort-fun newsticker--cache #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (sort-by-time 6 sort-by-title 10 sort-by-original-order 14)) newsticker--cache-item-compare-by-time newsticker--cache-item-compare-by-title newsticker--cache-item-compare-by-position nil mapc #[(feed-list) "\302A \"\241\207" [feed-list sort-fun sort] 4]] 3 (#$ . 49539)])
(provide 'newst-plainview)
Mini Shell