From: teranisi <teranisi>
Date: Tue, 28 Nov 2000 03:53:55 +0000 (+0000)
Subject: * wl-vars.el (wl-prog-uudecode-arg): Changed default to nil.
X-Git-Tag: wl-2_4_0~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=95c22c99a801ef4ae279bfb87f0370b70f88aa21;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-prog-uudecode-arg): Changed default to nil.
 (wl-prog-uudecode-no-stdout-option): Changed default to t.
 (Advised by YAMASHITA Junji <ysjj@unixuser.org>)

* wl-summary.el (wl-summary-toggle-disp-folder): Removed needless
 save-excursion.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 48ae524..88e94a0 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2000-11-28  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-prog-uudecode-arg): Changed default to nil.
+	(wl-prog-uudecode-no-stdout-option): Changed default to t.
+	(Advised by YAMASHITA Junji <ysjj@unixuser.org>)
+
+	* wl-summary.el (wl-summary-toggle-disp-folder): Removed needless
+	save-excursion.
+
 2000-11-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-version.el (wl-version): Changed codename to "Rio-pre3".
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 8087742..8782598 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4706,31 +4706,30 @@ If ARG, exit virtual folder."
 	      (run-hooks 'wl-summary-toggle-disp-folder-message-resumed-hook)
 	      (select-window (get-buffer-window cur-buf)))
 	    )
-	(save-excursion
-	  ;; hide message window
-	  (let ((mes-win (get-buffer-window view-message-buffer))
-		(wl-stay-folder-window t))
-	    (if mes-win (delete-window mes-win))
-	    (select-window (get-buffer-window cur-buf))
-	    ;; display wl-folder window!!
-	    (if (setq fld-buf (get-buffer wl-folder-buffer-name))
-		(if (setq fld-win (get-buffer-window fld-buf))
-		    ;; folder win is already displayed.
-		    (select-window fld-win)
-		  ;; folder win is not displayed...occupy all.
-		  (switch-to-buffer fld-buf))
-	      ;; no folder buf
-	      (wl-folder))
-	    (split-window-horizontally wl-folder-window-width)
-	    (other-window 1)
-	    (switch-to-buffer cur-buf)
-	    ;; resume message window.
-	    (run-hooks 'wl-summary-toggle-disp-folder-on-hook)
-	    (when mes-win
-	      (wl-select-buffer view-message-buffer)
-	      (run-hooks 'wl-summary-toggle-disp-folder-message-resumed-hook)
-	      (select-window (get-buffer-window cur-buf))))
-	  )))))
+	;; hide message window
+	(let ((mes-win (get-buffer-window view-message-buffer))
+	      (wl-stay-folder-window t))
+	  (if mes-win (delete-window mes-win))
+	  (select-window (get-buffer-window cur-buf))
+	  ;; display wl-folder window!!
+	  (if (setq fld-buf (get-buffer wl-folder-buffer-name))
+	      (if (setq fld-win (get-buffer-window fld-buf))
+		  ;; folder win is already displayed.
+		  (select-window fld-win)
+		;; folder win is not displayed...occupy all.
+		(switch-to-buffer fld-buf))
+	    ;; no folder buf
+	    (wl-folder))
+	  (split-window-horizontally wl-folder-window-width)
+	  (other-window 1)
+	  (switch-to-buffer cur-buf)
+	  ;; resume message window.
+	  (run-hooks 'wl-summary-toggle-disp-folder-on-hook)
+	  (when mes-win
+	    (wl-select-buffer view-message-buffer)
+	    (run-hooks 'wl-summary-toggle-disp-folder-message-resumed-hook)
+	    (select-window (get-buffer-window cur-buf))))
+	))))
   (run-hooks 'wl-summary-toggle-disp-folder-hook))
 
 (defun wl-summary-toggle-disp-msg (&optional arg)
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index f815d2b..8e59516 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -2175,9 +2175,9 @@ XBM even if XPM can be shown."
   "*Icon file for no mail existed state.")
 (defvar wl-prog-uudecode "uudecode"
   "*uudecode program name.")
-(defvar wl-prog-uudecode-arg '("-p") ;; outout is stdout.
+(defvar wl-prog-uudecode-arg nil
   "*Arguments for uudecode program.")
-(defvar wl-prog-uudecode-no-stdout-option nil
+(defvar wl-prog-uudecode-no-stdout-option t
   "*If non-nil, uudecode program don't have option for output to stdout.")
 
 ;; Obsolete variables. for compatibility.