* wl-draft.el (wl-draft-std11-parse-addresses): Ignore trailing

 spaces (Adviced by NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>).

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a42747a..a224bd9 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2001-09-10  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-draft.el (wl-draft-std11-parse-addresses): Ignore trailing
+       spaces (Adviced by NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>).
+
        * wl-address.el (wl-address-specials-regexp): Eliminated.
        (wl-address-quote-specials): Rewrite.
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index f4d817d..34b12ad 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -827,6 +827,8 @@ to find out how to use this."
                      )
            (setq dest (cons (car ret) dest))
            (setq lal (cdr ret)))
+         (while (eq 'spaces (car (car lal)))
+           (setq lal (cdr lal)))
          (if lal (error "Error while parsing address"))
          (nreverse dest)))))