From: ueno <ueno>
Date: Sun, 24 Aug 2003 01:40:00 +0000 (+0000)
Subject: * riece-300.el (riece-handle-319-message): New handler.
X-Git-Tag: riece-0_1_0~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=19dfa4e07f2263c8e0ec67420ffb4b09930d0190;p=elisp%2Friece.git

* riece-300.el (riece-handle-319-message): New handler.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b26804e..595e47a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2003-08-24  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-300.el (riece-handle-319-message): New handler.
+
+	* riece.el (riece-buffer-mode-alist): Add riece-command-buffer.
+	(riece): Signal an error when a server is opened;
+	No need to initialize riece-command-buffer specially.
+
 2003-08-22  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* riece-display.el (riece-configure-windows-top): Set
diff --git a/lisp/riece-300.el b/lisp/riece-300.el
index 499a98f..4d8b1b0 100644
--- a/lisp/riece-300.el
+++ b/lisp/riece-300.el
@@ -176,6 +176,34 @@
 		   idle))
 	  "\n")))))
 
+(defun riece-handle-319-message (prefix number name string)
+  (if (string-match (concat "^\\(" riece-user-regexp "\\) :") string)
+      (let ((user (match-string 1 string))
+	    (channels
+	     (mapconcat
+	      (lambda (channel)
+		(if (string-match
+		     (concat "^\\([@+]?\\)\\(" riece-channel-regexp "\\)")
+		     channel)
+		    (concat
+		     (match-string 1 channel)
+		     (riece-format-identity
+		      (riece-make-identity (match-string 2 channel)
+					   riece-server-name)
+		      t))))
+	      (split-string (substring string (match-end 0)) " ")
+	      " ")))
+	(riece-insert-info
+	 (list riece-dialogue-buffer riece-others-buffer)
+	 (concat
+	  (riece-concat-server-name
+	   (format "%s: %s"
+		   (riece-format-identity
+		    (riece-make-identity user riece-server-name)
+		    t)
+		   channels))
+	  "\n")))))
+
 (defun riece-handle-351-message (prefix number name string)
   (if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :" string)
       (riece-insert-info