From fd5f7bbc4b61f28d63f0fba7f01ffaaff8384e86 Mon Sep 17 00:00:00 2001 From: Pedro Silva Date: Tue, 2 Apr 2013 12:19:16 +0100 Subject: Add new private var for tracking API level --- nnttrss.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/nnttrss.el b/nnttrss.el index 4e76d7f..d8fda47 100644 --- a/nnttrss.el +++ b/nnttrss.el @@ -20,6 +20,10 @@ (defvar nnttrss-session-id nil "Current session id, if any, set after successful login.") +(defvar nnttrss-api-level nil + "API version level, increased with each API functionality + change.") + ;;; Session management @@ -70,6 +74,13 @@ credentials. Returns a session id string or nil." address :status)) +(defun nnttrss-api-level (address session-id) + "Return an integer corresponding to the API level at ADDRESS + using SID credentials." + (nnttrss-post-request `(:op "getApiLevel" + :sid ,session-id) + address + :level)) -- cgit v1.2.3