From 438485f6fa836524325ed69a824ed067cb395e8b Mon Sep 17 00:00:00 2001 From: okazaki Date: Sat, 24 Apr 2004 18:45:24 +0000 Subject: [PATCH] (elmo-message-folder): Call `elmo-message-folder' recursively. (elmo-folder-diff): Avoid error `wrong-type-argument number-or-marker-p nil' when a destination folder is a filter folder. --- elmo/elmo-pipe.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el index 33f0f64..3229ac3 100644 --- a/elmo/elmo-pipe.el +++ b/elmo/elmo-pipe.el @@ -176,8 +176,8 @@ ((consp (cdr dst-diff)) ; new unread all (mapcar (lambda (number) (+ number src-length)) dst-diff)) (t - (cons (+ (car dst-diff) src-length) - (+ (cdr dst-diff) src-length)))) + (cons (+ (or (car dst-diff) 0) src-length) + (+ (or (cdr dst-diff) 0) src-length)))) ;; No save. (elmo-folder-close-internal (elmo-pipe-folder-src-internal folder)) (elmo-folder-close-internal (elmo-pipe-folder-dst-internal folder))))) @@ -362,7 +362,7 @@ (luna-define-method elmo-message-folder ((folder elmo-pipe-folder) number) - (elmo-pipe-folder-dst-internal folder)) + (elmo-message-folder (elmo-pipe-folder-dst-internal folder) number)) (require 'product) (product-provide (provide 'elmo-pipe) (require 'elmo-version)) -- 1.7.10.4