From dacfedbc8fdff39e429ed7653ab3fb490dc3143c Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 15 Sep 2004 15:20:28 +0000 Subject: [PATCH] * wl-mime.el (wl-mime-preview-follow-current-region): Avoid error on null entity. --- wl/ChangeLog | 5 +++++ wl/wl-mime.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index aa38df9..90578b7 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2004-09-15 Yoichi NAKAYAMA + + * wl-mime.el (wl-mime-preview-follow-current-region): Avoid error + on null entity. + 2004-09-13 Yoichi NAKAYAMA * wl-vars.el (wl-draft-reply-default-position): Fix range. diff --git a/wl/wl-mime.el b/wl/wl-mime.el index 78cb6fa..b5afd55 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -96,7 +96,8 @@ It calls following-method selected from variable (insert-buffer-substring the-buf r-beg r-end) (goto-char (point-min)) (let ((current-entity - (if (and (eq (mime-entity-media-type entity) 'message) + (if (and entity + (eq (mime-entity-media-type entity) 'message) (eq (mime-entity-media-subtype entity) 'rfc822)) (car (mime-entity-children entity)) entity))) -- 1.7.10.4