erc-format-nick and znc

erc-format-nick and znc

[Cédric Chépied]

Hi,

I'm using erc to connect to my znc server. I now have an error each time I need
to display buffer playback:

Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  aref(nil 0)
  (memq (aref user 0) cl-struct-erc-server-user-tags)
  (and (memq (aref user 0) cl-struct-erc-server-user-tags))
  (or (and (memq (aref user 0) cl-struct-erc-server-user-tags)) (error "%s accessing a non-%s" (quote erc-server-user-nickname) (quote erc-server-user)))
  (progn (or (and (memq (aref user 0) cl-struct-erc-server-user-tags)) (error "%s accessing a non-%s" (quote erc-server-user-nickname) (quote erc-server-user))) (aref user 1))
  (let ((nick (progn (or (and (memq (aref user 0) cl-struct-erc-server-user-tags)) (error "%s accessing a non-%s" (quote erc-server-user-nickname) (quote erc-server-user))) (aref user 1)))) (concat (erc-propertize (erc-get-user-mode-prefix nick) (quote face) (quote erc-nick-prefix-face)) nick))
  erc-format-nick(nil nil)
  erc-server-PRIVMSG(#<process erc-localhost-2121> [cl-struct-erc-response ":***!znc@znc.in PRIVMSG #gnaaaapouet :Buffer Playback..." "***!znc@znc.in" "PRIVMSG" ("#gnaaaapouet" "Buffer Playback...") "Buffer Playback..."])
  run-hook-with-args-until-success(erc-server-PRIVMSG #<process erc-localhost-2121> [cl-struct-erc-response ":***!znc@znc.in PRIVMSG #gnaaaapouet :Buffer Playback..." "***!znc@znc.in" "PRIVMSG" ("#gnaaaapouet" "Buffer Playback...") "Buffer Playback..."])
  erc-call-hooks(#<process erc-localhost-2121> [cl-struct-erc-response ":***!znc@znc.in PRIVMSG #gnaaaapouet :Buffer Playback..." "***!znc@znc.in" "PRIVMSG" ("#gnaaaapouet" "Buffer Playback...") "Buffer Playback..."])
  erc-handle-parsed-server-response(#<process erc-localhost-2121> [cl-struct-erc-response ":***!znc@znc.in PRIVMSG #gnaaaapouet :Buffer Playback..." "***!znc@znc.in" "PRIVMSG" ("#gnaaaapouet" "Buffer Playback...") "Buffer Playback..."])
  erc-parse-server-response(#<process erc-localhost-2121> ":***!znc@znc.in PRIVMSG #gnaaaapouet :Buffer Playback...")
  erc-server-filter-function(#<process erc-localhost-2121> ":***!znc@znc.in PRIVMSG #gnaaaapouet :Buffer Playback...\n")
  read-event(nil t 1)
  sit-for(1)
  (while (consp --cl-var--) (setq network (car --cl-var--)) (znc-erc network) (sit-for 1) (setq --cl-var-- (cons network --cl-var--)) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((--cl-var-- (znc-walk-all-servers :each (quote znc-endpoint-slug))) (network nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq network (car --cl-var--)) (znc-erc network) (sit-for 1) (setq --cl-var-- (cons network --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))
  chep-all-erc()

I'm on master branch, commit 4d51f9c * ediff: Replace obsolete toggle-read-only
with read-only-mode

I fixed it with this code (just testing if user is non nil) and setting
erc-format-nick-function to my-erc-format-nick:

(defun my-erc-format-nick (&optional user _channel-data)
  "Return the nickname of USER.
See also `erc-format-nick-function'."
  (when user
  (let ((nick (erc-server-user-nickname user)))
    (concat (erc-propertize
             (erc-get-user-mode-prefix nick)
             'face 'erc-nick-prefix-face)
	    nick))))

-- 
Cédric Chépied
<cedric.chepied@gmail.com>