From 95ee50934d47e5f0e153d171ce8174e56a164080 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 10 Sep 2001 11:28:07 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-std11-parse-addresses): Ignore trailing spaces (Adviced by NAKAJIMA Mikio ). --- wl/ChangeLog | 3 +++ wl/wl-draft.el | 2 ++ 2 files changed, 5 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index a42747a..a224bd9 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,8 @@ 2001-09-10 Yuuichi Teranishi + * wl-draft.el (wl-draft-std11-parse-addresses): Ignore trailing + spaces (Adviced by NAKAJIMA Mikio ). + * 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 --- 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))))) -- 1.7.10.4