* wl-summary.el (wl-summary-prefetch-msg): Fiexd. Call

`elmo-msgdb-overview-get-entity' with `msgdb' instead of
`(elmo-msgdb-get-overview msgdb)'.
(wl-summary-prefetch): Bind match data before call
`wl-summay-prefetch-msg'.
(wl-summary-goto-folder-subr): Call `wl-summary-toggle-disp-msg' with
'off if `wl-summary-buffer-disp-msg' is non-nil.
Fixed problem that couldn't show only one new or unread message when
enter folder.
(wl-summary-reply): Don't call `split-window-vertically' and other
window.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7aa4914..811a5df 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,17 @@
+2001-04-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-summary.el (wl-summary-prefetch-msg): Fiexd. Call
+       `elmo-msgdb-overview-get-entity' with `msgdb' instead of
+       `(elmo-msgdb-get-overview msgdb)'.
+       (wl-summary-prefetch): Bind match data before call
+       `wl-summay-prefetch-msg'.
+       (wl-summary-goto-folder-subr): Call `wl-summary-toggle-disp-msg' with
+       'off if `wl-summary-buffer-disp-msg' is non-nil.
+       Fixed problem that couldn't show only one new or unread message when
+       enter folder.
+       (wl-summary-reply): Don't call `split-window-vertically' and other
+       window.
+
 2001-04-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-expire.el (wl-expire-refile): Fixed.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 425db42..4577eb8 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1243,8 +1243,7 @@ If ARG is non-nil, checking is omitted."
           (mark-alist (elmo-msgdb-get-mark-alist msgdb))
           (number-alist (elmo-msgdb-get-number-alist msgdb))
           (message-id (cdr (assq number number-alist)))
-          (ov (elmo-msgdb-overview-get-entity
-               message-id (elmo-msgdb-get-overview msgdb)))
+          (ov (elmo-msgdb-overview-get-entity message-id msgdb))
           (entity ov)
           (size (elmo-msgdb-overview-entity-get-size ov))
           (inhibit-read-only t)
@@ -1391,12 +1390,13 @@ If ARG is non-nil, checking is omitted."
        (goto-char (match-beginning 2))
        (let ((inhibit-read-only t)
              (buffer-read-only nil)
+             (beg (match-beginning 2))
+             (end (match-end 2))
              mark)
          (setq mark (wl-summary-prefetch-msg
                      (string-to-int (wl-match-buffer 1)) arg))
          (when mark
-           (delete-region (match-beginning 2)
-                          (match-end 2))
+           (delete-region beg end)
            (insert mark)
            (if wl-summary-highlight
                (wl-highlight-summary-current-line)))
@@ -2534,7 +2534,7 @@ If ARG, without confirm."
             (elmo-msgdb-get-mark-alist (wl-summary-buffer-msgdb)))
            (wl-summary-update-modeline)))
       (wl-summary-buffer-number-column-detect t)
-      (wl-summary-toggle-disp-msg 'on)
+      (wl-summary-toggle-disp-msg (if wl-summary-buffer-disp-msg 'on 'off))
       (unless (and reuse-buf keep-cursor)
        ;(setq hilit wl-summary-highlight)
        (unwind-protect
@@ -2566,7 +2566,7 @@ If ARG, without confirm."
          (if (wl-summary-cursor-down t)
              (let ((unreadp (wl-summary-next-message 
                              (wl-summary-message-number)
-                             'down nil)))
+                             'down t)))
                (cond ((and wl-auto-select-first unreadp)
                       (setq retval 'disp-msg))
                      ((not unreadp)
@@ -4831,9 +4831,6 @@ Reply to author if invoked with ARG."
       (wl-message-select-buffer wl-message-buffer)
       (set-buffer mes-buf)
       (goto-char (point-min))
-      (or wl-draft-use-frame
-         (split-window-vertically))
-      (other-window 1)
       (when (setq mes-buf (wl-message-get-original-buffer))
        (wl-draft-reply mes-buf arg summary-buf)
        (unless without-setup-hook