From: 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/gitweb/?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)