+ (let ((queue elmo-dop-queue)
+ new-queue match-queue que)
+ (while (setq que (car queue))
+ (if (and
+ (memq (elmo-dop-queue-method que)
+ elmo-dop-queue-merge-method-list)
+ (setq match-queue
+ (car (delete
+ nil
+ (mapcar
+ (lambda (nqueue)
+ (if (and
+ (string= (elmo-dop-queue-fname que)
+ (elmo-dop-queue-fname nqueue))
+ (string= (elmo-dop-queue-method que)
+ (elmo-dop-queue-method nqueue)))
+ nqueue))
+ new-queue)))))
+ (setcar (elmo-dop-queue-arguments match-queue)
+ (append (car (elmo-dop-queue-arguments match-queue))
+ (car (elmo-dop-queue-arguments que))))
+ (setq new-queue (nconc new-queue (list que))))
+ (setq queue (cdr queue)) )
+ (setq elmo-dop-queue new-queue)))