projects
/
elisp
/
wanderlust.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
3515ff5
)
* elmo-pipe.el (elmo-folder-open-internal): Check plugged before
author
hmurata
<hmurata>
Tue, 22 May 2001 00:19:56 +0000
(
00:19
+0000)
committer
hmurata
<hmurata>
Tue, 22 May 2001 00:19:56 +0000
(
00:19
+0000)
call `elmo-pipe-drain'.
elmo/ChangeLog
patch
|
blob
|
history
elmo/elmo-pipe.el
patch
|
blob
|
history
diff --git
a/elmo/ChangeLog
b/elmo/ChangeLog
index
5c690d8
..
38196c1
100644
(file)
--- a/
elmo/ChangeLog
+++ b/
elmo/ChangeLog
@@
-1,3
+1,8
@@
+2001-05-22 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp>
+
+ * elmo-pipe.el (elmo-folder-open-internal): Check plugged before
+ call `elmo-pipe-drain'.
+
2001-05-19 Masahiro MURATA <muse@ba2.so-net.ne.jp>
* elmo-mark.el (elmo-message-fetch-with-cache-process): Fixed
2001-05-19 Masahiro MURATA <muse@ba2.so-net.ne.jp>
* elmo-mark.el (elmo-message-fetch-with-cache-process): Fixed
diff --git
a/elmo/elmo-pipe.el
b/elmo/elmo-pipe.el
index
82cda99
..
b5d9237
100644
(file)
--- a/
elmo/elmo-pipe.el
+++ b/
elmo/elmo-pipe.el
@@
-108,8
+108,11
@@
(luna-define-method elmo-folder-open-internal ((folder elmo-pipe-folder))
(elmo-folder-open-internal (elmo-pipe-folder-dst-internal folder))
(luna-define-method elmo-folder-open-internal ((folder elmo-pipe-folder))
(elmo-folder-open-internal (elmo-pipe-folder-dst-internal folder))
- (elmo-pipe-drain (elmo-pipe-folder-src-internal folder)
- (elmo-pipe-folder-dst-internal folder)))
+ (let ((src-folder (elmo-pipe-folder-src-internal folder))
+ (dst-folder (elmo-pipe-folder-dst-internal folder)))
+ (when (and (elmo-folder-plugged-p src-folder)
+ (elmo-folder-plugged-p dst-folder))
+ (elmo-pipe-drain src-folder dst-folder))))
(luna-define-method elmo-folder-close-internal ((folder elmo-pipe-folder))
(elmo-folder-close-internal(elmo-pipe-folder-dst-internal folder)))
(luna-define-method elmo-folder-close-internal ((folder elmo-pipe-folder))
(elmo-folder-close-internal(elmo-pipe-folder-dst-internal folder)))