- (if (or (file-exists-p (elmo-folder-msgdb-path
- (elmo-pipe-folder-dst-internal new-folder)))
- (elmo-folder-exists-p
- (elmo-pipe-folder-dst-internal new-folder)))
- (error "Already exists folder: %s" new-name))
- (elmo-folder-send (elmo-pipe-folder-dst-internal folder)
- 'elmo-folder-rename-internal
- (elmo-pipe-folder-dst-internal new-folder))
+ (elmo-folder-rename (elmo-pipe-folder-dst-internal folder)
+ (elmo-folder-name-internal
+ (elmo-pipe-folder-dst-internal new-folder)))
+ (elmo-global-flag-replace-referrer (elmo-folder-name-internal folder)
+ new-name)