From: yoichi <yoichi>
Date: Mon, 8 Apr 2002 15:10:59 +0000 (+0000)
Subject: Update setting to use short User-Agent string.
X-Git-Tag: elmo-mark-root~215
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1a12d2f6a99e458e46de16f38193f746428ae8ae;p=elisp%2Fwanderlust.git

Update setting to use short User-Agent string.
Add setting for automatically saving modified draft buffers.
---

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)
 
 
 ;;; [[ テンプレート ]]