From 445e7a114b389bb06b634e57db665a1fb2491fd4 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 12 Jul 2002 07:12:44 +0000 Subject: [PATCH] * elmo-split.el (elmo-split): Fixed logic. Display "Test:" instead of "Folder:" when reharsal. --- elmo/ChangeLog | 2 ++ elmo/elmo-split.el | 33 ++++++++++++++++++--------------- 2 files changed, 20 insertions(+), 15 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 6d4d6f0..92f1289 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,6 +1,8 @@ 2002-07-12 Yuuichi Teranishi * elmo-split.el: New file. + (elmo-split): Fixed logic. + Display "Test:" instead of "Folder:" when reharsal. * elmo-imap4.el (elmo-folder-append-buffer): Set flag as empty explicitly. diff --git a/elmo/elmo-split.el b/elmo/elmo-split.el index a92a71e..d18b590 100644 --- a/elmo/elmo-split.el +++ b/elmo/elmo-split.el @@ -256,21 +256,24 @@ If prefix argument ARG is specified, do a reharsal (no harm)." (incf fcount))) (unless failure (ignore-errors - (elmo-folder-delete-messages folder (list msg))) - (elmo-split-log - (concat "From " - (nth 1 (std11-extract-address-components - (or (std11-field-body "from") ""))) - " " (or (std11-field-body "date") "") "\n" - " Subject: " - (eword-decode-string (or (std11-field-body - "subject") "")) - "\n" - " Folder: " fname "/0" "\n") - reharsal) - (incf count)) - (unless (eq (nth 2 rule) 'continue) - (throw 'terminate nil))))))) + (elmo-folder-delete-messages folder (list msg)))) + (incf count)) + (elmo-split-log + (concat "From " + (nth 1 (std11-extract-address-components + (or (std11-field-body "from") ""))) + " " (or (std11-field-body "date") "") "\n" + " Subject: " + (eword-decode-string (or (std11-field-body + "subject") "")) + "\n" + (if reharsal + " Test: " + " Folder: ") + fname "/0" "\n") + reharsal) + (unless (eq (nth 2 rule) 'continue) + (throw 'terminate nil)))))) (elmo-progress-notify 'elmo-split))) (elmo-folder-close-internal folder)) (elmo-progress-clear 'elmo-split)) -- 1.7.10.4