projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* elmo.el (elmo-folder-list-unreads): Don't use msgdb API.
[elisp/wanderlust.git]
/
elmo
/
elmo-sendlog.el
diff --git
a/elmo/elmo-sendlog.el
b/elmo/elmo-sendlog.el
index
de753f8
..
c8cbbc4
100644
(file)
--- a/
elmo/elmo-sendlog.el
+++ b/
elmo/elmo-sendlog.el
@@
-81,7
+81,7
@@
(elmo-map-message-location folder number)))
(luna-define-method elmo-folder-msgdb-create ((folder elmo-sendlog-folder)
(elmo-map-message-location folder number)))
(luna-define-method elmo-folder-msgdb-create ((folder elmo-sendlog-folder)
- numbers seen-list)
+ numbers flag-table)
(let ((i 0)
(len (length numbers))
overview number-alist mark-alist entity message-id
(let ((i 0)
(len (length numbers))
overview number-alist mark-alist entity message-id
@@
-107,8
+107,11
@@
num
message-id))
(if (setq mark (or (elmo-msgdb-global-mark-get message-id)
num
message-id))
(if (setq mark (or (elmo-msgdb-global-mark-get message-id)
- (if (member message-id seen-list) nil
- elmo-msgdb-new-mark)))
+ (elmo-msgdb-mark
+ (elmo-flag-table-get flag-table message-id)
+ (elmo-file-cache-status
+ (elmo-file-cache-get message-id))
+ 'new)))
(setq mark-alist
(elmo-msgdb-mark-append
mark-alist
(setq mark-alist
(elmo-msgdb-mark-append
mark-alist