* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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.