From: teranisi <teranisi>
Date: Wed, 28 Jan 2004 13:34:14 +0000 (+0000)
Subject: * wl-address.el (wl-complete-field-body): Complete if the last
X-Git-Tag: wl-2_11_24~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b8c51c174a5b84beb58979cd3e7e6b308b1a8170;p=elisp%2Fwanderlust.git

* wl-address.el (wl-complete-field-body): Complete if the last
character is a space.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b9e02f4..134f10b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-28  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-address.el (wl-complete-field-body): Complete if the last
+	character is a space.
+
 2004-01-28  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-folder.el (wl-folder-clear-entity-info): Use
diff --git a/wl/wl-address.el b/wl/wl-address.el
index 2d8e3e7..dc62579 100644
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -454,7 +454,8 @@ Matched address lists are append to CL."
 	     (message "Sole completion"))
 	    ((and epand-char
 		  (> len 0)
-		  (char-equal (aref pattern (1- len)) epand-char)
+		  (or (char-equal (aref pattern (1- len)) epand-char)
+		      (char-equal (aref pattern (1- len)) ?\ ))
 		  (assoc (substring pattern 0 (1- len)) cl))
 	     (wl-complete-insert
 	      start end