From 375e520904b2c7fa56ca3b3450a645d2d4cfc2f8 Mon Sep 17 00:00:00 2001 From: hmurata Date: Fri, 26 Sep 2003 18:40:43 +0000 Subject: [PATCH] * elmo.el (elmo-folder-kill-messages-before): Abolish. (elmo-folder-kill-messages-range): New function. (elmo-folder-synchronize): Use elmo-folder-kill-messages-range instead of elmo-folder-kill-messages-before. --- elmo/ChangeLog | 7 +++++++ elmo/elmo.el | 13 ++++++++----- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 239edc2..d3bc4b9 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,10 @@ +2003-09-26 Hiroya Murata + + * elmo.el (elmo-folder-kill-messages-before): Abolish. + (elmo-folder-kill-messages-range): New function. + (elmo-folder-synchronize): Use elmo-folder-kill-messages-range + instead of elmo-folder-kill-messages-before. + 2003-09-26 Yuuichi Teranishi * elmo-imap4.el (elmo-imap4-fetch-callback-1): Use diff --git a/elmo/elmo.el b/elmo/elmo.el index 17ee59c..f376681 100644 --- a/elmo/elmo.el +++ b/elmo/elmo.el @@ -1392,10 +1392,12 @@ FIELD is a symbol of the field.") (or result (and err (signal (car err) (cdr err)))))) -(defun elmo-folder-kill-messages-before (folder msg) +(defun elmo-folder-kill-messages-range (folder beg end) (elmo-folder-set-killed-list-internal folder - (list (cons 1 msg)))) + (nconc + (elmo-folder-killed-list-internal folder) + (list (cons beg end))))) (defun elmo-folder-kill-messages (folder numbers) "Kill(hide) messages in the FOLDER with NUMBERS." @@ -1461,9 +1463,10 @@ If update process is interrupted, return nil.") (when (and (not (eq (length (car diff)) (length new-list))) (setq diff-2 (elmo-list-diff (car diff) new-list))) - (elmo-folder-kill-messages-before folder - (nth (- (length (car diff-2)) 1) - (car diff-2)))) + (elmo-folder-kill-messages-range + folder + (car (car diff-2)) + (nth (- (length (car diff-2)) 1) (car diff-2)))) (setq delete-list (cadr diff)) (if (or (equal diff '(nil nil)) (equal diff '(nil)) -- 1.7.10.4