ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/newst-backend.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\210\300\303!\207" [require derived xml url-parse] 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 (#$ . 499))
#@51 Function called at end of `newsticker--sentinel'.
(defvar newsticker--sentinel-callback nil (#$ . 663))
#@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 (#$ . 774)])
(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")) (#$ . 1151))
#@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 (#$ . 2418)])
#@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 (#$ . 2658)])
(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 one 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)
#@52 Tells whether the newsticker buffer is up to date.
(defvar newsticker--buffer-uptodate-p nil (#$ . 13539))
#@44 The time at which the latest news arrived.
(defvar newsticker--latest-update-time (current-time) (#$ . 13652))
#@46 List of PIDs of active newsticker processes.
(defvar newsticker--process-ids nil (#$ . 13769))
#@930 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 (#$ . 13871))
#@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 (#$ . 14851))
#@93 Automatically narrow to current news item.
If non-nil only the current headline is visible.
(defvar newsticker--auto-narrow-to-item nil (#$ . 15022))
#@73 Title of error headline which will be inserted if news retrieval fails.
(defconst newsticker--error-headline "[COULD NOT DOWNLOAD HEADLINES!]" (#$ . 15178))
#@23 Return title of ITEM.
(defalias 'newsticker--title #[(item) "@\207" [item] 1 (#$ . 15341)])
(put 'newsticker--title 'byte-optimizer 'byte-compile-inline-expand)
#@29 Return description of ITEM.
(defalias 'newsticker--desc #[(item) "A@\207" [item] 1 (#$ . 15509)])
(put 'newsticker--desc 'byte-optimizer 'byte-compile-inline-expand)
#@22 Return link of ITEM.
(defalias 'newsticker--link #[(item) "\3018\207" [item 2] 2 (#$ . 15682)])
(put 'newsticker--link 'byte-optimizer 'byte-compile-inline-expand)
#@22 Return time of ITEM.
(defalias 'newsticker--time #[(item) "\3018\207" [item 3] 2 (#$ . 15853)])
(put 'newsticker--time 'byte-optimizer 'byte-compile-inline-expand)
#@21 Return age of ITEM.
(defalias 'newsticker--age #[(item) "\3018\207" [item 4] 2 (#$ . 16024)])
(put 'newsticker--age 'byte-optimizer 'byte-compile-inline-expand)
#@32 Return position/index of ITEM.
(defalias 'newsticker--pos #[(item) "\3018\207" [item 5] 2 (#$ . 16192)])
(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 (#$ . 16371)])
(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 (#$ . 16590)])
(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 (#$ . 16804)])
(put 'newsticker--extra 'byte-optimizer 'byte-compile-inline-expand)
#@39 Return string representation of GUID.
(defalias 'newsticker--guid-to-string #[(guid) ";\203 \207\211AA)@\207" [guid node] 2 (#$ . 16989)])
(put 'newsticker--guid-to-string 'byte-optimizer 'byte-compile-inline-expand)
#@22 Return guid of ITEM.
(defalias 'newsticker--guid #[(item) "\303\301\3048)\"\211;\203 \202 \211AA)@)\207" [item guid node assoc 8] 5 (#$ . 17217)])
(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 (#$ . 17447)])
(put 'newsticker--enclosure 'byte-optimizer 'byte-compile-inline-expand)
#@27 Return real name of FEED.
(defalias 'newsticker--real-feed-name #[(feed) "\3012 \302\303\304!A\"\210\305!0\207" [feed name mapc #[(item) "\3018)\302=\205 \303\304\211@)\"\207" [item 4 feed throw name] 4] newsticker--cache-get-feed symbol-name] 4 (#$ . 17729)])
#@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& \206i \311\312 \"\202i \313\314 \n\f$\210\f\315X\2035 \316\n\203D \n\247\203F \n\315U\203F \317\320\n\f\321 $\f\205i B\211
\235\203b
\202h
B\211),\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 timer do-not-complain-if-running #1=#:x] 6 (#$ . 18006)])
#@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 (#$ . 18818) 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 (#$ . 19518)])
#@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 (#$ . 19839) 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 (#$ . 20401) 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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] write-file t] 9 (#$ . 20715) 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) " \304\211\211\257\211 \235\204 \305 \nC\")\306\303!\207" [name url #1=#:x newsticker-url-list nil append customize-variable] 6 (#$ . 21121) (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 (#$ . 21782) 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 (#$ . 21965)])
#@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) "\304\3051 \306 \307\nC#0\202 \310\311\n #)\210)\312 \207" [coding-system-for-read url feed-name error-data no-conversion (error) url-retrieve newsticker--get-news-by-url-callback message "Error retrieving news from %s: %s" force-mode-line-update] 4 (#$ . 22348)])
#@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\316\317#\210e`|\210\320\316 ?\206. @\321=?\322p%\210 \205U @ A \211 \323=\206T
\321=\205T \324\325\326\327!\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" nil t newsticker--sentinel-work :error "url-retrieve" :redirect message "%s: Error while retrieving news from %s: %s: \"%s\"" format-time-string "%A, %H:%M"] 7 (#$ . 22779)])
#@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\325#\210\326!B\327 ,\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-put nt-feed-name process-id force-mode-line-update proc newsticker--process-ids] 6 (#$ . 23577)])
#@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!#\210\312 \"\206 \312\n\"\206 \313\314\"\211A@ AAAA@\206)
\315\f!\2038 \316\f\"\202L \317=\203F \320\f\"\202L \321\f#+\207" [feed-name newsticker-url-list newsticker-url-list-defaults item url newsticker-wget-arguments newsticker--debug-msg "%s: Getting news for %s" format-time-string "%A, %H:%M" 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 wget-arguments newsticker-retrieval-method] 5 (#$ . 24352)])
#@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
\315=\205! \f\316U \n %-\207" [process buffer command feed-name exit-status p-status process-status process-exit-status process-get nt-feed-name process-command process-buffer newsticker--sentinel-work exit 0 event] 6 (#$ . 25174)])
#@372 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 FEED-NAME is the name of the retrieved feed.
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 feed-name command buffer) "\306 \307!\310\306 \3112J
\204< \312@ A\313\314\315\316!BC%\317 \320\321\322 &\n@\323\324\315\316!#\210\325\311\310\"\210\326 DrEq\210\327\330!\204M \331 \210eb\210\332\333\310\334#\203c \307\335\336!\227!D\202z \3371o \340D!0\202x \210\323\341D#\210\310DD\203\206 \342edD#\210\3431\242 \327\330!\203\232 \330ed\310\334$C\202\236 \344ed\"0\202\263 F\323\345\346 FA@#\210\325\311\310\"))\211 G@ H\310\211 I J\347@ \320\350$\210\347@ \351\352$\210\347@ \353\352$\210\3541\357H\211 K@)\355=\203H\356 L K\357KL\"\206\371 \317*\360\230\203\361H!I\362\fH#\202\345H\211 K@)\355=\203@H\356 L K\357KL\"\206+\317*\363\230\203@\364H!I\365\fH#\202\345H\211 K@)\366=\204XH\211 K@)\367=\203g\370H!I\371\fH#\202\345H\211 K@)\355=\203\231H\356 L K\357KL\"\206\204\317*\372\230\203\231\373H!I\374\fH#\202\345H\211 K@)\353=\203\315H\375 L K\357KL\"\206\266\317*\376\230\203\315\377H!I\201[ \fH#\202\345\201\\ H!I\201] H!J\201^ \fH#\205\353\334\2110\202\372 M\323\201_ M#)\210\347@ \352\201` $\210\201a @ \201` #\210N\204!\201a @ \350#\210\202G\201b @ \201c \201d O%@\201a @ \201d #\210\347@ \350\201c $\210\201e \210PG\321U\203a\327\201f !\203a\201f \210\306 Q\n\203\201\201g \201h !!\210\327\201i !\203\201\201i \310!\210R\204\215\201j E!\210\201k \201S !\205HS\205HI\203\256\201l \211\201m I$\210J\206,\201h \307!!A@ T\201n T8) U\201o U! VU\205+V\205+V\321HW>\204\361\201p \201q \201r VD\"\210V\211 X\201s \310I\210)V\321HW>\204\201p \201q \201r VD\"\210V\211 Y\201t \310I\210)\201u V!\201v P*\211J\205H\201l \211\201w \201x J!Q\201y J$-0\210,Z\205TZ \207" [feed-name ct something-was-added name-symbol time status-ok current-time intern nil oops newsticker--cache-add format-message "%s: Newsticker could not retrieve news from %s.\nReturn status: `%s'\nCommand was `%s'" format-time-string "%A, %H:%M" "" new 0 ((guid nil "newsticker--download-error")) message "%s: Error while retrieving news from %s" throw utf-8 fboundp libxml-parse-xml-region newsticker--do-xml-workarounds re-search-forward "encoding=['\"]\\([^\"]+?\\)['\"]" t match-string 1 (coding-system-error) check-coding-system "newsticker.el: ignoring coding system %s for %s" decode-coding-region (error) xml-parse-region "Could not parse %s: %s" buffer-name newsticker--cache-replace-age obsolete-new old obsolete-old feed (error) rss version xml-get-attribute-or-nil "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: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 xmlns "http://purl.org/atom/ns#" newsticker--get-logo-url-atom-0\.3 newsticker--cache newsticker--error-headline event command coding-system buffer errordata node-list topnode image-url icon-url node attribute error-data newsticker-keep-obsolete-items newsticker-obsolete-item-max-age newsticker--process-ids newsticker--latest-update-time newsticker-debug newsticker-download-logos item feed-url uri cl-struct-url-tags #1=#:v #2=#:v newsticker--sentinel-callback newsticker--parse-atom-0\.3 newsticker--get-logo-url-atom-1\.0 newsticker--get-icon-url-atom-1\.0 newsticker--parse-atom-1\.0 "sentinelerror in %s: %s" deleteme newsticker--cache-remove newsticker--cache-mark-expired obsolete obsolete-expired newsticker--update-process-ids newsticker--ticker-text-setup newsticker--cache-save-feed newsticker--cache-get-feed newsticker--buffer-set-uptodate kill-buffer boundp newsticker--image-get newsticker--images-dir 2 url-generic-parse-url signal wrong-type-argument url 6 7 url-recreate-url "favicon.ico" "." file-name-extension newsticker--icons-dir] 12 (#$ . 25689)])
#@62 Fix all issues which `xml-parse-region' could be choking on.
(defalias 'newsticker--do-xml-workarounds #[nil "eb\210\301\302\303\304#\203 \305\306\303\304#\210\202 eb\210\301\307\303\304#\203% \305\310\303\304#\210eb\210\311\312\303\304#\2039 \305\313\303\304#\210\202( eb\210\301\314\303\304#\203J \305\315\303\304#\210eb\210\311\316\303\304#\203l \317\224\311\320\303\304#\204d \321\322!\210`|\210)\202M eb\210\301\323\303\304#\203~ \305\324!\210\202o eb\210\301\325\303\304#\203\220 \305\326!\210\202\201 \327\303!\207" [start re-search-forward ">[
\n]+<" nil t replace-match "><" "<!DOCTYPE[ \n]+rdf:RDF" "<!DOCTYPE rdfColonRDF" search-forward "
\n" "\n" "<!DOCTYPE[ \n]+rss[ \n]*>" "" "<!--" 0 "-->" error "Can't find end of comment" "<description>\\(<img.*?\\)</description>" "<description><![CDATA[ \\1 ]]></description>" "\\(<[^>]*\\)=\"\"" "\\1=\" \"" set-buffer-modified-p] 4 (#$ . 29979)])
#@45 Return logo URL from atom 1.0 data in NODE.
(defalias 'newsticker--get-logo-url-atom-1\.0 #[(node) "\301\302\"@\211AA)@\207" [node xml-get-children logo] 4 (#$ . 30895)])
#@45 Return icon URL from atom 1.0 data in NODE.
(defalias 'newsticker--get-icon-url-atom-1\.0 #[(node) "\301\302\"@\211AA)@\207" [node xml-get-children icon] 4 (#$ . 31074)])
#@45 Return logo URL from atom 0.3 data in NODE.
(defalias 'newsticker--get-logo-url-atom-0\.3 #[(node) "\301\211\302\"@\303\"@\211AA)@\207" [node xml-get-children image url] 5 (#$ . 31253)])
#@44 Return logo URL from RSS 2.0 data in NODE.
(defalias 'newsticker--get-logo-url-rss-2\.0 #[(node) "\301\211\211\302\"@\303\"@\304\"@\211AA)@\207" [node xml-get-children channel image url] 6 (#$ . 31448)])
#@44 Return logo URL from RSS 1.0 data in NODE.
(defalias 'newsticker--get-logo-url-rss-1\.0 #[(node) "\301\211\302\"@\303\"@\211AA)@\207" [node xml-get-children image url] 5 (#$ . 31660)])
#@45 Return logo URL from RSS 0.92 data in NODE.
(defalias 'newsticker--get-logo-url-rss-0\.92 #[(node) "\301\211\302\"@\303\"@\211AA)@\207" [node xml-get-children image url] 5 (#$ . 31853)])
#@45 Return logo URL from RSS 0.91 data in NODE.
(defalias 'newsticker--get-logo-url-rss-0\.91 #[(node) "\301\211\302\"@\303\"@\211AA)@\207" [node xml-get-children image url] 5 (#$ . 32048)])
#@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 AA)@\312\f\314\"@\211 AA)@\312\f\315\"@\316 \317
\"\2064 \320*\f\211 AA)&\321 \312\f\322\"\323\324\325\326\327\330& \211\206S \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) "\301\302\"@\211AA)@\207" [node xml-get-children title] 4] #[(node) "\301\302\"@\211AA)@\206 \301\303\"@\211AA)@\207" [node 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) "\301\302\303\"@\211AA)@!\207" [node newsticker--decode-rfc822-date xml-get-children modified] 5] #[(node) "\302\301\211AA)\"\211;\203 \202 \211AA)@)\207" [node guid assoc] 4] #[(node) "\211AA)\207" [node] 2] attribute] 11 (#$ . 32244)])
#@110 Reverse parsing of an xml string.
Restore an xml-string from a an xml NODE that was returned by xml-parse...
(defalias 'newsticker--unxml #[(node) "\203 ;\203 \207\301!\207" [node newsticker--unxml-node] 2 (#$ . 33434)])
#@45 Actually restore xml-string of an xml NODE.
(defalias 'newsticker--unxml-node #[(node) "\304@!A@AA\305 \n\205 \306\307\310\n\306#\311\307\312 \313#\314 \311\260 +\207" [node children att-list qname symbol-name "<" " " mapconcat newsticker--unxml-attribute ">" newsticker--unxml "" "</"] 9 (#$ . 33667)])
#@61 Actually restore xml-string of an ATTRIBUTE of an xml node.
(defalias 'newsticker--unxml-attribute #[(attribute) "\303@!A\211\304 \305R*\207" [attribute value name symbol-name "=\"" "\""] 5 (#$ . 33984)])
#@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 AA)@\312\f\314\"@\211 AA)@\315\f\211 AA)&\316 \312\f\317\"\320\321\322\323\324\325& \211\206A \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) "\301\302\"@\211AA)@\207" [node xml-get-children title] 4] #[(node) "\301\302\303\"@\211AA)@!\206+ \301\302\304\"@\211AA)@!\206+ \302\304\"@\211AA)@\207" [node newsticker--unxml xml-get-children content summary] 5] #[(node) "\302\303\"@\304\305 \"\206 \306*\207" [node attribute xml-get-children link href xml-get-attribute-or-nil #1#] 3] #[(node) "\301\302\303\"@\211AA)@\206 \302\304\"@\211AA)@!\207" [node newsticker--decode-iso8601-date xml-get-children updated published] 5] #[(node) "\301\302\"@\211AA)@\207" [node xml-get-children id] 4] #[(node) "\211AA)\207" [node] 2]] 11 (#$ . 34200)])
#@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\"@\211AA)@! \314\211 \315\310\n\316\"@\211AA)@\310\n\317\"@\211AA)@\310\n\320\"@\211AA)@\n\211AA)&\321\310\n\322\"\323\324\325\326\327\330& \211\206c
,\207" [name topnode channelnode node pub-date is-new-feed 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) "\301\302\"@\211AA)@\207" [node xml-get-children title] 4] #[(node) "\301\302\"@\211AA)@\207" [node xml-get-children description] 4] #[(node) "\301\302\"@\211AA)@\207" [node xml-get-children link] 4] #[(node) "\301\302\303\"@\211AA)@!\207" [node newsticker--decode-rfc822-date xml-get-children pubDate] 5] #[(node) "\300\207" [nil] 1] #[(node) "\211AA)\207" [node] 2] has-new-items time] 11 (#$ . 35686)])
#@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\"@\211AA)@! \314\211 \315\310\n\316\"@\211AA)@\310\n\317\"@\211AA)@\310\n\320\"@\211AA)@\n\211AA)&\321\310\n\322\"\323\324\325\326\327\330& \211\206c
,\207" [name topnode channelnode node pub-date is-new-feed 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) "\301\302\"@\211AA)@\207" [node xml-get-children title] 4] #[(node) "\301\302\"@\211AA)@\207" [node xml-get-children description] 4] #[(node) "\301\302\"@\211AA)@\207" [node xml-get-children link] 4] #[(node) "\301\302\303\"@\211AA)@!\207" [node newsticker--decode-rfc822-date xml-get-children pubDate] 5] #[(node) "\300\207" [nil] 1] #[(node) "\211AA)\207" [node] 2] has-new-items time] 11 (#$ . 36931)])
#@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 AA)@\310\n\315\"@\211 AA)@\206H \310\n\316\"@\211 AA)@\206H \310\n\317\"@\211 AA)@\310\n\320\"@\211 AA)@\n\211 AA)&\321
\310 \322\"\323\324\325\326\327\330& \211\206s +\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 encoded content:encoded description link newsticker--parse-generic-items item #[(node) "\301\302\"@\211AA)@\207" [node xml-get-children title] 4] #[(node) "\301\302\"@\211AA)@\207" [node xml-get-children description] 4] #[(node) "\301\302\"@\211AA)@\207" [node xml-get-children link] 4] #[(node) "\301\302\303\"@\211AA)@\206 \302\304\"@\211AA)@!\207" [node newsticker--decode-iso8601-date xml-get-children dc:date date] 5] #[(node) "\300\207" [nil] 1] #[(node) "\211AA)\207" [node] 2] node] 11 (#$ . 38109)])
#@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 AA)@\310\n\315\"@\211 AA)@\206H \310\n\316\"@\211 AA)@\206H \310\n\317\"@\211 AA)@\310\n\320\"@\211 AA)@\n\211 AA)&\321
\310\n\322\"\323\324\325\326\327\330& \211\206s +\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 encoded content:encoded description link newsticker--parse-generic-items item #[(node) "\301\302\"@\211AA)@\207" [node xml-get-children title] 4] #[(node) "\301\302\"@\211AA)@\206' \301\303\"@\211AA)@\206' \301\304\"@\211AA)@\207" [node xml-get-children encoded content:encoded description] 4] #[(node) "\301\302\"@\211AA)@\207" [node xml-get-children link] 4] #[(node) "\301\302\303\"@\211AA)@!\207" [node newsticker--decode-rfc822-date xml-get-children pubDate] 5] #[(node) "\302\301\211AA)\"\211;\203 \202 \211AA)@)\207" [node guid assoc] 4] #[(node) "\211AA)\207" [node] 2] node] 11 (#$ . 39323)])
#@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 (#$ . 40641)])
#@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$*+\n! ,\326\327,\"\204\350 \327\316 \n!E,B,\330!\315\"!
&, %& !)$\205,\314!\315\"!
\316& '-\203$\331\"'\"\210\332\333\"'#)+\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 assoc guid newsticker--cache-add newsticker--run-auto-mark-filter run-hook-with-args newsticker-new-item-functions link-fn link time-fn time guid-fn newsticker--cache name old-item item-new-p age2 age1 item prev-age newsticker-automatically-mark-items-as-old something-was-added extra-fn extra-elements-with-guid newsticker-auto-mark-filter-list] 13] itemlist] 6 (#$ . 41421)])
#@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 (#$ . 43238)])
#@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 (#$ . 43475)])
#@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 (#$ . 43731)])
#@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 (#$ . 44086)])
#@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\252 \306\307\"\205\252 \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\\
\\\3271\241 \330\f
\331&0\202\250 \210\332\333\"\210\334. \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 "+" "-" (error) encode-time t message "Cannot decode \"%s\"" nil hour day month year] 12 (#$ . 44365)])
#@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\310 ;\205\310 \306\307\"\205\310 \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\\#\" \\\"\3301\267 \331 (\332\333\334\"\210\335
\"#'%$\336&)0\202\306 )\337\340)@)A$\210)\341. \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) 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 message "Cannot decode \"%s\": %s %s" nil minute hour year month month-name day i error-data] 14 (#$ . 45529)])
#@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 (#$ . 47095)])
#@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 (#$ . 47330)])
#@47 Return directory where feed images are saved.
(defalias 'newsticker--images-dir #[nil "\301P\207" [newsticker-dir "/images/"] 2 (#$ . 47758)])
#@46 Return directory where feed icons are saved.
(defalias 'newsticker--icons-dir #[nil "\301P\207" [newsticker-dir "/icons/"] 2 (#$ . 47908)])
#@149 Get image for FEED-NAME by returning FILENAME from DIRECTORY.
If the file does no exist or if it is older than 24 hours
download it from URL first.
(defalias 'newsticker--image-get #[(feed-name filename directory url) " P\306\n!\203% \307\310 \311\312\313\n!8\314\315!\"\"\203% \316\317\320\321! #\202B \316\322\320\321! #\210 \323=\203< \324 \f
$\202B \325 \f
$)\207" [directory feed-name image-name newsticker-retrieval-method filename url 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" intern newsticker--image-download-by-url newsticker--image-download-by-wget] 6 (#$ . 48056)])
#@113 Download image for FEED-NAME using external program.
Save image as FILENAME in DIRECTORY, download it from URL.
(defalias 'newsticker--image-download-by-wget #[(feed-name filename directory url) "\306 Q\307\n\310Q\311\f\"\206 \311
\"\206 \312\313\"\211 AAAA@\206) r\314 !q\210\315 \210\316!\203? \312\317\"\210\320 C\" \321\322\n % !\323!\324\211#\210\325!\326\"\210\327!\330\"#\210\327!\331#\210\327!\332 #.\207" [feed-name filename proc-name buffername newsticker-url-list newsticker-url-list-defaults "-" " *newsticker-wget-image-" "*" assoc error "Cannot get image 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 process-put nt-directory nt-feed-name nt-filename item newsticker-wget-arguments wget-arguments url args newsticker-wget-name proc directory] 7 (#$ . 48806)])
#@56 Sentinel for image-retrieving PROCESS caused by EVENT.
(defalias 'newsticker--image-sentinel #[(process event) "\306!\307!\310\311\"\310\312\" \310\313\" \3142A \315=\203' \n\316U\2049 \317\320\321\322! #\210\323\f \"\210\324\314\325\"\210\326\327!\f
#0-\207" [process p-status exit-status feed-name directory filename process-status process-exit-status process-get nt-feed-name nt-directory nt-filename oops exit 0 message "%s: Error while retrieving image from %s" format-time-string "%A, %H:%M" newsticker--image-remove throw nil newsticker--image-save process-buffer] 4 (#$ . 49811)])
#@73 Save contents of BUFFER in DIRECTORY as FILE-NAME.
Finally kill buffer.
(defalias 'newsticker--image-save #[(buffer directory file-name) "rq\210 \nP\306\307!\210\310 !\204 \311 !\210\312\313\307 \314\312\211 \312\315%\210+\316\312!\210\317!*\207" [buffer directory file-name image-name coding-system-for-write backup-inhibited set-buffer-file-coding-system no-conversion file-directory-p make-directory nil t write-region quiet set-buffer-modified-p kill-buffer require-final-newline] 6 (#$ . 50416)])
#@32 In DIRECTORY remove FILE-NAME.
(defalias 'newsticker--image-remove #[(directory file-name) " P\303 !\205
\304\n!)\207" [directory file-name image-name file-exists-p delete-file] 2 (#$ . 50931)])
#@111 Download image for FEED-NAME using `url-retrieve'.
Save image as FILENAME in DIRECTORY, download it from URL.
(defalias 'newsticker--image-download-by-url #[(feed-name filename directory url) "\306\3071 \310 \311\n \fE#0\202 \312\313\n
#)\210)\314 \207" [coding-system-for-read url feed-name directory filename error-data no-conversion (error) url-retrieve newsticker--image-download-by-url-callback message "Error retrieving image from %s: %s" force-mode-line-update] 6 (#$ . 51136)])
#@234 Callback function for `newsticker--image-download-by-url'.
STATUS is the return status as delivered by `url-retrieve'.
FEED-NAME is the name of the feed that the news were retrieved
from.
The image is saved in DIRECTORY as FILENAME.
(defalias 'newsticker--image-download-by-url-callback #[(status feed-name directory filename) "?\206 @A\211\306=\203 \307\202 \n\310=\205 \311*\211\205P \312\313\f\314
\315\260!\316\317 ! \211 q\210\320 \210c\210eb\210\321\322!\210e`|\210\323
#*)\207" [status status-details status-type do-save feed-name directory :redirect t :error nil get-buffer-create " *newsticker-url-image-" "-" "*" string-to-multibyte buffer-string erase-buffer search-forward "\n\n" newsticker--image-save result buf filename] 7 (#$ . 51633)])
#@34 Insert IMG with STRING at point.
(defalias 'newsticker--insert-image #[(img string) "\302 \"\207" [img string insert-image] 3 (#$ . 52411)])
#@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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] fboundp htmlr-reset htmlr-step newsticker--remove-whitespace buffer-string] 3 (#$ . 52559)])
#@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 (#$ . 53096)])
#@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 (#$ . 53315)])
#@206 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 (#$ . 53519)])
#@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 (#$ . 54079)])
#@649 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) "\3031% \3042# \203 \203 G V\203 \305 O\306\307\n\"\210\31000\207\210\310\207" [desc newsticker-desc-comp-max data (error) found 0 mapc #[(this-feed) "@ =\205\f \302\303A\"\207" [this-feed feed mapc #[(anitem) "\203& \306\300\n\307\n8)\"\211;\203 \202! \211AA)@*\230\202t \211@)\f\230\205{
\203? \310\n8)
\230\205{ \f\203w \f\203k
\203k \211A@)G
V\203k \211A@)\311
O\f\230\202t \211A@)\f\230\205{ \312\313 \"\207" [guid anitem item node title link assoc 8 2 0 throw found desc newsticker-desc-comp-max] 6]] 3] nil] 3 (#$ . 54806)])
#@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 \211AA)@)\307 \f
&\211 \203k \310\233\203< \310\233\240\210\202E \311\233C\241\210\311\233\240\210\203Z \312\233\240\210\313\"\210\314\"\210\202\240
\257 \3152\237 \316\317 \"\210\fD\211 \235?\205\235 \320 C\"\211)0\210* \207" [extra-elements guid node data feed-name-symbol title assoc newsticker--cache-contains 5 4 3 newsticker--cache-set-preformatted-contents newsticker--cache-set-preformatted-title found mapc #[(this-feed) "@ =\205 \211A\nC\244\241\210\303\304\"\207" [this-feed feed-name-symbol item throw found] 3] append desc link age item position updated-age updated-time preformatted-contents preformatted-title time #1=#:x] 10 (#$ . 56119)])
#@216 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 (#$ . 57432)])
#@72 Compare two news items ITEM1 and ITEM2 by comparing their time values.
(defalias 'newsticker--cache-item-compare-by-time #[(item1 item2) "\3062\252 \307 8)\n\307 8)\211 =\2041 \f\310=\203& \311\306\312\"\210\2021 \310=\2031 \311\306\313\"\210*\314 8) \n\314 8)
@@W\203N \312\202\250
@@V\203[ \313\202\250
A@A@W\203j \312\202\250
A@A@V\203y \313\202\250 \315
8\206\200 \316\3158\206\210 \316W\203\220 \312\202\250 \315
8\206\227 \316\3158\206\237 \316V\203\247 \313\202\250 \312*0\207" [item1 item item2 age2 age1 time1 result 4 obsolete throw nil t 3 2 0 time2] 4 (#$ . 58169)])
#@52 Compare ITEM1 and ITEM2 by comparing their titles.
(defalias 'newsticker--cache-item-compare-by-title #[(item1 item2) "\3052> \306 8)\n\306 8)\211 =\2041 \f\307=\203& \310\305\311\"\210\2021 \307=\2031 \310\305\312\"\210*\211@)\n\211@)\2310\207" [item1 item item2 age2 age1 result 4 obsolete throw nil t] 4 (#$ . 58780)])
#@64 Compare ITEM1 and ITEM2 by comparing their original positions.
(defalias 'newsticker--cache-item-compare-by-position #[(item1 item2) "\3052H \306 8)\n\306 8)\211 =\2041 \f\307=\203& \310\305\311\"\210\2021 \307=\2031 \310\305\312\"\210*\313 8)\206< \314\n\313 8)\206F \314W0\207" [item1 item item2 age2 age1 result 4 obsolete throw nil t 5 0] 4 (#$ . 59117)])
#@40 Update and save newsticker cache file.
(defalias 'newsticker--cache-save-version1 #[nil "\300\301!\207" [newsticker--cache-update t] 2 (#$ . 59492) 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 (#$ . 59653)])
#@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 (#$ . 60185)])
#@41 Return directory for saving cache data.
(defalias 'newsticker--cache-dir #[nil "\301P\207" [newsticker-dir "/feeds"] 2 (#$ . 60361)])
#@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 (#$ . 60502)])
#@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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] ";; -*- coding: utf-8 -*-\n" prin1-to-string write-region nil 0] 7 (#$ . 60755)])
#@27 Read version1 cache data.
(defalias 'newsticker--cache-read-version1 #[nil "\304\305 !\205/ \306\307!r\nq\210\310\216\311 !\210eb\210\3121& \313p!\2110\202. \210\314\315!\210\316\211+)\207" [coding-system-for-read newsticker-cache-filename #1=#:temp-buffer newsticker--cache utf-8 file-exists-p generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents (error) read message "Error while reading newsticker cache file!" nil] 2 (#$ . 61339)])
#@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 (#$ . 61847)])
#@43 Read cache data for feed named FEED-NAME.
(defalias 'newsticker--cache-read-feed #[(feed-name) "\306 \307\310R\311\312\n!\205J \313\314!r q\210\315\216\316\n!\210eb\210\3171@ \320!\321p!B\211
\235\2036
\202; \f
B\211)0\202I \210\322\323\n\"\210\324\211+*\207" [feed-name coding-system-for-read file-name #1=#:temp-buffer #2=#:x newsticker--cache newsticker--cache-dir "/" "/data" utf-8 file-exists-p generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents (error) intern read message "Error while reading newsticker cache file %s!" nil] 5 (#$ . 62348)])
#@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 (#$ . 62977)])
#@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 (#$ . 63383)])
#@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\305A@\211;\203 \n\202 \306\n!)!c\210\307c\207" [sub item url " <outline text=\"" "\" xmlUrl=\"" xml-escape-string prin1-to-string "\"/>\n"] 4] append " </body>\n</opml>\n" pop-to-buffer fboundp sgml-mode] 16 (#$ . 63800) 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\204A
\f\313\211\211\257\211 \235\204@ \314C\") \205H \315 !+\207" [outline attribute node children url name text xml-get-attribute-or-nil "" xmlUrl xml-get-children nil append newsticker--opml-import-outlines #1=#:x newsticker-url-list] 6]] 3 (#$ . 64889)])
#@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 (#$ . 65470) "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) "@A@\305\n \"\205 \306\f \"*\207" [filter pattern-list filter-feed feed item string-match newsticker--do-run-auto-mark-filter] 3]] 3 (#$ . 65836)])
#@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 (#$ . 66304)])
#@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 (#$ . 66812)])
#@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 (#$ . 67226)])
#@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 (#$ . 67560)])
#@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 (#$ . 68335)])
#@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 (#$ . 69179)])
(provide 'newst-backend)
Kontol Shell Bypass