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))))))