2000-06-15 Yuuichi Teranishi <teranisi@gohome.org>

	* WL-ELS (ELMO-MODULES): Added `pldap'.

2000-06-12  Yasushi ABE <yasushi@stbbs.net>

	* utils/bbdb-wl.el (bbdb-extract-field-value): Decode with
	multibyte-buffer.

diff --git a/ChangeLog b/ChangeLog
index abea638..74adae9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,17 @@
+2000-06-15  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * WL-ELS (ELMO-MODULES): Added `pldap'.
+
+2000-06-12  Yasushi ABE <yasushi@stbbs.net>
+
+       * utils/bbdb-wl.el (bbdb-extract-field-value): Decode with
+       multibyte-buffer.
+
 2000-05-15  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * etc/icons/wl-logo.xpm: Reduced color.
 
+\f
 2000-05-10  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * 1.1.1 - "Purple Rain"

diff --git a/WL-ELS b/WL-ELS
index a440b26..8feb979 100644 (file)
--- a/WL-ELS
+++ b/WL-ELS
@@ -1,5 +1,5 @@
 ;;; WL-ELS  -*-Emacs-Lisp-*-
-;;; Time-stamp: <00/03/01 09:58:40 teranisi>
+;;; Time-stamp: <00/06/14 23:51:29 teranisi>
 
 ;;;;;;;;;;;;;;;;;;;;;   DO NOT EDIT THIS FILE   ;;;;;;;;;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;     INTERNAL USE ONLY     ;;;;;;;;;;;;;;;;;;;;;
@@ -19,7 +19,7 @@
    elmo-localdir elmo-msgdb elmo-vars elmo2
    elmo-cache elmo-multi elmo-filter elmo-pipe
    elmo-dop elmo-pop3 elmo-localnews elmo-maildir
-   elmo-date elmo-internal utf7
+   elmo-date elmo-internal utf7 pldap
    ))
 
 \f

diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el
index 8aa0354..a1b7cdb 100644 (file)
--- a/utils/bbdb-wl.el
+++ b/utils/bbdb-wl.el
@@ -235,7 +235,6 @@ displaying the record corresponding to the sender of the current message."
 ;;; @ bbdb-extract-field-value -- stolen from tm-bbdb.
 ;;;
 (and (not (fboundp 'bbdb-extract-field-value-internal))
-     (not (fboundp 'tm:bbdb-extract-field-value)) ;; tm-bbdb
 ;;   (not (fboundp 'PLEASE_REPLACE_WITH_SEMI-BASED_MIME-BBDB)) ;; mime-bbdb
     (progn
       ;; (require 'bbdb-hooks) ; not provided.
@@ -243,11 +242,17 @@ displaying the record corresponding to the sender of the current message."
       (or (fboundp 'bbdb-header-start)
           (load "bbdb-hooks"))
       (fset 'bbdb-extract-field-value-internal
-            (symbol-function 'bbdb-extract-field-value))
+           (cond 
+            ((fboundp 'tm:bbdb-extract-field-value)
+             (symbol-function 'tm:bbdb-extract-field-value))
+            (t (symbol-function 'bbdb-extract-field-value))))
       (defun bbdb-extract-field-value (field)
        (let ((value (bbdb-extract-field-value-internal field)))
-         (and value
-              (eword-decode-string value))))
+         (with-temp-buffer ; to keep raw buffer unibyte.
+           (elmo-set-buffer-multibyte
+            default-enable-multibyte-characters)
+           (and value
+                (eword-decode-string value)))))
       ))