diff options
Diffstat (limited to 'lisp/gnus/nnweb.el')
| -rw-r--r-- | lisp/gnus/nnweb.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/gnus/nnweb.el b/lisp/gnus/nnweb.el index a64f10f98a7..7b87502d0e0 100644 --- a/lisp/gnus/nnweb.el +++ b/lisp/gnus/nnweb.el @@ -1,6 +1,6 @@ ;;; nnweb.el --- retrieving articles via web search engines -;; Copyright (C) 1996-2018 Free Software Foundation, Inc. +;; Copyright (C) 1996-2019 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news @@ -109,7 +109,7 @@ Valid types include `google', `dejanews', and `gmane'.") (deffoo nnweb-request-scan (&optional group server) (nnweb-possibly-change-server group server) (if nnweb-ephemeral-p - (setq nnweb-hashtb (gnus-make-hashtable 4095)) + (setq nnweb-hashtb (gnus-make-hashtable 4000)) (unless nnweb-articles (nnweb-read-overview group))) (funcall (nnweb-definition 'map)) @@ -229,11 +229,11 @@ Valid types include `google', `dejanews', and `gmane'.") (nnheader-insert-nov (cadr (pop articles))))))) (defun nnweb-set-hashtb (header data) - (gnus-sethash (nnweb-identifier (mail-header-xref header)) + (puthash (nnweb-identifier (mail-header-xref header)) data nnweb-hashtb)) (defun nnweb-get-hashtb (url) - (gnus-gethash (nnweb-identifier url) nnweb-hashtb)) + (gethash (nnweb-identifier url) nnweb-hashtb)) (defun nnweb-identifier (ident) (funcall (nnweb-definition 'identifier) ident)) @@ -268,7 +268,7 @@ Valid types include `google', `dejanews', and `gmane'.") (unless nnweb-group-alist (nnweb-read-active)) (unless nnweb-hashtb - (setq nnweb-hashtb (gnus-make-hashtable 4095))) + (setq nnweb-hashtb (make-hash-table :size 4000 :test #'equal))) (when group (setq nnweb-group group))) |