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-multi.el
diff --git
a/elmo/elmo-multi.el
b/elmo/elmo-multi.el
index
3f3cb47
..
5be1400
100644
(file)
--- a/
elmo/elmo-multi.el
+++ b/
elmo/elmo-multi.el
@@
-71,9
+71,9
@@
(dolist (fld (elmo-multi-folder-children-internal folder))
(elmo-folder-close-internal fld)))
(dolist (fld (elmo-multi-folder-children-internal folder))
(elmo-folder-close-internal fld)))
-(luna-define-method elmo-folder-close :around ((folder elmo-multi-folder))
+(luna-define-method elmo-folder-close :after ((folder elmo-multi-folder))
(dolist (fld (elmo-multi-folder-children-internal folder))
(dolist (fld (elmo-multi-folder-children-internal folder))
- (elmo-folder-close fld)))
+ (elmo-folder-set-msgdb-internal fld nil)))
(luna-define-method elmo-folder-expand-msgdb-path ((folder
elmo-multi-folder))
(luna-define-method elmo-folder-expand-msgdb-path ((folder
elmo-multi-folder))
@@
-609,10
+609,12
@@
(luna-define-method elmo-folder-unmark-read :before ((folder
elmo-multi-folder)
(luna-define-method elmo-folder-unmark-read :before ((folder
elmo-multi-folder)
- numbers)
+ numbers
+ &optional ignore-flag)
(dolist (folder-numbers (elmo-multi-make-folder-numbers-list folder numbers))
(elmo-folder-unmark-read (car folder-numbers)
(dolist (folder-numbers (elmo-multi-make-folder-numbers-list folder numbers))
(elmo-folder-unmark-read (car folder-numbers)
- (cdr folder-numbers))))
+ (cdr folder-numbers)
+ ignore-flag)))
(luna-define-method elmo-folder-mark-as-answered :before ((folder
elmo-multi-folder)
(luna-define-method elmo-folder-mark-as-answered :before ((folder
elmo-multi-folder)