- (if (string= the-id id)
- (progn
- (mime-method-to-store-message/partial
- (point-min)(point-max) parameters)
- (if (file-exists-p full-file)
- (throw 'tag nil)
- )
- ))
+ (when (string= the-id id)
+ (mime-store-message/partial-piece entity parameters)
+ (if (file-exists-p full-file)
+ (throw 'tag nil)
+ ))