* wl-ja.texi, wl.texi (wl-draft-elide-region): Added.

* wl-draft.el (wl-draft-elide-region): New user command.
* wl-vars.el (wl-draft-elide-ellipsis): New user option.
* wl-e21.el (wl-draft-key-setup): Bind the key `C-c C-d' to the
command `wl-draft-elide-region'.
* wl-mule.el: Ditto.
* wl-xmas.el: Ditto.

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index d21a3cc..d2a8dcb 100644 (file)
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -4272,6 +4272,13 @@ Wanderlust \e$B$N%*%U%i%$%s%b!<%I\e(B/\e$B%*%s%i%$%s%b!<%I$r%H%0%k$7$^$9!#\e(B
 \e$B%"%I%l%9%^%M!<%8%c$r5/F0$7$^$9!#\e(B
 @xref{Address Manager}.
 (@code{wl-addrmgr})
+
+@item C-c C-d
+@kindex C-c C-d (Draft)
+@findex wl-draft-elide-region
+\e$B%]%$%s%H$H%^!<%/$N4V$NJ8$r>J$-$^$9\e(B (@code{wl-draft-elide-region})\e$B!#J8>O\e(B
+\e$B$O@Z$i$l$F\e(B (killed) \e$BJQ?t\e(B @code{wl-draft-elide-ellipsis} \e$B$NCM$GCV$-49$($i\e(B
+\e$B$l$^$9!#%G%U%)%k%H$N>JN,Id9f$H$7$F;H$o$l$kCM$O\e(B (@samp{[...]}) \e$B$G$9!#\e(B
 @end table
 
 @section \e$B%+%9%?%^%$%:JQ?t\e(B

diff --git a/doc/wl.texi b/doc/wl.texi
index b0a4604..4200f8d 100644 (file)
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -4306,6 +4306,14 @@ Selects a template.
 Enter Address Manager.
 @xref{Address Manager}.
 (@code{wl-addrmgr})
+
+@item C-c C-d
+@kindex C-c C-d (Draft)
+@findex wl-draft-elide-region
+Elide the text between point and mark (@code{wl-draft-elide-region}).
+The text is killed and replaced with the contents of the variable
+@code{wl-draft-elide-ellipsis}.  The default value is to use an ellipsis
+(@samp{[...]}).
 @end table
 
 @section Customizable Variables

diff --git a/wl/ChangeLog b/wl/ChangeLog
index cee9696..97d934c 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,13 @@
+2001-12-21  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * wl-draft.el (wl-draft-elide-region): New user command.
+       * wl-vars.el (wl-draft-elide-ellipsis): New user option.
+
+       * wl-e21.el (wl-draft-key-setup): Bind the key `C-c C-d' to the
+       command `wl-draft-elide-region'.
+       * wl-mule.el: Ditto.
+       * wl-xmas.el: Ditto.
+
 2001-12-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-util.el (wl-biff-check-folder): Fix for non-pop3 folders.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index d6d28d7..7477196 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -732,6 +732,15 @@ Reply to author if WITH-ARG is non-nil."
       (mail-position-on-field "to"))
   (insert "\nFcc: "))
 
+;; Imported from message.el.
+(defun wl-draft-elide-region (b e)
+  "Elide the text in the region.
+An ellipsis (from `wl-draft-elide-ellipsis') will be inserted where the
+text was killed."
+  (interactive "r")
+  (kill-region b e)
+  (insert wl-draft-elide-ellipsis))
+
 ;; function for wl-sent-message-via
 
 (defmacro wl-draft-sent-message-p (type)

diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index 579749c..a9f48e2 100644 (file)
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -610,7 +610,8 @@ Special commands:
   (define-key wl-draft-mode-map "\C-c\C-p" 'wl-draft-preview-message)
   (define-key wl-draft-mode-map "\C-c\C-a" 'wl-addrmgr)
   (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
-  (define-key wl-draft-mode-map "\C-xk"    'wl-draft-mimic-kill-buffer))
+  (define-key wl-draft-mode-map "\C-xk"    'wl-draft-mimic-kill-buffer)
+  (define-key wl-draft-mode-map "\C-c\C-d" 'wl-draft-elide-region))
 
 (defun wl-draft-overload-functions ()
   (wl-mode-line-buffer-identification)

diff --git a/wl/wl-mule.el b/wl/wl-mule.el
index 065060a..e8540d3 100644 (file)
--- a/wl/wl-mule.el
+++ b/wl/wl-mule.el
@@ -158,7 +158,8 @@ Special commands:
   (define-key wl-draft-mode-map "\C-c\C-p" 'wl-draft-preview-message)
   (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
   (define-key wl-draft-mode-map "\C-c\C-a" 'wl-addrmgr)
-  (define-key wl-draft-mode-map "\C-xk" 'wl-draft-mimic-kill-buffer))
+  (define-key wl-draft-mode-map "\C-xk" 'wl-draft-mimic-kill-buffer)
+  (define-key wl-draft-mode-map "\C-c\C-d" 'wl-draft-elide-region))
 
 (defun wl-draft-overload-menubar ()
   (local-set-key [menu-bar mail send]

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 369d324..52f9c6e 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -952,6 +952,11 @@ ex.
   :group 'wl-draft
   :group 'wl-setting)
 
+(defcustom wl-draft-elide-ellipsis "\n[...]\n\n"
+  "*The string which is inserted for elided text."
+  :type 'string
+  :group 'wl-draft)
+
 (defcustom wl-template-alist nil
   "Alist of template."
   :type '(repeat (list (string :tag "Name")

diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index b60ba74..2799c53 100644 (file)
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -514,7 +514,8 @@ Special commands:
   (define-key wl-draft-mode-map "\C-c\C-p" 'wl-draft-preview-message)
   (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
   (define-key wl-draft-mode-map "\C-c\C-a" 'wl-addrmgr)
-  (define-key wl-draft-mode-map "\C-xk"    'wl-draft-mimic-kill-buffer))
+  (define-key wl-draft-mode-map "\C-xk"    'wl-draft-mimic-kill-buffer)
+  (define-key wl-draft-mode-map "\C-c\C-d" 'wl-draft-elide-region))
 
 (defun wl-draft-overload-functions ()
   (wl-mode-line-buffer-identification)