wl.texi,wl-ja.texi: Change setting for short User-Agent string and

X-Mailer.

wl-refcard.tex: Add commands about sticky summary.

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index bd1d3b5..137f0f9 100644 (file)
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -6881,10 +6881,7 @@ face \e$B$N@_Dj$O\e(B @file{.emacs} \e$B$K=q$/$3$H$O$G$-$J$$$N$G\e(B @file{~/.wl} \e$
 @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 \e$B$N@_Dj$O\e(B @file{.emacs} \e$B$K=q$/$3$H$O$G$-$J$$$N$G\e(B @file{~/.wl} \e$
 
 @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 (file)
--- 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 (file)
--- 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