Re: `open-network-stream' in `nntp-open-network-stream': strange behaviour

[Jake Colman <colman@ppllc.com>]

How  are you using this fix?  Are you replacing gnus source?  I see exactly
the same bug when accessing my imap server.

>>>>> "CC" == Christoph Conrad <christoph.conrad@gmx.de> writes:

    CC> Hi!  Linux 2.2.14, i386, Emacs 20.7.1, latest CVS Oort Gnus.

    CC> I have the following problem since a few weeks now, a workaround i
    CC> found now is at the end of the mail.

    CC> When `open-network-stream' failed ONE time for a given host (cause i
    CC> am not online, host overloaded etc.), it fails forever in the same
    CC> emacs session. If i restart my Emacs, it works again.

    CC> This behaviour is ONLY as described when the hostname is a symbolic
    CC> name like "News.CIS.DFN.DE". When i always resolve the name to an ip
    CC> address before i give it as argument to `open-network-stream', it
    CC> works again after having failed.

    CC> I know that this isn't a genuine Gnus problem, it might be a problem
    CC> of `open-network-stream' or even my network configuration. Maybe you
    CC> could give me a hint. With the workaround below it works as expected.

    CC> (defun cc-resolve-address( domain )
    CC>   (save-excursion
    CC>     (let ((output-buf (generate-new-buffer " *resolve-address*")))
    CC>       (unwind-protect
    CC>           (progn
    CC>             (set-buffer output-buf) (and (eq (call-process
    CC>                       "/usr/bin/nslookup" nil output-buf nil
    CC>                       "-retries=1" domain)
    CC>                      0)
    CC>                  (> (point-max) 2) (goto-char (point-max)) (when
    CC>                  (re-search-backward (concat "^Name: [ ]*"
    CC>                                                    domain "\n"
    CC>                                                    "Address: [
    CC>                                                    ]*\\(.*\\)$")
    CC>                                            nil t)
    CC>                    (match-string 1))))
    CC>         ;; unwind-protect cleanup
    CC>         (kill-buffer output-buf)))))

    CC> (defun nntp-open-network-stream( buffer )
    CC>   (let ( (host nntp-address) )
    CC>     (when (not (string-match "[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+"
    CC>                              host))
    CC>       (setq host (cc-resolve-address host)))
    CC>     (if host
    CC>         (open-network-stream "nntpd" buffer host nntp-port-number)
    CC>       ;; kill buffer due to a possible bug in nntp-open-connection
    CC>       (kill-buffer buffer) (error "nntp-open-network-stream: couldn't
    CC>       resolve %s" nntp-address))))


    CC> Best regards, cu, -cc- -- => GNU Emacs Webring @
    CC> <http://nav.webring.yahoo.com/hub?ring=emacs> <= Look Ma, this man
    CC> can twist his fingers as if they were made of rubber, isn't that
    CC> amazing? -- Not really, he's been using emacs for years...!

-- 
Jake Colman                     

Principia Partners LLC                  Phone: (201) 946-0300
Harborside Financial Center               Fax: (201) 946-0320
902 Plaza II                           Beeper: (800) 928-4640
Jersey City, NJ 07311                  E-mail: colman@ppllc.com
                                       E-mail: jcolman@jnc.com
                                          web: http://www.ppllc.com

microsoft: "where do you want to go today?"
linux:     "where do you want to go tomorrow?"
BSD:       "are you guys coming, or what?"