From: teranisi <teranisi>
Date: Wed, 4 Oct 2000 03:24:01 +0000 (+0000)
Subject: * wl.el (wl): Don't check servers if arg is non-nil.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c9f9dd1b1ddd7887284525f303bc35a5d3913e83;p=elisp%2Fwanderlust.git

* wl.el (wl): Don't check servers if arg is non-nil.

* wl-draft.el (wl-draft-reply): Set only message-id string to In-Reply-To field.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 50a70ab..d6abfe4 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2000-10-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl.el (wl): Don't check servers if arg is non-nil.
+
+	* wl-draft.el (wl-draft-reply): Set only message-id string to
+	In-Reply-To field.
+
 2000-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-pick): Rewrite.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 8b8d11b..75e9bab 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -366,11 +366,7 @@ the `wl-smtp-features' variable."
 			   subject)
 	     0)))
 	 (setq subject (concat wl-reply-subject-prefix subject)))
-    (and (setq in-reply-to (std11-field-body "Message-Id"))
-	 (setq in-reply-to
-	       (format "In your message of \"%s\"\n\t%s"
-		       (or (std11-field-body "Date") "some time ago")
-		       in-reply-to)))
+    (setq in-reply-to (std11-field-body "Message-Id"))
     (setq references (nconc
 		      (std11-field-bodies '("References" "In-Reply-To"))
 		      (list in-reply-to)))
diff --git a/wl/wl.el b/wl/wl.el
index a546c65..46e8456 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -745,11 +745,11 @@ If prefix argument is specified, folder checkings are skipped."
     (wl-plugged-init (wl-folder arg))
     (sit-for 0))
   (unwind-protect
-      (progn
+      (unless arg 
 	(run-hooks 'wl-auto-check-folder-pre-hook)
 	(wl-folder-auto-check)
 	(run-hooks 'wl-auto-check-folder-hook))
-    (wl-biff-start)
+    (unless arg (wl-biff-start))
     (run-hooks 'wl-hook)))
 
 ;; Define some autoload functions WL might use.