From: yoichi <yoichi>
Date: Wed, 15 Sep 2004 15:20:28 +0000 (+0000)
Subject: * wl-mime.el (wl-mime-preview-follow-current-region): Avoid error
X-Git-Tag: wl-2_12-root~105
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dacfedbc8fdff39e429ed7653ab3fb490dc3143c;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-mime-preview-follow-current-region): Avoid error
on null entity.
---

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  <yoichi@geiin.org>
+
+	* wl-mime.el (wl-mime-preview-follow-current-region): Avoid error
+	on null entity.
+
 2004-09-13  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* 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)))