From 8619238b902483ab5daad292fff97bc70d4828f5 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 15 Jul 2004 13:50:35 +0000 Subject: [PATCH] * elmo-archive.el (elmo-archive-folder-append-buffer): Return nil on failure. --- elmo/ChangeLog | 5 +++++ elmo/elmo-archive.el | 14 +++++++------- 2 files changed, 12 insertions(+), 7 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index b8387f1..44125e8 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2004-07-15 Yoichi NAKAYAMA + + * elmo-archive.el (elmo-archive-folder-append-buffer): Return nil + on failure. + 2004-07-15 Hiroya Murata * elmo-util.el (elmo-set-work-buf): Define edebug spec and indent diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el index 47beb91..b7e7b44 100644 --- a/elmo/elmo-archive.el +++ b/elmo/elmo-archive.el @@ -616,13 +616,13 @@ TYPE specifies the archiver's symbol." (copy-to-buffer dst-buffer (point-min) (point-max))) (as-binary-output-file (write-region (point-min) (point-max) newfile nil 'no-msg)) - (elmo-archive-call-method method (list arc newfile)) - (elmo-folder-preserve-flags - folder - (with-current-buffer src-buffer - (elmo-msgdb-get-message-id-from-buffer)) - flags) - t) + (when (elmo-archive-call-method method (list arc newfile)) + (elmo-folder-preserve-flags + folder + (with-current-buffer src-buffer + (elmo-msgdb-get-message-id-from-buffer)) + flags) + t)) nil)))))) (luna-define-method elmo-folder-append-messages :around -- 1.7.10.4