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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\302%\210\310\311\312\313\314DD\315\316\317\320\321&\207" [require mm-util gnus custom-declare-group mm-url nil "A wrapper of url package and external url command for Gnus." :group custom-declare-variable mm-url-use-external funcall function #[0 "\300\207" [nil] 1 ""] "If non-nil, use external grab program `mm-url-program'." :version "22.1" :type boolean] 8)
(defvar mm-url-predefined-programs '((wget "wget" "--user-agent=mm-url" "-q" "-O" "-") (w3m "w3m" "-dump_source") (lynx "lynx" "-source") (curl "curl" "--silent" "--user-agent" "mm-url" "--location")))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\207" [custom-declare-variable mm-url-program funcall function #[0 "\300\301!\203\302\207\300\303!\203\304\207\300\305!\203\306\207\300\307!\203 \310\207\311\207" [executable-find "wget" wget "w3m" w3m "lynx" lynx "curl" curl "GET"] 2 #1=""] "The url grab program.\nLikely values are `wget', `w3m', `lynx' and `curl'." :version "22.1" :type (choice (symbol :tag "wget" wget) (symbol :tag "w3m" w3m) (symbol :tag "lynx" lynx) (symbol :tag "curl" curl) (string :tag "other")) mm-url-arguments #[0 "\300\207" [nil] 1 #1#] "The arguments for `mm-url-program'." (repeat string)] 8)
#@65 An assoc list of entity names and how to actually display them.
(defvar mm-url-html-entities '((quot . 34) (amp . 38) (rsquo . 39) (lt . 60) (gt . 62) (uarr . 94) (lsquo . 96) (lcub . 123) (rcub . 125) (tilde . 126) (nbsp . 160) (iexcl . 161) (cent . 162) (pound . 163) (curren . 164) (yen . 165) (brvbar . 166) (sect . 167) (uml . 168) (copy . 169) (ordf . 170) (laquo . 171) (not . 172) (shy . 173) (reg . 174) (macr . 175) (deg . 176) (plusmn . 177) (sup2 . 178) (sup3 . 179) (acute . 180) (micro . 181) (para . 182) (middot . 183) (cedil . 184) (sup1 . 185) (ordm . 186) (raquo . 187) (frac14 . 188) (frac12 . 189) (frac34 . 190) (iquest . 191) (Agrave . 192) (Aacute . 193) (Acirc . 194) (Atilde . 195) (Auml . 196) (Aring . 197) (AElig . 198) (Ccedil . 199) (Egrave . 200) (Eacute . 201) (Ecirc . 202) (Euml . 203) (Igrave . 204) (Iacute . 205) (Icirc . 206) (Iuml . 207) (ETH . 208) (Ntilde . 209) (Ograve . 210) (Oacute . 211) (Ocirc . 212) (Otilde . 213) (Ouml . 214) (times . 215) (Oslash . 216) (Ugrave . 217) (Uacute . 218) (Ucirc . 219) (Uuml . 220) (Yacute . 221) (THORN . 222) (szlig . 223) (agrave . 224) (aacute . 225) (acirc . 226) (atilde . 227) (auml . 228) (aring . 229) (aelig . 230) (ccedil . 231) (egrave . 232) (eacute . 233) (ecirc . 234) (euml . 235) (igrave . 236) (iacute . 237) (icirc . 238) (iuml . 239) (eth . 240) (ntilde . 241) (ograve . 242) (oacute . 243) (ocirc . 244) (otilde . 245) (ouml . 246) (divide . 247) (oslash . 248) (ugrave . 249) (uacute . 250) (ucirc . 251) (uuml . 252) (yacute . 253) (thorn . 254) (yuml . 255) (frac56 . "5/6") (frac16 . "1/6") (frac45 . "4/5") (frac35 . "3/5") (frac25 . "2/5") (frac15 . "1/5") (frac23 . "2/3") (frac13 . "1/3") (frac78 . "7/8") (frac58 . "5/8") (frac38 . "3/8") (frac18 . "1/8") (ndash . 45) (mdash . 45) (emsp . 32) (ensp . 32) (sim . 126) (le . "<=") (agr . "alpha") (rdquo . "''") (ldquo . "``") (trade . "(TM)")) (#$ . 1394))
#@92 A list of characters that are _NOT_ reserved in the URL spec.
This is taken from RFC 2396.
(defconst mm-url-unreserved-chars '(97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 48 49 50 51 52 53 54 55 56 57 45 95 46 33 126 42 39 40 41) (#$ . 3318))
#@34 Load `url-insert-file-contents'.
(defalias 'mm-url-load-url #[0 "\3001\301\302!\210\301\303!\210\301\304!0\202\210\305?\205\301\306!\207" [(error) require url-handlers url-parse url-vars nil url] 2 (#$ . 3702)])
#@99 Insert file contents of URL.
If `mm-url-use-external' is non-nil, use `mm-url-program'.

(fn URL)
(defalias 'mm-url-insert-file-contents #[257 "\203'\303\304\"\203\305
\306\225S\307O!\210\202\310
!\210eb\210\311
!\211\312 D\207\313 \210\n\307\314!\262
\212eb\210\315\316\307\317#\203D\320\321!\210\2025)
\211<\203Q\311
@!\207" [mm-url-use-external url-current-object buffer-file-name string-match "^file:/+" insert-file-contents 0 nil mm-url-insert-file-contents-external url-generic-parse-url buffer-size mm-url-load-url url-insert-file-contents re-search-forward "
 1000
 ?" t replace-match ""] 7 (#$ . 3926)])
#@63 Insert file contents of URL using `mm-url-program'.

(fn URL)
(defalias 'mm-url-insert-file-contents-external #[257 "\303\2119\203	\236A\211@\262\304
AC\"\266\202\202$\262\304\nC\"\262
\305\306\303\307\303&\310=?\2058\311\312\"\207" [mm-url-program mm-url-predefined-programs mm-url-arguments nil append apply call-process t 0 error "Couldn't fetch %s"] 10 (#$ . 4559)])
#@55 The number of seconds before timing out an URL fetch.
(defvar mm-url-timeout 30 (#$ . 4952))
#@62 The number of retries after timing out when fetching an URL.
(defvar mm-url-retries 10 (#$ . 5051))
#@151 Insert the contents from an URL in the current buffer.
If FOLLOW-REFRESH is non-nil, redirect refresh url in META.

(fn URL &optional FOLLOW-REFRESH)
(defalias 'mm-url-insert #[513 "\303\304\303S\211\262\305U\204p\204p\3062l\307	\303\310#\211\nB\311\312\"\216\2040\313\314Z\"\210\303\262\203^\214``}\210\315!\210eb\210\316\317\303\304#\203Z\320\321!ed|\210\322
\304\"\262\210)\202d\315!\262\304\211\262*\262
0\210\202\207" [mm-url-retries mm-url-timeout with-timeout-timers nil t 0 #1=#:timeout run-with-timer #[0 "\300\301\211\"\207" [throw #1#] 3] make-closure #[0 "\301\300!\207" [V0 cancel-timer] 2] message "Trying again (%s)..." mm-url-insert-file-contents re-search-forward "<meta[ 	
\n]*http-equiv=\"Refresh\"[^>]*URL=\\([^\"]+\\)\"" match-string 1 mm-url-insert] 11 (#$ . 5158)])
#@27 Decode all HTML entities.
(defalias 'mm-url-decode-entities #[0 "eb\210\302\303\304\305#\205h\306\307!\211\310H\311=\203J\211\307H\312=\203(\313
\314\304O\315\"\202.\313
\307\304O!\211\236A\2068\316
!\262
\317
!\203D\211\202E\311\262
\202T\320
!	\236A\206T\311\211;\204^\321
!\262
\322
\305\211#\266\202\207" [mm-extra-numeric-entities mm-url-html-entities re-search-forward "&\\(#[0-9]+\\|#x[0-9a-f]+\\|[a-z]+[0-9]*\\);" nil t match-string 1 0 35 120 string-to-number 2 16 mm-ucs-to-char characterp intern char-to-string replace-match] 6 (#$ . 5981)])
#@49 Decode all HTML entities and &nbsp; to a space.
(defalias 'mm-url-decode-entities-nbsp #[0 "\301B\302 )\207" [mm-url-html-entities (nbsp . 32) mm-url-decode-entities] 2 (#$ . 6554)])
#@15 

(fn STRING)
(defalias 'mm-url-decode-entities-string #[257 "\300\301\302\"r\211q\210\303\304\"\216
c\210\305 \210\306 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-url-decode-entities buffer-string] 5 (#$ . 6745)])
#@183 Escape characters in a string for application/x-www-form-urlencoded.
Blasphemous crap because someone didn't think %20 was good enough for encoding
spaces.  Die Die Die.

(fn CHUNK)
(defalias 'mm-url-form-encode-xwfu #[257 "\211:\203	\211A\262
\211\205\300\301\302\303!@\"\304#\207" [mapconcat #[257 "\211\301U\203\302\207\211>\203\303
!\207\304\305\"\226\207" [mm-url-unreserved-chars 32 "+" char-to-string format "%%%02x"] 4 "\n\n(fn CHAR)"] encode-coding-string find-coding-systems-string ""] 7 (#$ . 7047)])
#@45 Return PAIRS encoded for forms.

(fn PAIRS)
(defalias 'mm-url-encode-www-form-urlencoded #[257 "\300\301\302#\207" [mapconcat #[257 "\300
@!\301\300A!Q\207" [mm-url-form-encode-xwfu "="] 5 "\n\n(fn DATA)"] "&"] 5 (#$ . 7576)])
(autoload 'mml-compute-boundary "mml")
#@390 Return DATA encoded in multipart/form-data.
DATA is a list where the elements can have the following form:
  ("NAME" . "VALUE")
  ("submit")
  ("file" . (("name" . "NAME")
             ("filename" . "FILENAME")
             ("content-type" . "CONTENT-TYPE")
             ("filedata" . "FILEDATA")))
Lowercase strings above are literals and uppercase are not.

(fn DATA &optional BOUNDARY)
(defalias 'mm-url-encode-multipart-form-data #[513 "\211\204	\300\301!\262
\302\303\304\"r\211q\210\305\306\"\216\307\301!\210\211\203\224\211@\211@
A\310\311\261\210
\312\267\202{\313\314\315\316\"A\206=\315\317\"A#c\210\320c\210\313\321\315\322\"A\206S\323\"c\210\315\324\"A\211;\203g\211c\266\202\204\211\250\203q\325
!c\210\210\202\204\326c\210\202\204\313\327\"c\210\211c\210n\204\213\311c\210\266
A\266\202\202\210\310\330\261\210\331 *\207" [mml-compute-boundary nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte "--" "
\n" #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("file" 50 "submit" 117)) format "Content-Disposition: form-data; name=%S; filename=%S
\n" assoc "name" "filename" "Content-Transfer-Encoding: binary
\n" "Content-Type: %s
\n
\n" "content-type" "text/plain" "filedata" number-to-string "Content-Disposition: form-data; name=\"submit\"
\n
\nSubmit
\n" "Content-Disposition: form-data; name=%S
\n
\n" "--
\n" buffer-string] 13 (#$ . 7851)])
#@50 Remove all HTML markup, leaving just plain text.
(defalias 'mm-url-remove-markup #[0 "eb\210\300\301\302\303#\203\304\224\300\305\302\303#\206d|\210\202eb\210\306\307\302\303#\205/\310\311\303\211#\210\202\207" [search-forward "<!--" nil t 0 "-->" re-search-forward "<[^>]+>" replace-match ""] 5 (#$ . 9368)])
(provide 'mm-url)