* riece.el (riece-submit-bug-report): use

riece-server-process-opened instead of process-live-p.
* riece-server.el (riece-flush-send-queue): Use
riece-server-process-opened instead of process-live-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9493254..440d236 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2004-11-19  Daiki Ueno  <ueno@unixuser.org>
 
 2004-11-19  Daiki Ueno  <ueno@unixuser.org>
 

+       * riece.el (riece-submit-bug-report): use
+       riece-server-process-opened instead of process-live-p.
+       * riece-server.el (riece-flush-send-queue): Use
+       riece-server-process-opened instead of process-live-p.
+

        * riece-yank.el (riece-yank-strip-space): Bind space-width.
 
        * riece-xemacs.el (riece-recent-messages): New function.
        * riece-yank.el (riece-yank-strip-space): Bind space-width.
 
        * riece-xemacs.el (riece-recent-messages): New function.

diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 827b837..7512ae4 100644 (file)
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -174,7 +174,7 @@ the `riece-server-keyword-map' variable."
       (unless (riece-queue-empty riece-send-queue)
        (riece-run-at-time riece-send-delay nil
                           (lambda (process)
       (unless (riece-queue-empty riece-send-queue)
        (riece-run-at-time riece-send-delay nil
                           (lambda (process)

-                            (if (process-live-p process)
+                            (if (riece-server-process-opened process)

                                 (riece-flush-send-queue process)))
                           process)))))
 
                                 (riece-flush-send-queue process)))
                           process)))))
 

diff --git a/lisp/riece.el b/lisp/riece.el
index 4f646db..bda69c1 100644 (file)
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -586,7 +586,7 @@ are familiar with the debugger, to get a lisp back-trace.")
                                   (cdr (assoc (car (car pointer))
                                               riece-server-alist))))
                    "\n"
                                   (cdr (assoc (car (car pointer))
                                               riece-server-alist))))
                    "\n"

-                   (if (process-live-p (cdr (car pointer)))
+                   (if (riece-server-process-opened (cdr (car pointer)))

                        (save-excursion
                          (set-buffer (process-buffer (cdr (car pointer))))
                          (goto-char (point-max))
                        (save-excursion
                          (set-buffer (process-buffer (cdr (car pointer))))
                          (goto-char (point-max))