erc.el: Fix regression - Bug #18551

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 837203f305ca652c5c8fa873822dd7a9fa1ebc3c..b5dd3f2f3593b291a9b263db7888c200aa2c3306 100644 (file)
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,7 @@
+2014-09-26  Kelvin White  <kwhite@gnu.org>
+
+       * erc.el (erc-format-nick): Fix code regression - Bug #18551
+
 2014-09-25  Kelvin White  <kwhite@gnu.org>
 
        * erc.el: Follow Emacs version instead of tracking it seperately.

diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index f4d9dd3c65226182ec277e03a14664a99f0a1110..1c832a5fdfa57e0e223167b9f35d339837595d1c 100644 (file)
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -4225,11 +4225,12 @@ and as second argument the event parsed as a vector."
 (defun erc-format-nick (&optional user _channel-data)
   "Return the nickname of USER.
 See also `erc-format-nick-function'."
-  (let ((nick (erc-server-user-nickname user)))
+  (when user
+    (let ((nick (erc-server-user-nickname user)))
     (concat (erc-propertize
              (erc-get-user-mode-prefix nick)
              'face 'erc-nick-prefix-face)
-           nick)))
+           nick))))
 
 (defun erc-get-user-mode-prefix (user)
   (when user