- (file-exists-p cache-file))
- (if (and (elmo-cache-path-section-p cache-file)
- (eq (elmo-fetch-strategy-entireness strategy) 'entire))
- (error "Entire message is not cached.")
- (insert-file-contents-as-binary cache-file))
+ (file-exists-p cache-file)
+ (or (not (elmo-cache-path-section-p cache-file))
+ (not (eq (elmo-fetch-strategy-entireness strategy) 'entire))))
+ (insert-file-contents-as-binary cache-file)