* 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 (file)
--- 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 (file)
--- 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)))