From 68819187129126e5cfb9aa0cf0249f98cddc375c Mon Sep 17 00:00:00 2001 From: David Engster Date: Fri, 22 Feb 2013 21:25:09 +0100 Subject: [PATCH] * gnus-registry.el (gnus-registry-save): Provide class name when calling `eieio-persistent-read' to avoid "unsafe call" warning. Use `condition-case' to stay compatible with older EIEIO versions which only accept one argument. --- lisp/ChangeLog | 7 +++++++ lisp/gnus-registry.el | 9 +++++++-- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 85371d7a4..57b9c896a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2013-02-22 David Engster + + * gnus-registry.el (gnus-registry-save): Provide class name when + calling `eieio-persistent-read' to avoid "unsafe call" warning. Use + `condition-case' to stay compatible with older EIEIO versions which + only accept one argument. + 2013-02-17 Daiki Ueno * mml2015.el (epg-key-user-id-list, epg-user-id-string) diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el index e808b1975..829734f17 100644 --- a/lisp/gnus-registry.el +++ b/lisp/gnus-registry.el @@ -296,8 +296,13 @@ This is not required after changing `gnus-registry-cache-file'." (condition-case nil (progn (gnus-message 5 "Reading Gnus registry from %s..." file) - (setq gnus-registry-db (gnus-registry-fixup-registry - (eieio-persistent-read file))) + (setq gnus-registry-db + (gnus-registry-fixup-registry + (condition-case nil + (eieio-persistent-read file 'registry-db) + ;; Older EIEIO versions do not check the class name. + ('wrong-number-of-arguments + (eieio-persistent-read file))))) (gnus-message 5 "Reading Gnus registry from %s...done" file)) (error (gnus-message -- 2.25.1