diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:00:05 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:00:05 +1100 |
| commit | fb5406aa9ab3dd37220636afe6202afd784c7b33 (patch) | |
| tree | 240355788827d829ba6f16dd6c884e60e98c89e4 /lisp/gnus/gnus-html.el | |
| parent | 980122794b41b728e6eb7aaa1054e14f746e1b1c (diff) | |
| download | emacs-fb5406aa9ab3dd37220636afe6202afd784c7b33.tar.gz emacs-fb5406aa9ab3dd37220636afe6202afd784c7b33.tar.bz2 emacs-fb5406aa9ab3dd37220636afe6202afd784c7b33.zip | |
Remove compat functions from gnus-html.el
* lisp/gnus/gnus-html.el (gnus-html-encode-url-chars): Remove.
Diffstat (limited to 'lisp/gnus/gnus-html.el')
| -rw-r--r-- | lisp/gnus/gnus-html.el | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index f3b5b96bfdb..6d6e094cc4f 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -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." |