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 (file)
--- 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 (file)
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -238,10 +238,18 @@
 
 ;; \e$BC;$$\e(B User-Agent: \e$B%U%#!<%k%I$r;H$&\e(B
 ;(setq wl-generate-mailer-string-function
-;      (function
-;       (lambda ()
-;       (concat "User-Agent: "
-;               (wl-generate-user-agent-string-1 nil)))))
+;      'wl-generate-user-agent-string-1)
+
+
+;; \e$BJQ99$5$l$?%I%i%U%H$,$"$l$P\e(B 20 \e$BIC$4$H$K<+F0J]B8$9$k!#\e(B
+;(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)
 
 
 ;;; [[ \e$B%F%s%W%l!<%H\e(B ]]