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.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index cc5446d2dca4a1ec5b35235c5d73ed039578cee8..adf3829a1b3ea5994f53e19f570ac922b62a2792 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+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>
 
        * gnus-score.el (gnus-score-body): Don't score body when

diff --git a/lisp/gnus/nnweb.el b/lisp/gnus/nnweb.el
index 54ed5a56fc84ff30e26e6b402c0cef17bfe0eac8..c4ff7248e6bcad5d2b9858dbc01300848d61c407 100644 (file)
--- a/lisp/gnus/nnweb.el
+++ b/lisp/gnus/nnweb.el
@@ -350,9 +350,13 @@ and `altavista'.")
       (setq url-current-callback-data data
            url-be-asynchronous t
            url-current-callback-func callback)
-      (url-retrieve url))
+      (url-retrieve url nil))
     (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.
 ;;;
@@ -723,16 +727,17 @@ and `altavista'.")
   "Decode all HTML entities."
   (goto-char (point-min))
   (while (re-search-forward "&\\(#[0-9]+\\|[a-z]+\\);" nil t)
-    (replace-match (char-to-string 
-                   (if (eq (aref (match-string 1) 0) ?\#)
+    (let ((elem (if (eq (aref (match-string 1) 0) ?\#)
                        (let ((c
                               (string-to-number (substring 
                                                  (match-string 1) 1))))
                          (if (mm-char-or-char-int-p c) c 32))
                      (or (cdr (assq (intern (match-string 1))
                                     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)
   (with-temp-buffer