From: hmurata <hmurata>
Date: Thu, 5 Apr 2001 11:14:18 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-prefetch-msg): Fiexd. Call
X-Git-Tag: wl-2_6-root^3~57
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3fadc2a2d1e9246869877535903521fb0c2da7a0;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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