mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

Remove compat functions from gnus-html.el

Browse Source 
* lisp/gnus/gnus-html.el (gnus-html-encode-url-chars): Remove.
This commit is contained in:
Lars Ingebrigtsen 2016-02-13 17:00:05 +11:00
parent 980122794b
commit fb5406aa9a
1 changed files with 1 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/gnus/gnus-html.el
View File

@ -88,27 +88,9 @@ fit these criteria."
(define-key map [tab] 'widget-forward)
map))
(eval-and-compile
(defalias 'gnus-html-encode-url-chars
(if (fboundp 'browse-url-url-encode-chars)
'browse-url-url-encode-chars
(lambda (text chars)
"URL-encode the chars in TEXT that match CHARS.
CHARS is a regexp-like character alternative (e.g., \"[)$]\")."
(let ((encoded-text (copy-sequence text))
(s 0))
(while (setq s (string-match chars encoded-text s))
(setq encoded-text
(replace-match (format "%%%x"
(string-to-char
(match-string 0 encoded-text)))
t t encoded-text)
s (1+ s)))
encoded-text)))))
(defun gnus-html-encode-url (url)
"Encode URL."
(gnus-html-encode-url-chars url "[)$ ]"))
(browse-url-url-encode-chars url "[)$ ]"))
(defun gnus-html-cache-expired (url ttl)
"Check if URL is cached for more than TTL."