From ccbdfabea0739238270cb708002d8e0f0a5cb272 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Sun, 21 Jan 2007 04:20:48 +0000 Subject: [PATCH] Simplified. --- lisp/riece-mcat.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lisp/riece-mcat.el b/lisp/riece-mcat.el index 0e3f250..78affd8 100644 --- 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) -- 2.34.1