projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* elmo-msgdb.el (elmo-msgdb-get-message-id-from-buffer): Added
[elisp/wanderlust.git]
/
elmo
/
elmo-mime.el
diff --git
a/elmo/elmo-mime.el
b/elmo/elmo-mime.el
index
498944c
..
9efb463
100644
(file)
--- a/
elmo/elmo-mime.el
+++ b/
elmo/elmo-mime.el
@@
-1,4
+1,4
@@
-;;; elmo-mime.el -- MIME module for ELMO.
+;;; elmo-mime.el --- MIME module for ELMO.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
@@
-260,7
+260,8
@@
Return non-nil if cache is used."
cache-file strategy use-cache)
(setq cache-file (elmo-file-cache-get
(elmo-msgdb-overview-entity-get-id entity)))
cache-file strategy use-cache)
(setq cache-file (elmo-file-cache-get
(elmo-msgdb-overview-entity-get-id entity)))
- (setq use-cache (eq (elmo-file-cache-status cache-file) 'entire))
+ (setq use-cache (and (elmo-message-use-cache-p folder number)
+ (eq (elmo-file-cache-status cache-file) 'entire)))
(setq strategy (elmo-make-fetch-strategy
'entire use-cache (elmo-message-use-cache-p folder number)
(elmo-file-cache-path
(setq strategy (elmo-make-fetch-strategy
'entire use-cache (elmo-message-use-cache-p folder number)
(elmo-file-cache-path
@@
-327,4
+328,4
@@
Return non-nil if cache is used."
(require 'product)
(product-provide (provide 'elmo-mime) (require 'elmo-version))
(require 'product)
(product-provide (provide 'elmo-mime) (require 'elmo-version))
-;; elmo-mime.el ends here
\ No newline at end of file
+;; elmo-mime.el ends here