Commit cd942edc authored by Dave Love's avatar Dave Love
Browse files

2000-11-09 Lars Magne Ingebrigtsen <larsi@gnus.org>

	* nnweb.el (nnweb-decode-entities): Work for non-character
	entities.

2000-10-08 10:59:13  ShengHuo ZHU  <zsh@cs.rochester.edu>

        * nnweb.el (nnweb-url-retrieve-asynch): url-retrieve is
        asynchronous in Exp version.
parent 62e8183e
2000-11-09 Simon Josefsson <simon@josefsson.org>
* rfc2104.el: Add SHA-1 example.
(rfc2104-hexstring-to-bitstring): New function.
(rfc2104-hash): Use it.
2000-11-08 ShengHuo ZHU <zsh@cs.rochester.edu> 2000-11-08 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-score.el (gnus-score-body): Don't score body when * gnus-score.el (gnus-score-body): Don't score body when
......
...@@ -350,9 +350,13 @@ and `altavista'.") ...@@ -350,9 +350,13 @@ and `altavista'.")
(setq url-current-callback-data data (setq url-current-callback-data data
url-be-asynchronous t url-be-asynchronous t
url-current-callback-func callback) url-current-callback-func callback)
(url-retrieve url)) (url-retrieve url nil))
(setq-default url-be-asynchronous old-asynch))) (setq-default url-be-asynchronous old-asynch)))
(if (fboundp 'url-retrieve-synchronously)
(defun nnweb-url-retrieve-asynch (url callback &rest data)
(url-retrieve url callback data)))
;;; ;;;
;;; DejaNews functions. ;;; DejaNews functions.
;;; ;;;
...@@ -723,16 +727,17 @@ and `altavista'.") ...@@ -723,16 +727,17 @@ and `altavista'.")
"Decode all HTML entities." "Decode all HTML entities."
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "&\\(#[0-9]+\\|[a-z]+\\);" nil t) (while (re-search-forward "&\\(#[0-9]+\\|[a-z]+\\);" nil t)
(replace-match (char-to-string (let ((elem (if (eq (aref (match-string 1) 0) ?\#)
(if (eq (aref (match-string 1) 0) ?\#)
(let ((c (let ((c
(string-to-number (substring (string-to-number (substring
(match-string 1) 1)))) (match-string 1) 1))))
(if (mm-char-or-char-int-p c) c 32)) (if (mm-char-or-char-int-p c) c 32))
(or (cdr (assq (intern (match-string 1)) (or (cdr (assq (intern (match-string 1))
w3-html-entities)) w3-html-entities))
?#))) ?#))))
t t))) (unless (stringp elem)
(setq elem (char-to-string elem)))
(replace-match elem t t))))
(defun nnweb-decode-entities-string (str) (defun nnweb-decode-entities-string (str)
(with-temp-buffer (with-temp-buffer
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment