- (elmo-move-msgs src srclist dst msgdb)
- ;; Don't save msgdb here.
- ;; Because summary view of original folder is not updated yet.
- ;; (elmo-msgdb-save src msgdb)
- (elmo-commit src)
+ (let ((srclist (elmo-list-folder src))
+ (msgdb (elmo-msgdb-load src)))
+ (elmo-move-msgs src srclist dst msgdb)
+ ;; Don't save msgdb here.
+ ;; Because summary view of original folder is not updated yet.
+ ;; (elmo-msgdb-save src msgdb)
+ (elmo-commit src))