- (let ((pairs (car history)))
- (while pairs
- (if (string= (car (car pairs)) group)
- (setcar pairs (cdr pairs))
- (setq pairs (cdr pairs)))))
- (setq history (cdr history))))
- (setq nnmail-split-history (delq nil nnmail-split-history)))
+ (setcar history (delete-if (lambda (e) (string= (car e) group))
+ (car history)))
+ (pop history))
+ (setq nnmail-split-history (delq nil nnmail-split-history))))