* wl-message.el (wl-message-buffer-cache-add): Create new buffer

when it hits killed buffer.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0c0d18c..56b5dd5 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-24  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-message.el (wl-message-buffer-cache-add): Create new buffer
+       when it hits killed buffer.
+
 2003-05-12  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * wl-draft.el, wl-expire.el, wl-mime.el, wl-summary.el, wl-util.el

diff --git a/wl/wl-message.el b/wl/wl-message.el
index 2355dc5..0ba6843 100644 (file)
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -147,9 +147,12 @@ Return its cache buffer."
        (buf nil))
     (if (< len wl-message-buffer-cache-size)
        (setq buf (wl-message-buffer-create))
-      (setq buf (wl-message-buffer-cache-buffer-get
-                (nth (1- len) wl-message-buffer-cache)))
-      (setcdr (nthcdr (- len 2) wl-message-buffer-cache) nil))
+      (let ((entry (nth (1- len) wl-message-buffer-cache)))
+       (if (buffer-live-p
+            (setq buf (wl-message-buffer-cache-buffer-get entry)))
+           (setcdr (nthcdr (- len 2) wl-message-buffer-cache) nil)
+         (setq wl-message-buffer-cache (delq entry wl-message-buffer-cache))
+         (setq buf (wl-message-buffer-create)))))
     (setq wl-message-buffer-cache
          (cons (wl-message-buffer-cache-entry-make key buf)
                wl-message-buffer-cache))