Hrvoje Niksic <hniksic(a)srce.hr> wrote:
Andrew J Cosgriff <ajc(a)bing.wattle.id.au> writes:
> looks like it's open-network-stream (or -internal) that's
causing all my
> grief - anything else i've tried (zenirc, ldap-search, etc.) exhibits a
> similar problem -
>
> Signaling: (wrong-type-argument stringp open-network-stream-internal)
> string-match("^Unknown host" open-network-stream-internal)
> byte-code("..." [string-match "^Unknown host" data
zenirc-message buffer
> conn$
> zenirc-establish-server-connection(#<buffer "*zenirc*">)
> zenirc(nil)
Try loading uncompiled zenirc (something like (load "zenirc.el")) and
getting the backtrace.
(apologies for the wide text...)
Signaling: (wrong-type-argument stringp open-network-stream-internal)
string-match("^Unknown host" open-network-stream-internal)
(if (string-match "^Unknown host" (nth 1 data)) (zenirc-message buffer (quote
connect-failed) server port (nth 1 data)) (apply (quote signal) data))
)
(condition-case data (progn (zenirc-message buffer ... server port) (sit-for 0) (setq
proc ...) (force-mode-line-update) (setq alist nil) (setq zenirc-server
s$
)
(while alist (setq ent (car alist)) (setq alist (cdr alist)) (setq server (or ... ...
zenirc-server-default ...)) (setq port (or ... ... zenirc-port-default
66$
)
(let ((procname ...) ent server port proc) (while alist (setq ent ...) (setq alist ...)
(setq server ...) (setq port ...) (condition-case data ... ... ...
...)$
)
(save-excursion (set-buffer buffer) (or alist (setq alist zenirc-server-alist) (setq
alist ...)) (let (... ent server port proc) (while alist ... ... ... ...
.$
)
zenirc-establish-server-connection(#<buffer "*zenirc*">)
(setq process (zenirc-establish-server-connection zenirc-buffer))
)
(or (setq process (zenirc-establish-server-connection zenirc-buffer)) (error
"zenirc: could not establish any server connection."))
)
(cond ((and process ...)) (t (zenirc-mode) (or zenirc-server-alist ...) (setq
zenirc-unprocessed-output "") (setq zenirc-current-victim nil) (setq
zenirc-time-$
)
(let* ((zenirc-buffer ...) (process ...)) (pop-to-buffer zenirc-buffer) (cond (...) (t
... ... ... ... ... ... ... ... ... ... ... ... ...)))
)
zenirc(nil)
call-interactively(zenirc)
command-execute(zenirc t)
execute-extended-command(nil)
call-interactively(execute-extended-command)
Where zenirc calls open-network-stream, it's like so :
;; Do a redisplay before connecting, in case the server is
;; slow to respond.
(sit-for 0)
(setq proc (funcall zenirc-process-connect-function
procname buffer server port))
- zenirc-process-connect-function is set to open-network-stream
- procname, buffer, server and port seem to be set to :
"zenirc:*zenirc*" #<buffer "*zenirc*">
"irc.stealth.net" 6667
oh, and telling it to use an ip address instead of a hostname doesn't seem to
help either, as someone else suggested to me...
hmm.
--
Andrew J Cosgriff <ajc(a)bing.wattle.id.au> exterminate all rational thought !
celsius red metal guest eat