* riece-handle.el (riece-handle-nick-message): Remove nil from
authorueno <ueno>
Sun, 15 Aug 2004 01:01:14 +0000 (01:01 +0000)
committerueno <ueno>
Sun, 15 Aug 2004 01:01:14 +0000 (01:01 +0000)
channel buffers.
(riece-handle-quit-message): Ditto.
(riece-handle-kill-message): Ditto.

* riece-misc.el (riece-concat-server-name): Put 'riece-server-name
property on "(from XXX)".

lisp/ChangeLog
lisp/riece-handle.el
lisp/riece-misc.el

index dfbdbad..e61d41b 100644 (file)
@@ -1,3 +1,13 @@
+2004-08-15  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-handle.el (riece-handle-nick-message): Remove nil from
+       channel buffers.
+       (riece-handle-quit-message): Ditto.
+       (riece-handle-kill-message): Ditto.
+
+       * riece-misc.el (riece-concat-server-name): Put 'riece-server-name
+       property on "(from XXX)".
+
 2004-07-29  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-menu.el: Do not support enable/disable addon since
index 75b88be..628d356 100644 (file)
     (riece-naming-assert-rename old new)
     (if (riece-identity-member old-identity riece-current-channels)
        (setq channels (cons new channels)))
-    (riece-insert-change (mapcar
-                         (lambda (channel)
-                           (riece-channel-buffer (riece-make-identity
-                                                  channel riece-server-name)))
-                         channels)
+    (riece-insert-change (delq nil (mapcar
+                                   (lambda (channel)
+                                     (riece-channel-buffer
+                                      (riece-make-identity
+                                       channel riece-server-name)))
+                                   channels))
                         (format "%s -> %s\n"
                                 (riece-format-identity old-identity t)
                                 (riece-format-identity new-identity t)))
       (riece-naming-assert-part user (car pointer))
       (setq pointer (cdr pointer)))
     (let ((buffers
-          (mapcar
-           (lambda (channel)
-             (riece-channel-buffer (riece-make-identity channel
-                                                        riece-server-name)))
-           channels)))
+          (delq nil (mapcar
+                     (lambda (channel)
+                       (riece-channel-buffer (riece-make-identity
+                                              channel riece-server-name)))
+                     channels))))
       (riece-insert-change
        buffers
        (concat
       (riece-naming-assert-part user (car pointer))
       (setq pointer (cdr pointer)))
     (let ((buffers
-          (mapcar
-           (lambda (channel)
-             (riece-channel-buffer (riece-make-identity channel
-                                                        riece-server-name)))
-           channels)))
+          (delq nil (mapcar
+                     (lambda (channel)
+                       (riece-channel-buffer (riece-make-identity
+                                              channel riece-server-name)))
+                     channels))))
       (riece-insert-change
        buffers
        (concat
index 12013e4..52c44a5 100644 (file)
 (defun riece-concat-server-name (string)
   (if (equal riece-server-name "")
       string
-    (concat string " (from " riece-server-name ")")))
+    (let ((server-name (concat " (from " riece-server-name ")")))
+      (put-text-property 0 (length server-name)
+                        'riece-server-name riece-server-name
+                        server-name)
+      (concat string server-name))))
 
 (defun riece-concat-user-status (status string)
   (if status