From 1a12d2f6a99e458e46de16f38193f746428ae8ae Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Mon, 8 Apr 2002 15:10:59 +0000
Subject: [PATCH] Update setting to use short User-Agent string. Add setting
 for automatically saving modified draft buffers.

---
 samples/en/dot.wl |   16 ++++++++++++----
 samples/ja/dot.wl |   16 ++++++++++++----
 2 files changed, 24 insertions(+), 8 deletions(-)

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index 86b5376..3506b04 100644
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -238,10 +238,18 @@
 
 ;; non-verbose User-Agent: field
 ;(setq wl-generate-mailer-string-function
-;      (function
-;       (lambda ()
-;	 (concat "User-Agent: "
-;		 (wl-generate-user-agent-string-1 nil)))))
+;      'wl-generate-user-agent-string-1)
+
+
+;; Automatically save modified draft buffers in every 20 seconds.
+;(defun my-wl-auto-save-draft-buffers ()
+;  (let ((buffers (wl-collect-draft)))
+;    (save-excursion
+;      (while buffers
+;	(set-buffer (car buffers))
+;	(if (buffer-modified-p) (wl-draft-save))
+;	(setq buffers (cdr buffers))))))
+;(run-with-idle-timer 20 t 'my-wl-auto-save-draft-buffers)
 
 
 ;;; [[ Template ]]
diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index a5feddc..4afc8b4 100644
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -238,10 +238,18 @@
 
 ;; 短い User-Agent: フィールドを使う
 ;(setq wl-generate-mailer-string-function
-;      (function
-;       (lambda ()
-;	 (concat "User-Agent: "
-;		 (wl-generate-user-agent-string-1 nil)))))
+;      'wl-generate-user-agent-string-1)
+
+
+;; 変更されたドラフトがあれば 20 秒ごとに自動保存する。
+;(defun my-wl-auto-save-draft-buffers ()
+;  (let ((buffers (wl-collect-draft)))
+;    (save-excursion
+;      (while buffers
+;	(set-buffer (car buffers))
+;	(if (buffer-modified-p) (wl-draft-save))
+;	(setq buffers (cdr buffers))))))
+;(run-with-idle-timer 20 t 'my-wl-auto-save-draft-buffers)
 
 
 ;;; [[ テンプレート ]]
-- 
1.7.10.4