patch: bugfixes in rcirc.el (rcirc-default-user-full-name, rcirc-process-list)

[Daniel Brockman]

Here are a couple of tiny bugfixes for rcirc.

2006-05-31  Daniel Brockman  <address@hidden>

        * net/rcirc.el (rcirc-default-user-full-name): Default to
        `rcirc-default-user-name' instead of `rcirc-user-name' (which no
        longer exists).
        (rcirc-process-list): Check `buffer-live-p' before attempting to
        switch to a buffer.

Index: rcirc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/rcirc.el,v
retrieving revision 1.22
diff -c -r1.22 rcirc.el
*** rcirc.el    26 Apr 2006 03:09:31 -0000      1.22
--- rcirc.el    31 May 2006 05:36:35 -0000
***************
*** 74,80 ****
    :group 'rcirc)
  
  (defcustom rcirc-default-user-full-name (if (string= (user-full-name) "")
!                                           rcirc-user-name
                                          (user-full-name))
    "The full name sent to the server when connecting."
    :type 'string
--- 74,80 ----
    :group 'rcirc)
  
  (defcustom rcirc-default-user-full-name (if (string= (user-full-name) "")
!                                           rcirc-default-user-name
                                          (user-full-name))
    "The full name sent to the server when connecting."
    :type 'string
***************
*** 469,475 ****
    "Return a list of rcirc processes."
    (let (ps)
      (mapc (lambda (p)
!             (when (process-buffer p)
                (with-rcirc-process-buffer p
                  (when (eq major-mode 'rcirc-mode)
                    (setq ps (cons p ps))))))
--- 469,475 ----
    "Return a list of rcirc processes."
    (let (ps)
      (mapc (lambda (p)
!             (when (buffer-live-p (process-buffer p))
                (with-rcirc-process-buffer p
                  (when (eq major-mode 'rcirc-mode)
                    (setq ps (cons p ps))))))

-- 
Daniel Brockman <address@hidden>

   ``For any given feature, I don't care much about the
     people who find it useless --- I care more about
     the people who find it useful.'' --- Larry Wall