(elmo-split-address-equal): Fixed typo (field =>

field-or-fields).
(elmo-split-address-match): Ditto.
(elmo-split-equal): Ditto.
(elmo-split-match): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 263839b..aec6853 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,11 @@
+2004-10-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-split.el (elmo-split-address-equal): Fixed typo (field =>
+       field-or-fields).
+       (elmo-split-address-match): Ditto.
+       (elmo-split-equal): Ditto.
+       (elmo-split-match): Ditto.
+
 2004-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo.el (elmo-message-flags): Abolish optional argument `msgid'.

diff --git a/elmo/elmo-split.el b/elmo/elmo-split.el
index 5fb5fbe..891ef41 100644 (file)
--- a/elmo/elmo-split.el
+++ b/elmo/elmo-split.el
@@ -185,7 +185,7 @@ It can be some ACTION as in `elmo-split-rule'."
     (let (result)
       (dolist (field (if (listp field-or-fields)
                         field-or-fields
-                      (list field)))
+                      (list field-or-fields)))
        (let ((addrs (mapcar
                      'std11-address-string
                      (std11-parse-addresses-string
@@ -205,7 +205,7 @@ It can be some ACTION as in `elmo-split-rule'."
     (let (result)
       (dolist (field (if (listp field-or-fields)
                         field-or-fields
-                      (list field)))
+                      (list field-or-fields)))
        (let ((addrs (mapcar
                      'std11-address-string
                      (std11-parse-addresses-string
@@ -229,7 +229,7 @@ It can be some ACTION as in `elmo-split-rule'."
     (let (result)
       (dolist (field (if (listp field-or-fields)
                         field-or-fields
-                      (list field)))
+                      (list field-or-fields)))
        (let ((field-value (and
                            elmo-split-message-entity
                            (elmo-split-fetch-decoded-field
@@ -250,7 +250,7 @@ It can be some ACTION as in `elmo-split-rule'."
     (let (result)
       (dolist (field (if (listp field-or-fields)
                         field-or-fields
-                      (list field)))
+                      (list field-or-fields)))
        (let ((field-value (and elmo-split-message-entity
                                (elmo-split-fetch-decoded-field
                                 elmo-split-message-entity