[beirc-cvs] CVS beirc

[rgoldman]

Update of /project/beirc/cvsroot/beirc
In directory clnet:/tmp/cvs-serv16234

Modified Files:
	message-display.lisp 
Log Message:
Changed offer-reconnect to honor realname setting.

--- /project/beirc/cvsroot/beirc/message-display.lisp	2006/04/19 02:53:48	1.47
+++ /project/beirc/cvsroot/beirc/message-display.lisp	2006/04/26 18:23:16	1.48
@@ -501,8 +501,9 @@
 (defun offer-reconnect (receiver)
   (let* ((conn (connection receiver))
          (server (irc:server-name conn))
-         (nickname (irc:nickname (irc:user conn))))
-    (with-output-as-presentation (t `(com-connect ,server :nick ,nickname) 'command)
+         (nickname (irc:nickname (irc:user conn)))
+	 (realname (irc:realname (irc:user conn))))
+    (with-output-as-presentation (t `(com-connect ,server :nick ,nickname :realname ,realname) 'command)
       (with-drawing-options (*standard-output* :ink +grey12+ :text-size :small)
         (format-message* (format nil "Click here to reconnect to ~A as ~A" server nickname))))))