From: hmurata <hmurata>
Date: Sun, 3 Oct 2004 13:39:45 +0000 (+0000)
Subject: (elmo-split-address-equal): Fixed typo (field =>
X-Git-Tag: wl-2_12-root~65
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f4ff3acc7d004fe4909094ba3855f45fe1c278a8;p=elisp%2Fwanderlust.git

(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
--- 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
--- 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