|
Server IP : 111.118.215.189 / Your IP : 3.136.20.207 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/net/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:33 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/newst-backend.el
;;; in Emacs version 24.3.1
;;; 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!\207" [require derived xml] 2)
#@102 List of timers for news retrieval.
This is an alist, each element consisting of (feed-name . timer).
(defvar newsticker--retrieval-timer-list nil (#$ . 626))
#@46 If non-nil download feed logos if available.
(defvar newsticker--download-logos nil (#$ . 790))
#@51 Function called at end of `newsticker--sentinel'.
(defvar newsticker--sentinel-callback nil (#$ . 892))
#@171 Check whether newsticker is running.
Return t if newsticker is running, nil otherwise. Newsticker is
considered to be running if the newsticker timer list is not empty.
(defalias 'newsticker-running-p #[nil "G\301V\207" [newsticker--retrieval-timer-list 0] 2 (#$ . 1003)])
(custom-declare-group 'newsticker nil "Aggregator for RSS and Atom feeds." :group 'applications)
#@90 Default URL list in raw form.
This list is fed into defcustom via `newsticker--splicer'.
(defconst newsticker--raw-url-list-defaults '(("CNET News.com" "http://export.cnet.com/export/feeds/news/rss/1,11176,,00.xml") ("Debian Security Advisories" "http://www.debian.org/security/dsa.en.rdf") ("Debian Security Advisories - Long format" "http://www.debian.org/security/dsa-long.en.rdf") ("Emacs Wiki" "http://www.emacswiki.org/cgi-bin/wiki.pl?action=rss" nil 3600) ("Freshmeat.net" "http://freshmeat.net/index.atom") ("Kuro5hin.org" "http://www.kuro5hin.org/backend.rdf") ("LWN (Linux Weekly News)" "http://lwn.net/headlines/rss") ("NY Times: Technology" "http://partners.userland.com/nytRss/technology.xml") ("NY Times" "http://partners.userland.com/nytRss/nytHomepage.xml") ("Quote of the day" "http://www.quotationspage.com/data/qotd.rss" "07:00" 86400) ("The Register" "http://www.theregister.co.uk/tonys/slashdot.rdf") ("slashdot" "http://slashdot.org/index.rss" nil 3600) ("Wired News" "http://www.wired.com/news_drop/netcenter/netcenter.rdf") ("Heise News (german)" "http://www.heise.de/newsticker/heise.rdf") ("Tagesschau (german)" "http://www.tagesschau.de/newsticker.rdf" nil 1800) ("Telepolis (german)" "http://www.heise.de/tp/news.rdf")) (#$ . 1381))
#@64 Convert ITEM for splicing into `newsticker-url-list-defaults'.
(defalias 'newsticker--splicer #[(item) "\303\304@\305@DFA \203! \306\n\305 @DC\" A\211\204 \n*\207" [item element result list :tag const append] 6 (#$ . 2648)])
#@146 Set retrieval related newsticker-variable SYMBOL value to VALUE.
Calls all actions which are necessary in order to make the new
value effective.
(defalias 'newsticker--set-customvar-retrieval #[(symbol value) "\306!\203
J \232\203 L\207\307\211\211 \310=\203\" \311\202l \312>\203l \307 \211 \203I @\211J\235\204@
BA\211\2041 *J\307 \211 \203k @\211 \235\204b
\nBA\211\204T *\f\203\206 L\210\313 \203\344 \314\315!\210\316 \210\317 \210\202\344 \n\307 \211 \203\253 @\314\320@\"\210\321@!\210A\211\204\220 * \307 \211 \203\326 @\314\322@\"\210\321@!\210\323!\210A\211\204\266 * \204\344 \203\344 \210 L+\207" [symbol value removed-feeds new-or-changed-feeds need-restart elt boundp nil newsticker-retrieval-interval t (newsticker-url-list-defaults newsticker-url-list) newsticker-running-p message "Restarting newsticker" newsticker-stop newsticker-start "Stopping feed `%s'" newsticker--stop-feed "Starting feed `%s'" newsticker--start-feed --dolist-tail-- feed newsticker--sentinel-callback] 4 (#$ . 2888)])
(byte-code "\301\302\303\304\305\306%\210\307\310\311\312\313\314\315\316\"B\317\320\305\302& \210\307\321\303\322\313\323\317\320\305\302& \210\307\324\325\326\313\327\305\302&\210\307\330\331\332\313\333\305\302&\210\307\334\335\336\313\337\305\302&\210\307\340\341\342\313\343\317\320\305\302& \210\307\344\345\346\313\347\305\302&\210\301\350\303\351\305\306%\210\307\352\353\354\313\355\305\350&\210\307\356\353\357\313\355\305\350&\210\307\360\353\361\313\355\305\350&\210\307\362\363\364\313\347\305\350&\210\307\365\303\366\313\367\305\350&\210\301\370\303\371\305\306%\210\307\372\303\373\374\375\313\376\305\370& \210\307\377\303\201@ \374\303\313\376\305\370& \210\307\201A \303\201B \313\376\374\201C \305\370& \210\301\201D \303\201E \305\306%\210\307\201F \201G \201H \313\333\305\201D &\210\201I \201F \201J \201K #\210\307\201J \201L \201M \313\201N \305\201D &\210\307\201O \303\201P \313\355\305\201D &\210\201Q \201R !\204F\201S \201T !\210\201U \201R \201V \"\210\201Q \201W !\204[\201U \201W \201X \"\210\201Q \201Y !\204p\201U \201Y \201Z \"\210\201Q \201[ !\204\205\201U \201[ \201\\ \"\210\303\207" [newsticker--raw-url-list-defaults custom-declare-group newsticker-retrieval nil "Settings for news retrieval." :group newsticker custom-declare-variable newsticker-url-list-defaults '(("Emacs Wiki" "http://www.emacswiki.org/cgi-bin/wiki.pl?action=rss" nil 3600)) "A customizable list of news feeds to select from.\nThese were mostly extracted from the Radio Community Server at\nhttp://subhonker6.userland.com/rcsPublic/rssHotlist.\n\nYou may add other entries in `newsticker-url-list'." :type set mapcar newsticker--splicer :set newsticker--set-customvar-retrieval newsticker-url-list "The news feeds which you like to watch.\n\nThis alist will be used in addition to selection made customizing\n`newsticker-url-list-defaults'.\n\nThis is an alist. Each element consists of two items: a LABEL and a URL,\noptionally followed by a START-TIME, INTERVAL specifier and WGET-ARGUMENTS.\n\nThe LABEL gives the name of the news feed. It can be an arbitrary string.\n\nThe URL gives the location of the news feed. It must point to a valid\nRSS or Atom file. The file is retrieved by calling wget, or whatever you\nspecify as `newsticker-wget-name'.\n\nURL may also be a function which returns news data. In this case\n`newsticker-retrieval-method' etc. are ignored for this feed.\n\nThe START-TIME can be either a string, or nil. If it is a string it\nspecifies a fixed time at which this feed shall be retrieved for the\nfirst time. (Examples: \"11:00pm\", \"23:00\".) If it is nil (or\nunspecified), this feed will be retrieved immediately after calling\n`newsticker-start'.\n\nThe INTERVAL specifies the time between retrievals for this feed. If it\nis nil (or unspecified) the default interval value as set in\n`newsticker-retrieval-interval' is used.\n\n(newsticker.el calls `run-at-time'. The newsticker-parameters START-TIME\nand INTERVAL correspond to the `run-at-time'-parameters TIME and REPEAT.)\n\nWGET-ARGUMENTS specifies arguments for wget (see `newsticker-wget-name')\nwhich apply for this feed only, overriding the value of\n`newsticker-wget-arguments'." (repeat (list :tag "News feed" (string :tag "Label") (choice :tag "URI" (string :tag "String") (function :tag "Function")) (choice :tag "Start" (const :tag "Default" nil) (string :tag "Fixed Time")) (choice :tag "Interval" (const :tag "Default" nil) (const :tag "Hourly" 3600) (const :tag "Daily" 86400) (const :tag "Weekly" 604800) (integer :tag "Interval")) (choice :tag "Wget Arguments" (const :tag "Default arguments" nil) (repeat :tag "Special arguments" string)))) newsticker-retrieval-method 'intern "Method for retrieving news from the web, either `intern' or `extern'.\nDefault value `intern' uses Emacs' built-in asynchronous download\ncapabilities ('url-retrieve'). If set to `extern' the external\nprogram wget is used, see `newsticker-wget-name'." (choice :tag "Method" (const :tag "Intern" intern) (const :tag "Extern" extern)) newsticker-wget-name "wget" "Name of the program which is called to retrieve news from the web.\nThe canonical choice is wget but you may take any other program which is\nable to return the contents of a news feed file on stdout." string newsticker-wget-arguments '("-q" "-O" "-") "Arguments which are passed to wget.\nThere is probably no reason to change the default settings, unless you\nare living behind a firewall." (repeat (string :tag "Argument")) newsticker-retrieval-interval 3600 "Time interval for retrieving new news items (seconds).\nIf this value is not positive (i.e. less than or equal to 0)\nitems are retrieved only once!\nPlease note that some feeds, e.g. Slashdot, will ban you if you\nmake it less than 1800 seconds (30 minutes)!" (choice :tag "Interval" (const :tag "No automatic retrieval" 0) (const :tag "Hourly" 3600) (const :tag "Daily" 86400) (const :tag "Weekly" 604800) (integer :tag "Interval")) newsticker-desc-comp-max 100 "Relevant length of headline descriptions.\nThis value gives the maximum number of characters which will be\ntaken into account when newsticker compares two headline\ndescriptions." integer newsticker-headline-processing "Settings for the automatic processing of headlines." newsticker-automatically-mark-items-as-old t "Decides whether to automatically mark items as old.\nIf t a new item is considered as new only after its first retrieval. As\nsoon as it is retrieved a second time, it becomes old. If not t all\nitems stay new until you mark them as old. This is done in the\n*newsticker* buffer." boolean newsticker-automatically-mark-visited-items-as-old "Decides whether to automatically mark visited items as old.\nIf t an item is marked as old as soon as the associated link is\nvisited, i.e. after pressing RET or mouse2 on the item's\nheadline." newsticker-keep-obsolete-items "Decides whether to keep unread items which have been removed from feed.\nIf t a new item, which has been removed from the feed, is kept in\nthe cache until it is marked as read." newsticker-obsolete-item-max-age (* 60 60 24) "Maximal age of obsolete items, in seconds.\nObsolete items which are older than this value will be silently\ndeleted at the next retrieval." newsticker-auto-mark-filter-list "A list of filters for automatically marking headlines.\n\nThis is an alist of the form (FEED-NAME PATTERN-LIST). I.e. each\nelement consists of a FEED-NAME a PATTERN-LIST. Each element of\nthe pattern-list has the form (AGE TITLE-OR-DESCRIPTION REGEXP).\nAGE must be one of the symbols 'old or 'immortal.\nTITLE-OR-DESCRIPTION must be on of the symbols 'title,\n'description, or 'all. REGEXP is a regular expression, i.e. a\nstring.\n\nThis filter is checked after a new headline has been retrieved.\nIf FEED-NAME matches the name of the corresponding news feed, the\npattern-list is checked: The new headline will be marked as AGE\nif REGEXP matches the headline's TITLE-OR-DESCRIPTION.\n\nIf, for example, `newsticker-auto-mark-filter-list' looks like\n ((slashdot ('old 'title \"^Forget me!$\") ('immortal 'title \"Read me\")\n ('immortal 'all \"important\"))))\n\nthen all articles from slashdot are marked as old if they have\nthe title \"Forget me!\". All articles with a title containing\nthe string \"Read me\" are marked as immortal. All articles which\ncontain the string \"important\" in their title or their\ndescription are marked as immortal." (repeat (list :tag "Auto mark filter" (string :tag "Feed name") (repeat (list :tag "Filter element" (choice :tag "Auto-assigned age" (const :tag "Old" old) (const :tag "Immortal" immortal)) (choice :tag "Title/Description" (const :tag "Title" title) (const :tag "Description" description) (const :tag "All" all)) (string :tag "Regexp"))))) newsticker-hooks "Settings for newsticker hooks." newsticker-start-hook "Hook run when starting newsticker.\nThis hook is run at the very end of `newsticker-start'." :options (newsticker-start-ticker) hook newsticker-stop-hook "Hook run when stopping newsticker.\nThis hook is run at the very end of `newsticker-stop'." newsticker-new-item-functions "List of functions run after a new headline has been retrieved.\nEach function is called with the following three arguments:\nFEED the name of the corresponding news feed,\nTITLE the title of the headline,\nDESC the decoded description of the headline.\n\nSee `newsticker-download-images', and\n`newsticker-download-enclosures' for sample functions.\n\nPlease note that these functions are called only once for a\nheadline after it has been retrieved for the first time." (newsticker-download-images newsticker-download-enclosures) newsticker-miscellaneous "Miscellaneous newsticker settings." newsticker-cache-filename "~/.newsticker-cache" "Name of the newsticker cache file." make-obsolete-variable newsticker-dir "23.1" (locate-user-emacs-file "newsticker/" ".newsticker/") "Directory where newsticker saves data." directory newsticker-debug "Enables some features needed for debugging newsticker.el.\n\nIf set to t newsticker.el will print lots of debugging messages, and the\nbuffers *newsticker-wget-<feed>* will not be closed." fboundp time-add require time-date defalias #[(t1 t2) "\302\303!\303 !\\!\207" [t1 t2 seconds-to-time time-to-seconds] 4] match-string-no-properties match-string add-to-invisibility-spec #[(arg) "\302=\203 \302C B\211\207" [buffer-invisibility-spec arg t] 2 "Add elements to `buffer-invisibility-spec'.\nSee documentation for `buffer-invisibility-spec' for the kind of elements\nthat can be added."] remove-from-invisibility-spec #[(arg) ":\205 \302 \"\211\207" [buffer-invisibility-spec arg delete] 3 "Remove elements from `buffer-invisibility-spec'."]] 10)
#@27 List of newsticker items.
(defvar newsticker--item-list nil (#$ . 13745))
#@46 Actual position in list of newsticker items.
(defvar newsticker--item-position 0 (#$ . 13825))
#@45 Last message that the newsticker displayed.
(defvar newsticker--prev-message "There was no previous message yet!" (#$ . 13926))
#@55 The text which is scrolled smoothly in the echo area.
(defvar newsticker--scrollable-text "" (#$ . 14060))
#@52 Tells whether the newsticker buffer is up to date.
(defvar newsticker--buffer-uptodate-p nil (#$ . 14173))
#@44 The time at which the latest news arrived.
(defvar newsticker--latest-update-time (current-time) (#$ . 14286))
#@46 List of PIDs of active newsticker processes.
(defvar newsticker--process-ids nil (#$ . 14403))
#@925 Cached newsticker data.
This is a list of the form
((label1
(title description link time age index preformatted-contents
preformatted-title extra-elements)
...)
(label2
(title description link time age index preformatted-contents
preformatted-title extra-elements)
...)
...)
where LABEL is a symbol. TITLE, DESCRIPTION, and LINK are
strings. TIME is a time value as returned by `current-time'.
AGE is a symbol: 'new, 'old, 'immortal, and 'obsolete denote
ordinary news items, whereas 'feed denotes an item which is not a
headline but describes the feed itself. INDEX denotes the
original position of the item -- used for restoring the original
order. PREFORMATTED-CONTENTS and PREFORMATTED-TITLE hold the
formatted contents of the item's description and title. This
speeds things up if HTML rendering is used, which is rather
slow. EXTRA-ELEMENTS is an alist containing additional elements.
(defvar newsticker--cache nil (#$ . 14505))
#@108 Automatically narrow to current news feed.
If non-nil only the items of the current news feed are visible.
(defvar newsticker--auto-narrow-to-feed nil (#$ . 15480))
#@93 Automatically narrow to current news item.
If non-nil only the current headline is visible.
(defvar newsticker--auto-narrow-to-item nil (#$ . 15651))
#@73 Title of error headline which will be inserted if news retrieval fails.
(defconst newsticker--error-headline "[COULD NOT DOWNLOAD HEADLINES!]" (#$ . 15807))
#@23 Return title of ITEM.
(defalias 'newsticker--title #[(item) "@\207" [item] 1 (#$ . 15970)])
(put 'newsticker--title 'byte-optimizer 'byte-compile-inline-expand)
#@29 Return description of ITEM.
(defalias 'newsticker--desc #[(item) "A@\207" [item] 1 (#$ . 16138)])
(put 'newsticker--desc 'byte-optimizer 'byte-compile-inline-expand)
#@22 Return link of ITEM.
(defalias 'newsticker--link #[(item) "\3018\207" [item 2] 2 (#$ . 16311)])
(put 'newsticker--link 'byte-optimizer 'byte-compile-inline-expand)
#@22 Return time of ITEM.
(defalias 'newsticker--time #[(item) "\3018\207" [item 3] 2 (#$ . 16482)])
(put 'newsticker--time 'byte-optimizer 'byte-compile-inline-expand)
#@21 Return age of ITEM.
(defalias 'newsticker--age #[(item) "\3018\207" [item 4] 2 (#$ . 16653)])
(put 'newsticker--age 'byte-optimizer 'byte-compile-inline-expand)
#@32 Return position/index of ITEM.
(defalias 'newsticker--pos #[(item) "\3018\207" [item 5] 2 (#$ . 16821)])
(put 'newsticker--pos 'byte-optimizer 'byte-compile-inline-expand)
#@36 Return pre-formatted text of ITEM.
(defalias 'newsticker--preformatted-contents #[(item) "\3018\207" [item 6] 2 (#$ . 17000)])
(put 'newsticker--preformatted-contents 'byte-optimizer 'byte-compile-inline-expand)
#@37 Return pre-formatted title of ITEM.
(defalias 'newsticker--preformatted-title #[(item) "\3018\207" [item 7] 2 (#$ . 17219)])
(put 'newsticker--preformatted-title 'byte-optimizer 'byte-compile-inline-expand)
#@34 Return extra attributes of ITEM.
(defalias 'newsticker--extra #[(item) "\3018\207" [item 8] 2 (#$ . 17433)])
(put 'newsticker--extra 'byte-optimizer 'byte-compile-inline-expand)
#@39 Return string representation of GUID.
(defalias 'newsticker--guid-to-string #[(guid) ";\203 \207\211\211AA*@\207" [guid node x] 3 (#$ . 17618)])
(put 'newsticker--guid-to-string 'byte-optimizer 'byte-compile-inline-expand)
#@22 Return guid of ITEM.
(defalias 'newsticker--guid #[(item) "\304\301\3058)\"\211;\203 \202 \211\211AA*@)\207" [item guid node x assoc 8] 5 (#$ . 17853)])
(put 'newsticker--guid 'byte-optimizer 'byte-compile-inline-expand)
#@68 Return enclosure element of ITEM in the form (...FIXME...) or nil.
(defalias 'newsticker--enclosure #[(item) "\303\301\3048)\"\211\205 \211A@))\207" [item enclosure node assoc 8] 5 (#$ . 18090)])
(put 'newsticker--enclosure 'byte-optimizer 'byte-compile-inline-expand)
#@27 Return real name of FEED.
(defalias 'newsticker--real-feed-name #[(feed) "\300\301\215\207" [name (byte-code "\301\302\303!A\"\210\304!\207" [feed mapc #[(item) "\3018)\302=\205 \303\304\211@)\"\207" [item 4 feed throw name] 4] newsticker--cache-get-feed symbol-name] 4)] 2 (#$ . 18372)])
#@208 Start retrieval timer for FEED.
If timer is running already a warning message is printed unless
DO-NOT-COMPLAIN-IF-RUNNING is not nil. Add the started
name/timer pair to `newsticker--retrieval-timer-list'.
(defalias 'newsticker--start-feed #[(feed &optional do-not-complain-if-running) "@\3068\3078\206 \310@
\"\211 \203& \206Y \311\312 \"\202Y \313\314 \n\f$\210\f\315X\2035 \316\n\203D \n\247\203F \n\315U\203F \317\320\n\f\321 $\f\205Y \322\305 B\",\207" [feed feed-name start-time newsticker-retrieval-interval interval newsticker--retrieval-timer-list 2 3 assoc message "Timer for %s is running already!" newsticker--debug-msg "Starting timer for %s: %s, %d" 0 nil 1 run-at-time newsticker-get-news add-to-list timer do-not-complain-if-running] 6 (#$ . 18676)])
#@266 Start the newsticker.
Start the timers for display and retrieval. If the newsticker, i.e. the
timers, are running already a warning message is printed unless
DO-NOT-COMPLAIN-IF-RUNNING is not nil.
Run `newsticker-start-hook' if newsticker was not running already.
(defalias 'newsticker-start #[(&optional do-not-complain-if-running) "\305 \211\204\n \306 \210\307 \n\"\310\211 \203# \f@\311 !\210\fA\211\204 *?\2050 \312\313!\210\314\315!)\207" [running newsticker-url-list-defaults newsticker-url-list feed --dolist-tail-- newsticker-running-p newsticker--cache-read append nil newsticker--start-feed run-hooks newsticker-start-hook message "Newsticker started!"] 4 (#$ . 19469) nil])
#@112 Stop retrieval for feed FEED-NAME.
Delete the stopped name/timer pair from `newsticker--retrieval-timer-list'.
(defalias 'newsticker--stop-feed #[(feed-name) "\303 \"\211\205 \304\nA!\210\305\n \"\211)\207" [feed-name newsticker--retrieval-timer-list name-and-timer assoc cancel-timer delete] 4 (#$ . 20169)])
#@153 Stop the newsticker and the newsticker-ticker.
Cancel the timers for display and retrieval. Run `newsticker-stop-hook'
if newsticker has been running.
(defalias 'newsticker-stop #[nil "\301 \210\302\303!\203\f \303 \210\304 \205 \305\306\"\210\307\310\311!\210\312\313!\207" [newsticker--retrieval-timer-list newsticker--cache-save fboundp newsticker-stop-ticker newsticker-running-p mapc #[(name-and-timer) "\301@!\207" [name-and-timer newsticker--stop-feed] 2] nil run-hooks newsticker-stop-hook message "Newsticker stopped!"] 3 (#$ . 20490) nil])
#@106 Launch retrieval of news from all configured newsticker sites.
This does NOT start the retrieval timers.
(defalias 'newsticker-get-all-news #[nil "\302\303\304 \"\"\207" [newsticker-url-list-defaults newsticker-url-list mapc #[(item) "\301@!\207" [item newsticker-get-news] 2] append] 5 (#$ . 21052) nil])
#@17 Save FEED ITEM.
(defalias 'newsticker-save-item #[(feed item) "\304\305\306\307\310\311 \211@)#\312R\"\313\314!r q\210\315\216 \211A@)c\210\316\n\317\",\207" [feed item filename #1=#:temp-buffer read-string "Filename: " ":_" replace-regexp-in-string " " "_" ".html" generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) write-file t] 9 (#$ . 21366) nil])
#@97 Add given URL under given NAME to `newsticker-url-list'.
If URL is nil it is searched at point.
(defalias 'newsticker-add-url #[(url name) "\302\303 \304\211\211\257\305#\210\306\303!\207" [name url add-to-list newsticker-url-list nil t customize-variable] 7 (#$ . 21788) (list (read-string "URL: " (save-excursion (end-of-line) (and (re-search-backward "http://" (if (> (point) (+ (point-min) 100)) (- (point) 100) (point-min)) t) (re-search-forward "http://[-a-zA-Z0-9&/_.]*" (if (< (point) (- (point-max) 200)) (+ (point) 200) (point-max)) t) (buffer-substring-no-properties (match-beginning 0) (match-end 0))))) (read-string "Name: "))])
#@42 Open the newsticker customization group.
(defalias 'newsticker-customize #[nil "\300 \210\301\302!\207" [delete-other-windows customize-group "newsticker"] 2 (#$ . 22438) nil])
#@81 Get news for the site FEED-NAME by calling FUNCTION.
See `newsticker-get-news'.
(defalias 'newsticker--get-news-by-funcall #[(feed-name function) "\303\304Qr\305 !q\210\306 \210\307\n!!c\210\310\311\312\np%*\207" [feed-name buffername function " *newsticker-funcall-" "*" get-buffer-create erase-buffer string-to-multibyte newsticker--sentinel-work nil t] 6 (#$ . 22621)])
#@99 Get news for the site FEED-NAME from address URL using `url-retrieve'.
See `newsticker-get-news'.
(defalias 'newsticker--get-news-by-url #[(feed-name url) "\301\302\303\304\217\210)\305 \207" [coding-system-for-read no-conversion error-data (byte-code "\302\303 C#\207" [url feed-name url-retrieve newsticker--get-news-by-url-callback] 4) ((error (message "Error retrieving news from %s: %s" feed-name error-data))) force-mode-line-update] 3 (#$ . 23004)])
#@187 Callback function for `newsticker--get-news-by-url'.
STATUS is the return status as delivered by `url-retrieve', and
FEED-NAME is the name of the feed that the news were retrieved
from.
(defalias 'newsticker--get-news-by-url-callback #[(status feed-name) "\306\307\310Q!\311\312 !\211q\210\313 \210 c\210eb\210\314\315!\210e`|\210\316\317\320\321p%\210 \205L @ A \211 \322=\206K
\323=\205K \324\325\326\327\330 \"\f@\fA%**\207" [feed-name result buf status status-details status-type get-buffer-create " *newsticker-url-" "*" string-to-multibyte buffer-string erase-buffer search-forward "\n\n" newsticker--sentinel-work nil t "url-retrieve" :redirect :error message "%s: Error while retrieving news from %s: %s: \"%s\"" format-time-string "%A, %H:%M" current-time] 7 (#$ . 23470)])
#@137 Get news for the site FEED-NAME from address URL using wget.
WGET-ARGUMENTS is a list of arguments for wget.
See `newsticker-get-news'.
(defalias 'newsticker--get-news-by-wget #[(feed-name url wget-arguments) "\306\307Qr\310 !q\210\311 \210\312!\203 \313\314\"\210\315\n C\" \316\317
\f% \320\321\211#\210\322\323\"\210\324!B\325 ,\207" [feed-name buffername wget-arguments url args newsticker-wget-name " *newsticker-wget-" "*" get-buffer-create erase-buffer get-process error "Another wget-process is running for %s" append apply start-process set-process-coding-system no-conversion set-process-sentinel newsticker--sentinel process-id force-mode-line-update proc newsticker--process-ids] 6 (#$ . 24267)])
#@206 Get news from the site FEED-NAME and load feed logo.
FEED-NAME must be a string which occurs as the label (i.e. the first element)
in an element of `newsticker-url-list' or `newsticker-url-list-defaults'.
(defalias 'newsticker-get-news #[(feed-name) "\306\307\310\311\312 \"#\210\313 \"\206 \313\n\"\206 \314\315\"\211\211 A@) AAAA@\206/ \316
!\203> \317
\"\202R \320=\203L \321
\"\202R \322
#+\207" [feed-name newsticker-url-list newsticker-url-list-defaults item x url newsticker--debug-msg "%s: Getting news for %s" format-time-string "%A, %H:%M" current-time assoc error "Cannot get news for %s: Check newsticker-url-list" functionp newsticker--get-news-by-funcall intern newsticker--get-news-by-url newsticker--get-news-by-wget newsticker-wget-arguments wget-arguments newsticker-retrieval-method] 6 (#$ . 25001)])
#@178 Sentinel for extracting news titles from an RDF buffer.
Argument PROCESS is the process which has just changed its state.
Argument EVENT tells what has happened to the process.
(defalias 'newsticker--sentinel #[(process event) "\306!\307!\310!\311!\312! \313
\314=\205 \f\315U \n %-\207" [process buffer command name exit-status p-status process-status process-exit-status process-name process-command process-buffer newsticker--sentinel-work exit 0 event] 6 (#$ . 25847)])
#@370 Actually do the sentinel work.
Argument EVENT tells what has happened to the retrieval process.
Argument STATUS-OK is the final status of the retrieval process,
non-nil meaning retrieval was successful.
Argument NAME is the name of the retrieval process.
Argument COMMAND is the command of the retrieval process.
Argument BUFFER is the buffer of the retrieval process.
(defalias 'newsticker--sentinel-work #[(event status-ok name command buffer) "\305 \306!\307\310\311\215\210+\f\205 \f \207" [name something-was-added name-symbol time newsticker--sentinel-callback current-time intern nil oops (byte-code "\204, \306 \n \307\310\311\312\313 \"\f
@%\314\313 \315\316\317& \320\321\311\312\313 \"\f#\210\322\323\317\"\210\324 ArBq\210eb\210\325\326\317\327#\203H \330\331\317\327#\210\2027 eb\210\325\332\317\327#\203Y \330\333\317\327#\210eb\210\334\335\317\327#\203m \330\336\317\327#\210\202\\ eb\210\325\337\317\327#\203~ \330\314\317\327#\210eb\210\334\340\317\327#\203\242 \316\224 C\334\341\317\327#\204\231 \342\343!\210C`|\210)\202\201 eb\210\325\344\317\327#\203\264 \330\345!\210\202\245 eb\210\325\346\317\327#\203\306 \330\347!\210\202\267 \350\317!\210eb\210\325\351\317\327#\203\340 \352\353\354!\227!A\202\346 \317\355\356\217AA\203\362 \357edA#\210\360\361\362\217)\211 D@ E\363E\364\"@ F\317 G\365 \n\315\366$\210\365 \n\367\370$\210\365 \n\371\370$\210\372\373\374\217\210\365 \n\370\375$\210\376 \n\375#\210H\204=\376 \n\366#\210\202[\377 \n\201O \201P I%\376 \n\201P #\210\365 \n\366\201O $\210\201Q \210JG\316U\203w\201R \201S !\203w\201S \210\313 KL\203\232\201T \201U \n!!\210\201R \201V !\203\232\201V \317!\210M\204\246\201W B!\210G\203\270N\203\270\201X \fG\"\210-\317\207" [status-ok newsticker--cache name-symbol newsticker--error-headline name event newsticker--cache-add format "%s: Newsticker could not retrieve news from %s.\nReturn status: `%s'\nCommand was `%s'" format-time-string "%A, %H:%M" current-time #1="" new 0 nil message "%s: Error while retrieving news from %s" throw oops utf-8 re-search-forward ">[
\n]+<" t replace-match "><" "<!DOCTYPE[ \n]+rdf:RDF" "<!DOCTYPE rdfColonRDF" search-forward "
\n" "\n" "<!DOCTYPE[ \n]+rss[ \n]*>" "<!--" "-->" error "Can't find end of comment" "<description>\\(<img.*?\\)</description>" "<description><![CDATA[ \\1 ]]></description>" "\\(<[^>]*\\)=\"\"" "\\1=\" \"" set-buffer-modified-p "encoding=\"\\([^\"]+\\)\"" intern match-string 1 (check-coding-system coding-system) ((coding-system-error (message "newsticker.el: ignoring coding system %s for %s" coding-system name) nil)) decode-coding-region errordata (byte-code "\300ed\"\207" [xml-parse-region] 3) ((error (byte-code "\302\303\304 \211A@)#\210\305\306\307\"\207" [errordata x message "Could not parse %s: %s" buffer-name throw oops nil] 5))) xml-get-children channel newsticker--cache-replace-age obsolete-new old obsolete-old feed error-data (byte-code "\211@)\306=\203( \307\310 \n\"\206 \311*\312\230\203( \313!\314\f
#\202\351 \211@)\306=\203P \307\310 \n\"\206> \311*\315\230\203P \316!\317\f
#\202\351 \211@)\320=\203f \321!\322\f
#\202\351 \211@)\306=\203\216 \307\310 \n\"\206| \311*\323\230\203\216 \324!\325\f
#\202\351 \211@)\326=\203\266 \327\310 \n\"\206\244 \311*\330\230\203\266 \331!\332\f
#\202\351 \211@)\326=\203\336 \327\310 \n\"\206\314 \311*\333\230\203\336 \334!\335\f
#\202\351 \336\337\211@)\f#\210\340\203\357 \341\"\340\207" [topnode node attribute imageurl name time rss version xml-get-attribute-or-nil #1# "0.91" newsticker--get-logo-url-rss-0\.91 newsticker--parse-rss-0\.91 "0.92" newsticker--get-logo-url-rss-0\.92 newsticker--parse-rss-0\.92 rdf:RDF newsticker--get-logo-url-rss-1\.0 newsticker--parse-rss-1\.0 "2.0" newsticker--get-logo-url-rss-2\.0 newsticker--parse-rss-2\.0 feed xmlns "http://purl.org/atom/ns#" newsticker--get-logo-url-atom-0\.3 newsticker--parse-atom-0\.3 "http://www.w3.org/2005/Atom" newsticker--get-logo-url-atom-1\.0 newsticker--parse-atom-1\.0 newsticker--debug-msg "Feed type unknown: %s: %s" nil t something-was-added] 5) ((error (message "sentinelerror in %s: %s" name error-data))) deleteme newsticker--cache-remove newsticker--cache-mark-expired command coding-system buffer start node-list topnode channelnode imageurl newsticker-keep-obsolete-items newsticker-obsolete-item-max-age newsticker--process-ids newsticker--latest-update-time something-was-added newsticker-debug newsticker--download-logos obsolete obsolete-expired newsticker--update-process-ids fboundp newsticker--ticker-text-setup newsticker--cache-save-feed newsticker--cache-get-feed newsticker--buffer-set-uptodate kill-buffer newsticker--image-get] 11)] 3 (#$ . 26340)])
#@45 Return logo URL from atom 1.0 data in NODE.
(defalias 'newsticker--get-logo-url-atom-1\.0 #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children logo] 4 (#$ . 31091)])
#@45 Return logo URL from atom 0.3 data in NODE.
(defalias 'newsticker--get-logo-url-atom-0\.3 #[(node) "\302\211\303\"@\304\"@\211\211AA*@\207" [node x xml-get-children image url] 5 (#$ . 31277)])
#@44 Return logo URL from RSS 2.0 data in NODE.
(defalias 'newsticker--get-logo-url-rss-2\.0 #[(node) "\302\211\211\303\"@\304\"@\305\"@\211\211AA*@\207" [node x xml-get-children channel image url] 6 (#$ . 31479)])
#@44 Return logo URL from RSS 1.0 data in NODE.
(defalias 'newsticker--get-logo-url-rss-1\.0 #[(node) "\302\211\303\"@\304\"@\211\211AA*@\207" [node x xml-get-children image url] 5 (#$ . 31698)])
#@45 Return logo URL from RSS 0.92 data in NODE.
(defalias 'newsticker--get-logo-url-rss-0\.92 #[(node) "\302\211\303\"@\304\"@\211\211AA*@\207" [node x xml-get-children image url] 5 (#$ . 31898)])
#@45 Return logo URL from RSS 0.91 data in NODE.
(defalias 'newsticker--get-logo-url-rss-0\.91 #[(node) "\302\211\303\"@\304\"@\211\211AA*@\207" [node x xml-get-children image url] 5 (#$ . 32100)])
#@129 Parse Atom 0.3 data.
Return value as well as arguments NAME, TIME, and TOPNODE are the
same as in `newsticker--parse-atom-1.0'.
(defalias 'newsticker--parse-atom-0\.3 #[(name time topnode) "\306\307\"\210\310\211\311 \312\f\313\"@\211 \211 AA*@\312\f\314\"@\211 \211 AA*@\312\f\315\"@\316 \317
\"\206: \320*\f\211 \211 AA*&\321 \312\f\322\"\323\324\325\326\327\330& \211\206\\ \n*\207" [name new-item new-feed time topnode node newsticker--debug-msg "Parsing Atom 0.3 feed %s" nil newsticker--parse-generic-feed xml-get-children title content link href xml-get-attribute-or-nil #1="" newsticker--parse-generic-items entry #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children title] 4] #[(node) "\302\303\"@\211\211AA*@\206 \302\304\"@\211\211AA*@\207" [node x xml-get-children content summary] 4] #[(node) "\302\303\"@\304\305 \"\206 \306*\207" [node attribute xml-get-children link href xml-get-attribute-or-nil #1#] 3] #[(node) "\302\303\304\"@\211\211AA*@!\207" [node x newsticker--decode-rfc822-date xml-get-children modified] 5] #[(node) "\303\302\211\211AA*\"\211;\203 \n\202 \n\211\211AA*@)\207" [node x guid assoc] 5] #[(node) "\211\211AA*\207" [node x] 3] x attribute] 11 (#$ . 32303)])
#@307 Parse Atom 1.0 data.
Argument NAME gives the name of a news feed. TIME gives the
system time at which the data have been retrieved. TOPNODE
contains the feed data as returned by the xml parser.
For the Atom 1.0 specification see
URL `http://www.atompub.org/2005/08/17/draft-ietf-atompub-format-11.html'
(defalias 'newsticker--parse-atom-1\.0 #[(name time topnode) "\306\307\"\210\310\211\311 \312\f\313\"@\211 \211 AA*@\312\f\314\"@\211 \211 AA*@\315\f\211 \211 AA*&\316 \312\f\317\"\320\321\322\323\324\325& \211\206J \n*\207" [name new-item new-feed time topnode node newsticker--debug-msg "Parsing Atom 1.0 feed %s" nil newsticker--parse-generic-feed xml-get-children title subtitle #[(node) "\302\303\"@\304\305 \"\206 \306*\207" [node attribute xml-get-children link href xml-get-attribute-or-nil #1=""] 3] newsticker--parse-generic-items entry #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children title] 4] #[(node) "\302\303\"@\211\211AA*@\206 \302\304\"@\211\211AA*@\207" [node x xml-get-children content summary] 4] #[(node) "\302\303\"@\304\305 \"\206 \306*\207" [node attribute xml-get-children link href xml-get-attribute-or-nil #1#] 3] #[(node) "\302\303\304\"@\211\211AA*@\206 \303\305\"@\211\211AA*@!\207" [node x newsticker--decode-iso8601-date xml-get-children updated published] 5] #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children id] 4] #[(node) "\211\211AA*\207" [node x] 3] x] 11 (#$ . 33561)])
#@274 Parse RSS 0.91 data.
Return value as well as arguments NAME, TIME, and TOPNODE are the
same as in `newsticker--parse-atom-1.0'.
For the RSS 0.91 specification see URL `http://backend.userland.com/rss091'
or URL `http://my.netscape.com/publish/formats/rss-spec-0.91.html'.
(defalias 'newsticker--parse-rss-0\.91 #[(name time topnode) "\306\307\"\210\310 \311\"@\312\310\n\313\"@\211\211 AA*@! \314\211 \315\310\n\316\"@\211\211 AA*@\310\n\317\"@\211\211 AA*@\310\n\320\"@\211\211 AA*@\n\211\211 AA*&\321\310\n\322\"\323\324\325\326\327\330& \211\206p ,\207" [name topnode channelnode node x pub-date newsticker--debug-msg "Parsing RSS 0.91 feed %s" xml-get-children channel newsticker--decode-rfc822-date pubDate nil newsticker--parse-generic-feed title description link newsticker--parse-generic-items item #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children title] 4] #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children description] 4] #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children link] 4] #[(node) "\302\303\304\"@\211\211AA*@!\207" [node x newsticker--decode-rfc822-date xml-get-children pubDate] 5] #[(node) "\300\207" [nil] 1] #[(node) "\211\211AA*\207" [node x] 3] is-new-feed has-new-items time] 11 (#$ . 35057)])
#@207 Parse RSS 0.92 data.
Return value as well as arguments NAME, TIME, and TOPNODE are the
same as in `newsticker--parse-atom-1.0'.
For the RSS 0.92 specification see URL `http://backend.userland.com/rss092'.
(defalias 'newsticker--parse-rss-0\.92 #[(name time topnode) "\306\307\"\210\310 \311\"@\312\310\n\313\"@\211\211 AA*@! \314\211 \315\310\n\316\"@\211\211 AA*@\310\n\317\"@\211\211 AA*@\310\n\320\"@\211\211 AA*@\n\211\211 AA*&\321\310\n\322\"\323\324\325\326\327\330& \211\206p ,\207" [name topnode channelnode node x pub-date newsticker--debug-msg "Parsing RSS 0.92 feed %s" xml-get-children channel newsticker--decode-rfc822-date pubDate nil newsticker--parse-generic-feed title description link newsticker--parse-generic-items item #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children title] 4] #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children description] 4] #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children link] 4] #[(node) "\302\303\304\"@\211\211AA*@!\207" [node x newsticker--decode-rfc822-date xml-get-children pubDate] 5] #[(node) "\300\207" [nil] 1] #[(node) "\211\211AA*\207" [node x] 3] is-new-feed has-new-items time] 11 (#$ . 36367)])
#@207 Parse RSS 1.0 data.
Return value as well as arguments NAME, TIME, and TOPNODE are the
same as in `newsticker--parse-atom-1.0'.
For the RSS 1.0 specification see URL `http://web.resource.org/rss/1.0/spec'.
(defalias 'newsticker--parse-rss-1\.0 #[(name time topnode) "\306\307\"\210\310 \311\"@\312\211 \313
\310\n\314\"@\211 \211 AA*@\310\n\315\"@\211 \211 AA*@\310\n\316\"@\211 \211 AA*@\n\211 \211 AA*&\317
\310 \320\"\321\322\323\324\325\326& \211\206a +\207" [name topnode channelnode is-new-feed has-new-items time newsticker--debug-msg "Parsing RSS 1.0 feed %s" xml-get-children channel nil newsticker--parse-generic-feed title description link newsticker--parse-generic-items item #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children title] 4] #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children description] 4] #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children link] 4] #[(node) "\302\303\304\"@\211\211AA*@!\207" [node x newsticker--decode-iso8601-date xml-get-children dc:date] 5] #[(node) "\300\207" [nil] 1] #[(node) "\211\211AA*\207" [node x] 3] node x] 11 (#$ . 37610)])
#@208 Parse RSS 2.0 data.
Return value as well as arguments NAME, TIME, and TOPNODE are the
same as in `newsticker--parse-atom-1.0'.
For the RSS 2.0 specification see URL `http://blogs.law.harvard.edu/tech/rss'.
(defalias 'newsticker--parse-rss-2\.0 #[(name time topnode) "\306\307\"\210\310 \311\"@\312\211 \313
\310\n\314\"@\211 \211 AA*@\310\n\315\"@\211 \211 AA*@\310\n\316\"@\211 \211 AA*@\n\211 \211 AA*&\317
\310\n\320\"\321\322\323\324\325\326& \211\206a +\207" [name topnode channelnode is-new-feed has-new-items time newsticker--debug-msg "Parsing RSS 2.0 feed %s" xml-get-children channel nil newsticker--parse-generic-feed title description link newsticker--parse-generic-items item #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children title] 4] #[(node) "\302\303\"@\211\211AA*@\206 \302\304\"@\211\211AA*@\207" [node x xml-get-children content:encoded description] 4] #[(node) "\302\303\"@\211\211AA*@\207" [node x xml-get-children link] 4] #[(node) "\302\303\304\"@\211\211AA*@!\207" [node x newsticker--decode-rfc822-date xml-get-children pubDate] 5] #[(node) "\303\302\211\211AA*\"\211;\203 \n\202 \n\211\211AA*@)\207" [node x guid assoc] 5] #[(node) "\211\211AA*\207" [node x] 3] node x] 11 (#$ . 38771)])
#@263 Parse generic news feed data.
Argument NAME gives the name of a news feed. TIME gives the
system time at which the data have been retrieved.
The arguments TITLE, DESC, LINK, and EXTRA-ELEMENTS give the feed's title,
description, link, and extra elements resp.
(defalias 'newsticker--parse-generic-feed #[(name time title desc link extra-elements) "\206 \306 \206\n \307\310\311\310 \312!\312
!\312 !\313!\313
!\313 !\314\315!
\316&\204< \317\320\315!
\316 \316& \n-\207" [title link something-was-added position old-item desc "[untitled]" "" nil 0 xml-substitute-numeric-entities newsticker--remove-whitespace newsticker--cache-contains intern feed t newsticker--cache-add newsticker--cache name time extra-elements] 12 (#$ . 40052)])
#@447 Parse generic news feed data.
Argument NAME gives the name of a news feed. TIME gives the
system time at which the data have been retrieved. ITEMLIST
contains the news items returned by the xml parser.
The arguments TITLE-FN, DESC-FN, LINK-FN, TIME-FN, GUID-FN, and
EXTRA-FN give functions for extracting title, description, link,
time, guid, and extra-elements resp. They are called with one
argument, which is one of the items in ITEMLIST.
(defalias 'newsticker--parse-generic-items #[(name time itemlist title-fn desc-fn link-fn time-fn guid-fn extra-fn) "\306\211\211\211\307\306 \310\311\n\"\210.\207" [something-was-added position old-item link desc title nil 0 mapc #[(node) "T \n!\206\n \306\f\n!\n!\206 \307 \n!\206\" ;\204- \310 !
;\204:
\203: \310
! G\311V\204H
G\311V\205\312 !
\203T \312
!\312!\313 !\313
!\313! \n! \314 \315!!
\316 &\")\317\320\316 # $ %\"\203\310 \" &\321&8) '(\204\257 '\322>\203\254 \320$\202\257 \317$'\323=\203\271 \323$\" &\324&8) )\202\316 \325\211#)\326 \315!!
%*\n! $& #\205\314 \315!!
\316& &+\203 \327!&\"\210\330\331!&#)+\207" [position title-fn node title desc-fn desc "[untitled]" "" prin1-to-string 0 xml-substitute-numeric-entities newsticker--remove-whitespace newsticker--cache-contains intern nil new old 4 (obsolete-old old) immortal 3 t newsticker--cache-add newsticker--run-auto-mark-filter run-hook-with-args newsticker-new-item-functions link-fn link time-fn time guid-fn guid newsticker--cache name old-item item-new-p age2 age1 item prev-age newsticker-automatically-mark-items-as-old something-was-added extra-fn newsticker-auto-mark-filter-list] 13] itemlist] 6 (#$ . 40832)])
#@53 Remove leading and trailing whitespace from STRING.
(defalias 'newsticker--remove-whitespace #[(string) "\205 ;\205 \301\302\303\301\304\303##\207" [string replace-regexp-in-string "[
\n]+$" "" "^[
\n]+"] 7 (#$ . 42572)])
#@88 Forget pre-formatted data for ITEM.
Remove the pre-formatted from `newsticker--cache'.
(defalias 'newsticker--do-forget-preformatted #[(item) "\301\233\203\f \301\233\302\240\210\303\233\205 \303\233\302\240\207" [item 7 nil 6] 2 (#$ . 42809)])
#@90 Forget all cached pre-formatted data.
Remove the pre-formatted from `newsticker--cache'.
(defalias 'newsticker--forget-preformatted #[nil "\301\302\"\210\303\304!\205 \304\305!\207" [newsticker--cache mapc #[(feed) "\301\302A\"\207" [feed mapc newsticker--do-forget-preformatted] 3] fboundp newsticker--buffer-set-uptodate nil] 3 (#$ . 43065)])
#@130 Print newsticker debug messages.
This function calls `message' with arguments STRING and ARGS, if
`newsticker-debug' is non-nil.
(defalias 'newsticker--debug-msg #[(string &rest args) "\205 \303\304 \n#\207" [newsticker-debug string args apply message] 4 (#$ . 43420)])
#@251 Return ISO8601-STRING in format like `decode-time'.
Converts from ISO-8601 to Emacs representation.
Examples:
2004-09-17T05:09:49.001+00:00
2004-09-17T05:09:49+00:00
2004-09-17T05:09+00:00
2004-09-17T05:09:49
2004-09-17T05:09
2004-09-17
2004-09
2004
(defalias 'newsticker--decode-iso8601-date #[(iso8601-string) "\205\221 \306\307\"\205\221 \310\311\312\"!\310\311\313\"\206 \314!\310\311\315\"\206$ \314!\310\311\316\"\206. \317!\310\311\320\"\2068 \317!\310\311\321\"\206B \317!\311\322\"\310\311\323\"\206P \317!\310\311\324\"\206Z \317! \325\230\203{ \nZ
Z\202\213 \326\230\203\213 \n\\
\\\327\330\331\217. \207" [iso8601-string offset-minute offset-hour sign second minute string-match "^ *\\([0-9]\\{4\\}\\)\\(-\\([0-9]\\{2\\}\\)\\(-\\([0-9]\\{2\\}\\)\\(T\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)\\(:\\([0-9]\\{2\\}\\)\\(\\.[0-9]+\\)?\\)?\\(\\([-+Z]\\)\\(\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)?\\)?\\)?\\)? *$" read match-string 1 3 "1" 5 7 "0" 8 10 13 15 16 "+" "-" nil (byte-code "\306 \n \f
\307&\207" [second minute hour day month year encode-time t] 8) ((error (message "Cannot decode \"%s\"" iso8601-string) nil)) hour day month year] 12 (#$ . 43699)])
#@249 Return RFC822-STRING in format like `decode-time'.
Converts from RFC822 to Emacs representation.
Examples:
Sat, 07 September 2002 00:00:01 +0100
Sat, 07 September 2002 00:00:01 MET
Sat, 07 Sep 2002 00:00:01 GMT
07 Sep 2002 00:00:01 GMT
07 Sep 2002
(defalias 'newsticker--decode-rfc822-date #[(rfc822-string) "\205\235 ;\205\235 \306\307\"\205\235 \310\311\312\"!\311\313\"\314\310\311\315\"!\310\311\316\"\206* \317!\310\311\320\"\2064 \317!\310\311\321\"\206> \317!\311\322\"\311\323\"\310\311\324\"\206P \317!\310\311\325\"\206Z \317! \f\203\227 \326\230\203\205 \nZ Z\202\227 \327\230\203\227 \n\\ \\\330\331\332\217. \207" [rfc822-string offset-minute offset-hour sign zone second string-match "\\s-*\\(\\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\)\\s-*,?\\)?\\s-*\\([0-9]\\{1,2\\}\\)\\s-+\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\).*?\\s-+\\([0-9]\\{2,4\\}\\)\\(\\s-+\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)\\(:\\([0-9]\\{2\\}\\)\\)?\\(\\s-+\\(UT\\|GMT\\|EST\\|EDT\\|CST\\|CDT\\|MST\\|MDT\\|PST\\|PDT\\|\\([-+]\\)\\([0-9]\\{2\\}\\)\\([0-9]\\{2\\}\\)\\)\\)?\\)?" read match-string 3 4 0 5 7 "0" 8 10 12 13 14 15 "+" "-" error-data (byte-code "\306\307\310\311\"\210\312 \n \f
\f\313&)\207" [i second minute hour day month 1 mapc #[(m) " \230\203 \n\nT\211\207" [month-name m i month] 2] ("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec") encode-time t year] 8) ((error (byte-code "\302\303 @ A$\210\304\207" [rfc822-string error-data message "Cannot decode \"%s\": %s %s" nil] 5))) minute hour year month month-name day] 14 (#$ . 44913)])
#@45 Return t if LIST1 and LIST2 share elements.
(defalias 'newsticker--lists-intersect-p #[(list1 list2) "\302\303\304 \"\210)\207" [result list1 nil mapc #[(elt) " >\205 \303\211\207" [elt list2 result t] 2]] 3 (#$ . 46569)])
#@122 Update list of ids of active newsticker processes.
Checks list of active processes against list of newsticker processes.
(defalias 'newsticker--update-process-ids #[nil "\303 \304\305\306 \"\210*\307 \207" [new-list active-procs newsticker--process-ids process-list nil mapc #[(proc) "\304!\211\n>\205 B\211)\207" [proc id newsticker--process-ids new-list process-id] 3] force-mode-line-update] 3 (#$ . 46804)])
#@47 Return directory where feed images are saved.
(defalias 'newsticker--images-dir #[nil "\301P\207" [newsticker-dir "/images"] 2 (#$ . 47232)])
#@109 Get image of the news site FEED-NAME from URL.
If the image has been downloaded in the last 24h do nothing.
(defalias 'newsticker--image-get #[(feed-name url) "\306 P\307 !\203( \310\311 \312\313\314 !8\315\316!\"\"\203( \317\320\321\322\311 \"#\202\215 \317\323\321\322\311 \"#\210\324\325Q\326 \"\206I \326\f\"\206I \327\330\"\211 AAAA@\206U $ %r\331\n!q\210\332 \210\333!\203k \327\334\"\210\335%&C\" '\336\337\n('% )\340)\341\211#\210\342)\343\".)\207" [feed-name image-name buffername newsticker-url-list newsticker-url-list-defaults item newsticker--images-dir file-exists-p time-less-p current-time time-add 5 file-attributes seconds-to-time 86400 newsticker--debug-msg "%s: Getting image for %s skipped" format-time-string "%A, %H:%M" "%s: Getting image for %s" " *newsticker-wget-image-" "*" assoc error "Cannot get news for %s: Check newsticker-url-list" get-buffer-create erase-buffer get-process "Another wget-process is running for image %s" append apply start-process set-process-coding-system no-conversion set-process-sentinel newsticker--image-sentinel newsticker-wget-arguments wget-arguments url args newsticker-wget-name proc] 7 (#$ . 47382)])
#@56 Sentinel for image-retrieving PROCESS caused by EVENT.
(defalias 'newsticker--image-sentinel #[(process event) "\304!\305!\306!\307\310\215+\207" [process p-status exit-status feed-name process-status process-exit-status process-name oops (byte-code "\306=\203\f \307U\204 \310\311\312\313\314 \"\n#\210\315\316\317\"\210\317r\320\f!q\210\321 \nP\322\323!\210\324\321 !\2048 \325\321 !\210\317\326\323 \327\317\211 \317\330%\210+\331\317!\210\332p!*\207" [p-status exit-status feed-name image-name process coding-system-for-write exit 0 message "%s: Error while retrieving image from %s" format-time-string "%A, %H:%M" current-time throw oops nil process-buffer newsticker--images-dir set-buffer-file-coding-system no-conversion file-directory-p make-directory t write-region quiet set-buffer-modified-p kill-buffer backup-inhibited require-final-newline] 6)] 2 (#$ . 48572)])
#@34 Insert IMG with STRING at point.
(defalias 'newsticker--insert-image #[(img string) "\302 \"\207" [img string insert-image] 3 (#$ . 49470)])
#@95 Replacement for `htmlr-render'.
Renders the HTML code in the region POS1 to POS2 using htmlr.
(defalias 'newsticker-htmlr-render #[(pos1 pos2) "\304 \" |\210\305\306!r q\210\307\216\nc\210eb\210\310\311!\203\" \311 \210\310\312!\2034 `dW\2034 \312 \210\202( \313\314 !+c)\207" [pos1 pos2 str #1=#:temp-buffer buffer-substring-no-properties generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) fboundp htmlr-reset htmlr-step newsticker--remove-whitespace buffer-string] 3 (#$ . 49618)])
#@48 Set preformatted contents of ITEM to CONTENTS.
(defalias 'newsticker--cache-set-preformatted-contents #[(item contents) "\302\233\203\f \302\233 \240\207\303\233 C\241\207" [item contents 6 5] 2 (#$ . 50171)])
#@42 Set preformatted title of ITEM to TITLE.
(defalias 'newsticker--cache-set-preformatted-title #[(item title) "\302\233\203\f \302\233 \240\207\303\233 \241\207" [item title 7 6] 2 (#$ . 50390)])
#@204 Mark all items in DATA in FEED which carry age OLD-AGE with NEW-AGE.
If FEED is 'any it applies to all feeds. If OLD-AGE is 'any,
all marks are replaced by NEW-AGE. Removes all pre-formatted contents.
(defalias 'newsticker--cache-replace-age #[(data feed old-age new-age) "\301\302\"\210\207" [data mapc #[(a-feed) "\303=\204
@=\205 A\304\305\n\")\207" [feed a-feed items any mapc #[(item) "\303=\204 \304 8)=\205 \304 \233\n\240\210\305 !\207" [old-age item new-age any 4 newsticker--do-forget-preformatted] 2]] 3]] 3 (#$ . 50594)])
#@170 Mark all expired entries.
This function sets the age entries in DATA in the feed FEED. If
an item's age is OLD-AGE it is set to NEW-AGE if the item is
older than TIME.
(defalias 'newsticker--cache-mark-expired #[(data feed old-age new-age time) "\301\302\"\210\207" [data mapc #[(a-feed) "\303=\204
@=\205 A\304\305\n\")\207" [feed a-feed items any mapc #[(item) "\3058) =\205; \306\3078)\310\n!\"\311 \312 \"\205: \313\314\211@)\315\316\3078)\"\315\316 \"$\210\305\233\f\240)\207" [item old-age time exp-time new-age 4 time-add 3 seconds-to-time time-less-p current-time newsticker--debug-msg "Item `%s' from %s has expired on %s" format-time-string "%Y-%02m-%d, %H:%M"] 8]] 3]] 3 (#$ . 51152)])
#@648 Check DATA whether FEED contains an item with the given properties.
This function returns the contained item or nil if it is not
contained.
The properties which are checked are TITLE, DESC, LINK, AGE, and
GUID. In general all properties must match in order to return a
certain item, except for the following cases.
If AGE equals 'feed the TITLE, DESCription and LINK do not
matter. If DESC is nil it is ignored as well. If
`newsticker-desc-comp-max' is non-nil, only the first
`newsticker-desc-comp-max' characters of DESC are taken into
account.
If GUID is non-nil it is sufficient to match this value, and the
other properties are ignored.
(defalias 'newsticker--cache-contains #[(data feed title desc link age &optional guid) "\300\301\302\217\207" [nil (byte-code "\300\301\215\207" [found (byte-code "\203 \203 G V\203 \303 O\304\305\n\"\210\306\207" [desc newsticker-desc-comp-max data 0 mapc #[(this-feed) "@ =\205\f \302\303A\"\207" [this-feed feed mapc #[(anitem) "\203( \306\300\n\307\n8)\"\211;\203 \202# \211\211 AA*@*\230\202x \211@)
\230\205 \f\203C \310\n8)\f\230\205
\203{
\203o \203o \211A@)GV\203o \211A@)\311O
\230\202x \211A@)
\230\205 \312\313 \"\207" [guid anitem item node x title assoc 8 2 0 throw found link desc newsticker-desc-comp-max] 6]] 3] nil] 3)] 2) ((error))] 3 (#$ . 51879)])
#@367 Add another item to cache data.
Add to DATA in the FEED-NAME-SYMBOL an item with TITLE, DESC,
LINK, TIME, AGE, POSITION, and EXTRA-ELEMENTS. If this item is
contained already, its time is set to UPDATED-TIME, its mark is
set to UPDATED-AGE, and its pre-formatted contents is set to
PREFORMATTED-CONTENTS and PREFORMATTED-TITLE. Returns the age
which the item got.
(defalias 'newsticker--cache-add #[(data feed-name-symbol title desc link time age position extra-elements &optional updated-time updated-age preformatted-contents preformatted-title) "\306\301\"\211;\203 \202 \211\211AA*@)\307\f
&\211 \203n \310\233\203? \310\233\240\210\202H \311\233C\241\210\311\233\240\210\203] \312\233\240\210\313\"\210\314\"\210\202\207 \257 \315\316\215\210*\f\207" [extra-elements guid node x data feed-name-symbol assoc newsticker--cache-contains 5 4 3 newsticker--cache-set-preformatted-contents newsticker--cache-set-preformatted-title found (byte-code "\303\304\"\210\305\300 \nD\306#\207" [data feed-name-symbol item mapc #[(this-feed) "@ =\205 \211A\nC\244\241\210\303\304\"\207" [this-feed feed-name-symbol item throw found] 3] add-to-list t] 4) title desc link age item position updated-age updated-time preformatted-contents preformatted-title time] 10 (#$ . 53249)])
#@215 Remove all entries from DATA in the feed FEED-SYMBOL with AGE.
FEED-SYMBOL may be 'any. Entries from old feeds, which are no longer in
`newsticker-url-list' or `newsticker-url-list-defaults', are removed as
well.
(defalias 'newsticker--cache-remove #[(data feed-symbol age) "\211@\306\n\205\226 \307\310\n@!\f\"\204 \307\310\n@!
\"\203z \311=\204. \n@=\203\211 \nA\211 \f@
\306
\203v
\312
8)=\203e \203\\ \fA\241\210\202i \n\fA\241\210\202i \f\fA\211\f@\211
\204> +\202\211 \203\206 A\241\210\202\211 A A\211@\211\204 \306+\207" [data pos feed last-pos newsticker-url-list newsticker-url-list-defaults nil assoc symbol-name any 4 feed-symbol item-pos item prev-pos age] 4 (#$ . 54598)])
#@72 Compare two news items ITEM1 and ITEM2 by comparing their time values.
(defalias 'newsticker--cache-item-compare-by-time #[(item1 item2) "\300\301\215\207" [result (byte-code "\306 8)\n\306 8)\211 =\204- \f\307=\203\" \310\311\312\"\210\202- \307=\203- \310\311\313\"\210*\314 8) \n\314 8)
@@W\203J \312\202\244
@@V\203W \313\202\244
A@A@W\203f \312\202\244
A@A@V\203u \313\202\244 \315
8\206| \316\3158\206\204 \316W\203\214 \312\202\244 \315
8\206\223 \316\3158\206\233 \316V\203\243 \313\202\244 \312*\207" [item1 item item2 age2 age1 time1 4 obsolete throw result nil t 3 2 0 time2] 4)] 2 (#$ . 55334)])
#@52 Compare ITEM1 and ITEM2 by comparing their titles.
(defalias 'newsticker--cache-item-compare-by-title #[(item1 item2) "\300\301\215\207" [result (byte-code "\305 8)\n\305 8)\211 =\204- \f\306=\203\" \307\310\311\"\210\202- \306=\203- \307\310\312\"\210*\211@)\n\211@)\231\207" [item1 item item2 age2 age1 4 obsolete throw result nil t] 4)] 2 (#$ . 55974)])
#@64 Compare ITEM1 and ITEM2 by comparing their original positions.
(defalias 'newsticker--cache-item-compare-by-position #[(item1 item2) "\300\301\215\207" [result (byte-code "\305 8)\n\305 8)\211 =\204- \f\306=\203\" \307\310\311\"\210\202- \306=\203- \307\310\312\"\210*\313 8)\2068 \314\n\313 8)\206B \314W\207" [item1 item item2 age2 age1 4 obsolete throw result nil t 5 0] 4)] 2 (#$ . 56346)])
#@40 Update and save newsticker cache file.
(defalias 'newsticker--cache-save-version1 #[nil "\300\301!\207" [newsticker--cache-update t] 2 (#$ . 56756) nil])
#@101 Update newsticker cache file.
If optional argument SAVE is not nil the cache file is saved to disk.
(defalias 'newsticker--cache-update #[(&optional save) "\212\306!\204\f \307\310\"\210\311\312 !\n\205- \nq\210\310\313 \210\314c\210\315
!c\210\205- \316 +\207" [newsticker-dir newsticker-cache-filename buf coding-system-for-write buffer-undo-list newsticker--cache file-directory-p make-directory t utf-8 find-file-noselect erase-buffer ";; -*- coding: utf-8 -*-\n" prin1-to-string save-buffer save] 3 (#$ . 56917)])
#@61 Return the cached data for the feed FEED.
FEED is a symbol!
(defalias 'newsticker--cache-get-feed #[(feed) "\302 \"\207" [feed newsticker--cache assoc] 3 (#$ . 57449)])
#@41 Return directory for saving cache data.
(defalias 'newsticker--cache-dir #[nil "\301P\207" [newsticker-dir "/feeds"] 2 (#$ . 57625)])
#@32 Save cache data for all feeds.
(defalias 'newsticker--cache-save #[nil "\302!\204 \303\304\"\210\305\306 \"\210\307\207" [newsticker-dir newsticker--cache file-directory-p make-directory t mapc newsticker--cache-save-feed nil] 3 (#$ . 57766)])
#@27 Save cache data for FEED.
(defalias 'newsticker--cache-save-feed #[(feed) "\305 \306\307@!Q\310 !\204 \311 \312\"\210\313 \314P\315\316\317!! \320\216r q\210\321c\210\322A!c)r q\210\323\324\211\f\324\325%\210.\207" [feed dir coding-system-for-write #1=#:temp-buffer #2=#:temp-file newsticker--cache-dir "/" symbol-name file-directory-p make-directory t utf-8 "/data" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ";; -*- coding: utf-8 -*-\n" prin1-to-string write-region nil 0] 7 (#$ . 58019)])
#@27 Read version1 cache data.
(defalias 'newsticker--cache-read-version1 #[nil "\303\304 !\205 \305\306!r\nq\210\307\216\310 !\210eb\210\311\312\313\217+)\207" [coding-system-for-read newsticker-cache-filename #1=#:temp-buffer utf-8 file-exists-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents nil (byte-code "\301p!\211\207" [newsticker--cache read] 2) ((error (byte-code "\301\302!\210\303\211\207" [newsticker--cache message "Error while reading newsticker cache file!" nil] 2)))] 3 (#$ . 58619)])
#@18 Read cache data.
(defalias 'newsticker--cache-read #[nil "\304\305 !\203 \306\307!\203 \310 \210\306\311\312!!\205$ \313 !\207\314\315\316\n \"\"\207" [newsticker--cache newsticker-cache-filename newsticker-url-list-defaults newsticker-url-list nil file-exists-p y-or-n-p "Old newsticker cache file exists. Read it? " newsticker--cache-read-version1 format "Delete old newsticker cache file? " delete-file mapc #[(f) "\301@!\207" [f newsticker--cache-read-feed] 2] append] 5 (#$ . 59211)])
#@43 Read cache data for feed named FEED-NAME.
(defalias 'newsticker--cache-read-feed #[(feed-name) "\304 \305\306R\307\310\n!\205% \311\312!r q\210\313\216\314\n!\210eb\210\315\316\317\217+*\207" [feed-name coding-system-for-read file-name #1=#:temp-buffer newsticker--cache-dir "/" "/data" utf-8 file-exists-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents nil (byte-code "\301\302\303!\304p!B\"\207" [feed-name add-to-list newsticker--cache intern read] 5) ((error (byte-code "\302\303\"\210\304\211\207" [file-name newsticker--cache message "Error while reading newsticker cache file %s!" nil] 3)))] 4 (#$ . 59712)])
#@131 Return number of items in the given FEED which have one of the given AGES.
If AGES is nil, the total number of items is returned.
(defalias 'newsticker--stat-num-items #[(feed &rest ages) "\305!A\306\211\2037 \203! \n@ \307\f8) >\2030 T\2020 \n@ \307\f8)\310>\2030 T\nA\211\204 *\207" [feed num items ages item newsticker--cache-get-feed 0 4 (new old immortal obsolete)] 3 (#$ . 60426)])
#@123 Return total number of items in all feeds which have the given AGE.
If AGE is nil, the total number of items is returned.
(defalias 'newsticker--stat-num-items-total #[(&optional age) "\302\303\304\305\306 \"\"\"\207" [newsticker-url-list-defaults newsticker-url-list apply + mapcar #[(feed) "\203\f \302\303 @!\"\207\302\303 @!!\207" [age feed newsticker--stat-num-items intern] 3] append] 7 (#$ . 60832)])
#@76 OPML subscription export.
Export subscriptions to a buffer in OPML Format.
(defalias 'newsticker-opml-export #[nil "r\303\304!q\210\305\306!\210\307\310\311\312\313\314\315\316!\317\320\321\322\323 \324\325\326\260c\210\327\330\331 \n\"\"\210\332c\210)\333\304!\210\334\335!\2059 \335 \207" [user-mail-address newsticker-url-list newsticker-url-list-defaults get-buffer-create "*OPML Export*" set-buffer-file-coding-system utf-8 "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n" "<!-- OPML generated by Emacs newsticker.el -->\n" "<opml version=\"1.0\">\n" " <head>\n" " <title>mySubscriptions</title>\n" " <dateCreated>" format-time-string "%a, %d %b %Y %T %z" "</dateCreated>\n" " <ownerEmail>" "</ownerEmail>\n" " <ownerName>" user-full-name "</ownerName>\n" " </head>\n" " <body>\n" mapc #[(sub) "\303c\210\211@)c\210\304c\210\211A@)c\210\305c\207" [sub item x " <outline text=\"" "\" xmlUrl=\"" "\"/>\n"] 2] append " </body>\n</opml>\n" pop-to-buffer fboundp sgml-mode] 16 (#$ . 61249) nil])
#@124 Recursively import OUTLINES from OPML data.
Note that nested outlines are currently flattened -- i.e. grouping is
removed.
(defalias 'newsticker--opml-import-outlines #[(outlines) "\301\302\"\207" [outlines mapc #[(outline) "\306\307\n \"\206\f \310*\311\307\n \"\206 \310*\312\300\" \f\310\230\2043 \313\314
\f\315\211\211\257\316#\210 \205: \317 !+\207" [outline attribute node children url name text xml-get-attribute-or-nil "" xmlUrl xml-get-children add-to-list newsticker-url-list nil t newsticker--opml-import-outlines] 7]] 3 (#$ . 62275)])
#@33 Import OPML data from FILENAME.
(defalias 'newsticker-opml-import #[(filename) "\304!q\210eb\210\305ed\"\306 @\302\"@\306\n\307\"\310 !\210+\311\312!\207" [filename node-list body outlines find-file-noselect xml-parse-region xml-get-children outline newsticker--opml-import-outlines customize-variable newsticker-url-list] 3 (#$ . 62841) "fOPML file: "])
#@158 Automatically mark an item as old or immortal.
This function checks the variable `newsticker-auto-mark-filter-list'
for an entry that matches FEED and ITEM.
(defalias 'newsticker--run-auto-mark-filter #[(feed item) "\302\303\304 \")\207" [case-fold-search newsticker-auto-mark-filter-list t mapc #[(filter) "@\211A@)\306 \f\"\205 \307
\n\"*\207" [filter x pattern-list filter-feed feed item string-match newsticker--do-run-auto-mark-filter] 4]] 3 (#$ . 63207)])
#@112 Actually compare ITEM against the pattern-LIST.
LIST must be an element of `newsticker-auto-mark-filter-list'.
(defalias 'newsticker--do-run-auto-mark-filter #[(item list) "\301\302\"\207" [list mapc #[(pattern) "A@\3068 \211@) \211A@) \211 \303=\204!
\307=\2031 \2031 \310\f \"\2031 \311 \"\210
\312=\204=
\307=\205L \n\205L \310\f\n\"\205L \311 \",\207" [pattern item desc title regexp place 2 all string-match newsticker--process-auto-mark-filter-match description] 5]] 3 (#$ . 63683)])
#@56 Process ITEM that matches an auto-mark-filter PATTERN.
(defalias 'newsticker--process-auto-mark-filter-match #[(item pattern) "@A@\3058\306\307\f\211 @)#\210\310\f\233 \240\210\f \311\f8)\312\313\314\315 \n $EC\244+\207" [pattern regexp place age item 2 newsticker--debug-msg "Auto-mark-filter %s matches `%s'" 4 8 newsticker-auto-mark nil format "age=%s, title/desc=%s, regexp=%s"] 9 (#$ . 64191)])
#@142 Demonstrate the use of the `newsticker-new-item-functions' hook.
This function just prints out the values of the FEED and title of the ITEM.
(defalias 'newsticker-new-item-functions-sample #[(feed item) "\302\303 \211@)#\207" [feed item message "newsticker-new-item-functions-sample: feed=`%s', title=`%s'"] 5 (#$ . 64605)])
#@210 Download the first image.
If FEED equals "imagefeed" download the first image URL found
in the description=contents of ITEM to the directory
"~/tmp/newsticker/FEED/TITLE" where TITLE is the title of the item.
(defalias 'newsticker-download-images #[(feed item) "\306\230\205S \211@) \211A@)\307\310\n\"\205R \n\311\224\311\225O\312\313 R\f \314!\2048 \315\316\"\210\317!\210\320\321\"\210\322\323\324\325C%\210\317
!+*\207" [feed item desc title default-directory org-dir "imagefeed" string-match "<img src=\"\\(http://[^ \"]+\\)\"" 1 "~/tmp/newsticker/" "/" file-directory-p make-directory t cd message "Getting image %s" apply start-process "wget-image" " *newsticker-wget-download-images*" temp-dir url newsticker-wget-name] 7 (#$ . 64939)])
#@307 In all FEEDs download the enclosed object of the news ITEM.
The object is saved to the directory "~/tmp/newsticker/FEED/TITLE", which
is created if it does not exist. TITLE is the title of the news
item. Argument FEED is ignored.
This function is suited for adding it to `newsticker-new-item-functions'.
(defalias 'newsticker-download-enclosures #[(feed item) "\211@)\306\301\3078)\"\211\205 \211A@)* \205[ \306\310 \"A\311\f\312 R
\313!\204@ \314\315\"\210\316!\210\317\320\"\210\321\322\323\324C%\210\316!+*\207" [item enclosure node title feed default-directory assoc 8 url "~/tmp/newsticker/" "/" file-directory-p make-directory t cd message "Getting enclosure %s" apply start-process "wget-enclosure" " *newsticker-wget-download-enclosures*" org-dir temp-dir newsticker-wget-name] 7 (#$ . 65714)])
#@59 Return an artificial RSS string under the name FEED-NAME.
(defalias 'newsticker-retrieve-random-message #[(feed-name) "\300\301\302\303\304\305\306\307\310\311!\"\312\306\313\310\311!\"\314\260\n\207" ["<?xml version=\"1.0\" encoding=\"iso-8859-1\" ?><rss version=\"0.91\">" "<channel>" "<title>newsticker-retrieve-random-message</title>" "<description>Sample retrieval function</description>" "<pubDate>FIXME Sat, 07 Sep 2005 00:00:01 GMT</pubDate>" "<item><title>" format "Your lucky number is %d" random 10000 "</title><description>" "Or maybe it is %d" "</description></item></channel></rss>"] 12 (#$ . 66558)])
(provide 'newst-backend)