From ca30439bf371dcad1d66c5d0ca58aff2a795c0b1 Mon Sep 17 00:00:00 2001 From: hmurata Date: Fri, 10 May 2002 00:40:28 +0000 Subject: [PATCH] * elmo-msgdb.el (elmo-msgdb-create-overview-from-buffer): Protect against non-exsisting charset. --- elmo/ChangeLog | 5 +++++ elmo/elmo-msgdb.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index d42fdd1..05172fc 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2002-05-10 Hiroya Murata + + * elmo-msgdb.el (elmo-msgdb-create-overview-from-buffer): Protect + against non-exsisting charset. + 2002-05-09 Yuuichi Teranishi * elmo-util.el (elmo-mime-string): Eliminate needless binding; diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el index 3840908..773d000 100644 --- a/elmo/elmo-msgdb.el +++ b/elmo/elmo-msgdb.el @@ -784,10 +784,10 @@ Header region is supposed to be narrowed." default-mime-charset extra field-body charset) (elmo-set-buffer-multibyte default-enable-multibyte-characters) - (setq message-id (elmo-msgdb-get-message-id-from-buffer) - charset (intern-soft (cdr (assoc "charset" - (mime-read-Content-Type))))) - (if charset (setq default-mime-charset charset)) + (setq message-id (elmo-msgdb-get-message-id-from-buffer)) + (and (setq charset (cdr (assoc "charset" (mime-read-Content-Type)))) + (setq charset (intern-soft charset)) + (setq default-mime-charset charset)) (setq references (or (elmo-msgdb-get-last-message-id (elmo-field-body "in-reply-to")) -- 1.7.10.4