From 21aec7e9fcbe210a2401d4a064afb164d15bd618 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 15 Jun 2000 00:23:38 +0000 Subject: [PATCH] 2000-06-15 Yuuichi Teranishi * WL-ELS (ELMO-MODULES): Added `pldap'. 2000-06-12 Yasushi ABE * utils/bbdb-wl.el (bbdb-extract-field-value): Decode with multibyte-buffer. --- ChangeLog | 10 ++++++++++ WL-ELS | 4 ++-- utils/bbdb-wl.el | 13 +++++++++---- 3 files changed, 21 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index abea638..74adae9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,17 @@ +2000-06-15 Yuuichi Teranishi + + * WL-ELS (ELMO-MODULES): Added `pldap'. + +2000-06-12 Yasushi ABE + + * utils/bbdb-wl.el (bbdb-extract-field-value): Decode with + multibyte-buffer. + 2000-05-15 Katsumi Yamaoka * etc/icons/wl-logo.xpm: Reduced color. + 2000-05-10 Yuuichi Teranishi * 1.1.1 - "Purple Rain" diff --git a/WL-ELS b/WL-ELS index a440b26..8feb979 100644 --- 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 )) diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el index 8aa0354..a1b7cdb 100644 --- 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))))) )) -- 1.7.10.4