+(defun elmo-pipe-connect-signals (folder destination)
+ (elmo-connect-signal
+ destination 'flag-changing folder
+ (elmo-define-signal-handler (folder dst number old-flags new-flags)
+ (elmo-emit-signal 'flag-changing folder number old-flags new-flags)))
+ (elmo-connect-signal
+ destination 'flag-changed folder
+ (elmo-define-signal-handler (folder dst numbers)
+ (elmo-emit-signal 'flag-changed folder numbers)))
+ (elmo-connect-signal
+ destination 'status-changed folder
+ (elmo-define-signal-handler (folder dst numbers)
+ (elmo-emit-signal 'status-changed folder numbers)))
+ (elmo-connect-signal
+ destination 'update-overview folder
+ (elmo-define-signal-handler (folder dst number)
+ (elmo-emit-signal 'update-overview folder number))))
+