From: yoichi Date: Sun, 24 Mar 2002 16:21:45 +0000 (+0000) Subject: wl.texi,wl-ja.texi: Change setting for short User-Agent string and X-Git-Tag: elmo-mark-root~233 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=56ae786a1cac92d108b173b5b291438bc1d01e3e;p=elisp%2Fwanderlust.git 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 --- 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