From: ueno <ueno>
Date: Sun, 21 Jan 2007 04:20:48 +0000 (+0000)
Subject: Simplified.
X-Git-Tag: riece-3_1_2~28
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6d7051cd0e0b2c4cbd38ba31f0fa293ac1f9382d;p=elisp%2Friece.git

Simplified.
---

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)