From 56ae786a1cac92d108b173b5b291438bc1d01e3e Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Sun, 24 Mar 2002 16:21:45 +0000
Subject: [PATCH] wl.texi,wl-ja.texi: Change setting for short User-Agent
 string and X-Mailer.

wl-refcard.tex: Add commands about sticky summary.
---
 doc/wl-ja.texi     |   14 +++++---------
 doc/wl-refcard.tex |    8 ++++++++
 doc/wl.texi        |   14 +++++---------
 3 files changed, 18 insertions(+), 18 deletions(-)

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index bd1d3b5..137f0f9 100644
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -6881,10 +6881,7 @@ face $B$N@_Dj$O(B @file{.emacs} $B$K=q$/$3$H$O$G$-$J$$$N$G(B @file{~/.wl} $
 @lisp
 @group
 (setq wl-generate-mailer-string-function
-      (function
-       (lambda ()
-         (concat "User-Agent: "
-                 (wl-generate-user-agent-string-1 nil)))))
+      'wl-generate-user-agent-string-1)
 @end group
 @end lisp
 
@@ -6892,11 +6889,10 @@ face $B$N@_Dj$O(B @file{.emacs} $B$K=q$/$3$H$O$G$-$J$$$N$G(B @file{~/.wl} $
 
 @lisp
 @group
-(setq mime-edit-insert-user-agent-field nil)
-(setq wl-generate-mailer-string-function
-      (function
-       (lambda ()
-         (format "X-Mailer: %s" (product-string-1 'wl-version)))))
+(setq wl-generate-mailer-string-function nil)
+(setq wl-draft-additional-header-alist
+      (list
+       (cons 'X-Mailer (lambda () (product-string-1 'wl-version)))))
 @end group
 @end lisp
 
diff --git a/doc/wl-refcard.tex b/doc/wl-refcard.tex
index 885fe10..e7ddf08 100644
--- a/doc/wl-refcard.tex
+++ b/doc/wl-refcard.tex
@@ -351,6 +351,14 @@ are preserved on all copies.
 \key{Prefetch region}{r i}
 
 \newcolumn
+\section{sticky summary}
+
+\key{Stick current summary}{M-s}
+\key{Open summary and stick}{G}
+\key{Display next summary}{C-c C-n}
+\key{Display previous summary}{C-c C-p}
+\key{Discard current summary}{C-u q}
+
 \section{Message Mode}
 
 \key{Go back to summary buffer}{q}
diff --git a/doc/wl.texi b/doc/wl.texi
index 6292bb4..398f52c 100644
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -6976,10 +6976,7 @@ If you do not want verbose @samp{User-Agent:} field, do the following:
 @lisp
 @group
 (setq wl-generate-mailer-string-function
-      (function
-       (lambda ()
-         (concat "User-Agent: "
-                 (wl-generate-user-agent-string-1 nil)))))
+      'wl-generate-user-agent-string-1)
 @end group
 @end lisp
 
@@ -6987,11 +6984,10 @@ The following is a example:
 
 @lisp
 @group
-(setq mime-edit-insert-user-agent-field nil)
-(setq wl-generate-mailer-string-function
-      (function
-       (lambda ()
-         (format "X-Mailer: %s" (product-string-1 'wl-version)))))
+(setq wl-generate-mailer-string-function nil)
+(setq wl-draft-additional-header-alist
+      (list
+       (cons 'X-Mailer (lambda () (product-string-1 'wl-version)))))
 @end group
 @end lisp
 
-- 
1.7.10.4