Fixed a typo.

[riece] / lisp / riece-mcat.el

diff --git a/lisp/riece-mcat.el b/lisp/riece-mcat.el
index e1b5cbb..99cfc9e 100644 (file)
--- a/lisp/riece-mcat.el
+++ b/lisp/riece-mcat.el
@@ -38,7 +38,7 @@
     (while pointer
       (if (equal (car pointer)
                 (nth 1 pointer))
-         (setcdr pointer (nth 2 pointer))
+         (setcdr pointer (nthcdr 2 pointer))
        (unless (assoc (car pointer) alist)
          (setq alist (cons (list (car pointer)) alist))))
       (setq pointer (cdr pointer)))