- (setq message-list (sort message-list #'string-lessp))
- (while message-list
- (unless (assoc (car message-list) alist)
- (setq alist (cons (list (car message-list)) alist)))
- (setq message-list (cdr message-list)))
- alist)))
+ (setq message-list (sort message-list #'string-lessp)
+ pointer message-list)
+ (while pointer
+ (if (member (car pointer) (cdr pointer))
+ (setcar pointer nil))
+ (setq pointer (cdr pointer)))
+ (delq nil message-list))))