From: ueno <ueno>
Date: Sun, 8 Jun 2003 07:58:37 +0000 (+0000)
Subject: * riece-filter.el (riece-handle-numeric-reply): Don't decode messages.
X-Git-Tag: strict-naming-mergepoint~27
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b6a4afe0f7c2449bf4f726f25b3fe6e51ef504d0;p=elisp%2Friece.git

* riece-filter.el (riece-handle-numeric-reply): Don't decode messages.
(riece-handle-message): Ditto.
(riece-sentinel): Clear system here.

* riece-server.el (riece-server-process-name): New function.
(riece-server-process): New function.
(riece-close-server): Abolish.

* riece-identity.el: Adopt vector object representation for
identity objects.
(riece-with-identity-buffer): New macro.
(riece-decode-identity): New function.
(riece-encode-identity): New function.

* riece-globals.el (riece-process-list): New variable.
(riece-server-process-alist): Abolish.
(riece-channel-buffer-alist): Abolish.
(riece-user-list-buffer-alist): Abolish.
(riece-short-channel-indicator): New variable.

* riece-channel.el: Assume that we are already in the server buffer.
* riece-user.el: Likewise.
---

diff --git a/lisp/riece-globals.el b/lisp/riece-globals.el
index 6c77e86..4f1305d 100644
--- a/lisp/riece-globals.el
+++ b/lisp/riece-globals.el
@@ -25,10 +25,8 @@
 ;;; Code:
 
 ;;; Miscellaneous global variables:
-(defvar riece-server-process nil
-  "Primary server process.")
-(defvar riece-server-process-alist nil
-  "An alist mapping secondary server name to opened processes.")
+(defvar riece-process-list nil
+  "List of processes opened in the current session.")
 
 (defvar riece-current-channel nil
   "The channel you currently have joined.")
@@ -115,7 +113,9 @@ Local to the channel buffers.")
 (defvar riece-channel-indicator "None"
   "A modeline indicator of the current channel.")
 (defvar riece-channel-list-indicator "No channel"
-  "The current joined channels, \"pretty-printed.\".")
+  "A modeline indicator of the current joined channels.")
+(defvar riece-short-channel-indicator "None"
+  "A modeline indicator of the current channel.")
 (defvar riece-user-indicator nil)
 
 (defvar riece-away-indicator "-")
@@ -143,8 +143,6 @@ Local to the channel buffers.")
   "Format of user list buffer.")
 (defvar riece-wallops-buffer " *WALLOPS*")
 
-(defvar riece-channel-buffer-alist nil)
-(defvar riece-user-list-buffer-alist nil)
 (defvar riece-buffer-list nil)
 (defvar riece-overriding-server-name nil)