riece-data-directory)
riece-async-server-program-arguments)))
(if buffer
- (save-excursion
- (set-buffer (process-buffer process))
+ (with-current-buffer (process-buffer process)
(while (and (eq (process-status process) 'run)
(progn
(goto-char (point-min))
(not (looking-at (format "NOTICE CONNECTED %d"
(process-id process))))))
(accept-process-output process))))
- (process-kill-without-query process)
+ (riece-set-process-query-on-exit-flag process nil)
process))
(defun riece-async-insinuate ()