Simplified.

diff --git a/lisp/riece-mcat.el b/lisp/riece-mcat.el
index 0e3f250..78affd8 100644 (file)
--- a/lisp/riece-mcat.el
+++ b/lisp/riece-mcat.el
@@ -63,12 +63,9 @@
        (setq files (cdr files)))
       (setq message-list (sort message-list #'string-lessp))
       (while message-list
-       (if (equal (car message-list)
-                  (nth 1 message-list))
-           (setq message-list (nthcdr 2 message-list))
-         (unless (assoc (car message-list) alist)
-           (setq alist (cons (list (car message-list)) alist)))
-         (setq message-list (cdr message-list))))
+       (unless (assoc (car message-list) alist)
+         (setq alist (cons (list (car message-list)) alist)))
+       (setq message-list (cdr message-list)))
       alist)))
 
 (defun riece-mcat-update (files mcat-file mcat-alist-symbol)