2002-10-10 KOBAYASHI Shinji <kobayashi_shinji@nifty.com>

	* bbdb-wl.el (bbdb-wl-get-addresses-1): Call
	`bbdb-wl-canonicalize-full-name-function' after decoding full-name
	string.
	(bbdb-wl-get-addresses-2): Ditto.

diff --git a/utils/ChangeLog b/utils/ChangeLog
index f70e833..1fcc913 100644 (file)
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,10 @@
+2002-10-10  KOBAYASHI Shinji <kobayashi_shinji@nifty.com>
+
+       * bbdb-wl.el (bbdb-wl-get-addresses-1): Call
+       `bbdb-wl-canonicalize-full-name-function' after decoding full-name
+       string.
+       * bbdb-wl.el (bbdb-wl-get-addresses-2): Ditto.
+       
 2002-09-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * ptexinfmt.el: discard @documentdescription.  Support

diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el
index 6896ed6..b40e4c2 100644 (file)
--- a/utils/bbdb-wl.el
+++ b/utils/bbdb-wl.el
@@ -179,8 +179,7 @@ For BBDB 2.33 or earlier."
                              (std11-unfold-string header)))
            (while (and (setq structure (car structures))
                        (eq (car structure) 'mailbox))
-             (setq fn (funcall bbdb-wl-canonicalize-full-name-function
-                               (std11-full-name-string structure))
+             (setq fn (std11-full-name-string structure)
                    fn (and fn
                            (with-temp-buffer ; to keep raw buffer unibyte.
                              (elmo-set-buffer-multibyte
@@ -188,6 +187,7 @@ For BBDB 2.33 or earlier."
                              (eword-decode-string
                               (decode-mime-charset-string
                                fn wl-mime-charset))))
+                    fn (funcall bbdb-wl-canonicalize-full-name-function fn)
                    ad (std11-address-string structure))
              ;; ignore uninteresting addresses, this is kinda gross!
              (when (or (not (stringp uninteresting-senders))
@@ -224,8 +224,7 @@ For BBDB 2.34 or later."
                                (std11-unfold-string header-content)))
              (while (and (setq structure (car structures))
                          (eq (car structure) 'mailbox))
-               (setq fn (funcall bbdb-wl-canonicalize-full-name-function
-                                 (std11-full-name-string structure))
+                (setq fn (std11-full-name-string structure)
                      fn (and fn
                              (with-temp-buffer ; to keep raw buffer unibyte.
                                (elmo-set-buffer-multibyte
@@ -233,6 +232,7 @@ For BBDB 2.34 or later."
                                (eword-decode-string
                                 (decode-mime-charset-string
                                  fn wl-mime-charset))))
+                     fn (funcall bbdb-wl-canonicalize-full-name-function fn)
                      ad (std11-address-string structure))
                ;; ignore uninteresting addresses, this is kinda gross!
                (when (or (not (stringp uninteresting-senders))