Strange nntp port number?

[Kai Grossjohann <grossjoh@charly.informatik.uni-dortmund.de>]

Hi all,

suppose I wanted to write a backend nndb.el which is just like nntp.el
but connects on port 9000 by default rather than "nntp" (and also to
host localhost rather than the nntp host).

I have learned from inspecting nndir.el that I should write a function
nndb-execute-nntp-command which calls the nntp-functions, then use
this to redirect all nntp-* functions.

Right now, this is what nndb-execute-nntp-command looks like:

    (defun nndb-execute-nntp-command (command)
      (let ((nntp-port-number nndb-port-number)
            (nntp-address nndb-address))
        (eval command)))

I use this, among other places, in nndb-open-server:

    (defun nndb-open-server (server &optional defs connectionless)
      "Similar to nntp-open-server, but uses different port number
    and server address."
      (nnheader-set-init-variables nndb-server-variables defs)
      (nndb-execute-nntp-command
       `(nntp-open-server ,server ,defs ,connectionless)))

It doesn't work, though :-(

Lars has told me to do it that way, but I really don't seem to be able
to come up with something useful :-(  There must be a fundamental
error I'm making.

Thanks a lot in advance for your help,
kai
--
There ain't no cure for the summertime blues.