From: 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/gitweb/?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 + * 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\". -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\". +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 \" +e.g. \"Mr. bar \" -> \"Mr. bar\"." (cond ((string-match "\\(.*[^ \t]\\)[ \t]*<[^>]*>" str) (wl-match-string 1 str))