From: kaoru <kaoru>
Date: Sat, 2 Jan 2010 09:12:19 +0000 (+0000)
Subject: * wl-address.el (wl-address-header-extract-address)
X-Git-Tag: elmo-imap4-compliance-root~48
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d88a739b6a9dddf6fca245e740a1f4ce9a1404bd;p=elisp%2Fwanderlust.git

* wl-address.el (wl-address-header-extract-address)
(wl-address-header-extract-realname): Fix mail-address in docstring.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index df0377b..0dc565b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2010-01-02  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-address.el (wl-address-header-extract-address)
+	(wl-address-header-extract-realname): Fix mail-address in
+	docstring.
+
 	* wl-expire.el (wl-expire-make-sortable-date): Macro to
 	inline-function.
 	* wl-folder.el (wl-folder-unread-regex, wl-folder-buffer-group-p):
diff --git a/wl/wl-address.el b/wl/wl-address.el
index a0dfc1b..ec77db5 100644
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -563,10 +563,10 @@ Refresh `wl-address-list', `wl-address-completion-list', and
 
 (defsubst wl-address-header-extract-address (str)
   "Extracts a real e-mail address from STR and return it.
-e.g. \"Mine Sakurai <m-sakura@ccs.mt.nec.co.jp>\"
-  ->  \"m-sakura@ccs.mt.nec.co.jp\".
-e.g. \"m-sakura@ccs.mt.nec.co.jp (Mine Sakurai)\"
-  ->  \"m-sakura@ccs.mt.nec.co.jp\"."
+e.g. \"Mine Sakurai <m-sakura@example.org>\"
+  ->  \"m-sakura@example.org\".
+e.g. \"m-sakura@example.org (Mine Sakurai)\"
+  ->  \"m-sakura@example.org\"."
   (cond ((string-match ".*<\\([^>]*\\)>" str) ; .* to extract last <>
 	 (wl-match-string 1 str))
 	((string-match "\\([^ \t\n]*@[^ \t\n]*\\)" str)
@@ -575,7 +575,7 @@ e.g. \"m-sakura@ccs.mt.nec.co.jp (Mine Sakurai)\"
 
 (defsubst wl-address-header-extract-realname (str)
   "Extracts a real name from STR and return it.
-e.g. \"Mr. bar <hoge@foo.com>\"
+e.g. \"Mr. bar <hoge@example.com>\"
   ->  \"Mr. bar\"."
   (cond ((string-match "\\(.*[^ \t]\\)[ \t]*<[^>]*>" str)
 	 (wl-match-string 1 str))