X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-registry.el;h=e97b1e4abb33b1630678be02c9e3d85f1397944e;hb=e10a03076525b9c56c8079ea0261d734e62aaafb;hp=606317cd752d3a26e510a8985d393789b3c334ba;hpb=bb58610dc0061148843df9cebd2a912a813238e2;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 606317c..e97b1e4 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -300,7 +300,7 @@ The message must have at least one group name."
   "Put a specific entry in the extras field of the registry entry for id."
   (let* ((extra (gnus-registry-fetch-extra id))
 	 (alist (cons (cons key value)
-		 (assq-delete-all key (gnus-registry-fetch-extra id)))))
+		 (gnus-assq-delete-all key (gnus-registry-fetch-extra id)))))
     (gnus-registry-store-extra id alist)))
 
 (defun gnus-registry-fetch-group (id)