* wl-summary.el (wl-summary-resend-message): Abolished, the

feature is inherited by wl-summary-resend (put resend mark).

diff --git a/NEWS b/NEWS
index 04c1a4e..7491e32 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -35,6 +35,9 @@ Wanderlust NEWS -- User-visible changes in Wanderlust.
    mark-and-actions can be define by the new variable, 
    'wl-summary-mark-action-list'. See its docstring for more in detail.
 
+** The function wl-summary-resend-message is abolished. Instead of it,
+   you can put mark for resending by wl-summary-resend.
+
 ** New face
 
    wl-highlight-summary-disposed-face

diff --git a/NEWS.ja b/NEWS.ja
index 585df18..a2a8dc1 100644 (file)
--- a/NEWS.ja
+++ b/NEWS.ja
@@ -32,6 +32,9 @@ Wanderlust NEWS (\e$BF|K\8lHG\e(B) -- User-visible changes in Wanderlust.
    \e$B%^!<%/$H%"%/%7%g%s$O!"?75,JQ?t\e(B wl-summary-mark-action-list \e$B$K$h$C$FDj5A\e(B
    \e$B$G$-$^$9!#>\$7$/$OF1JQ?t$N\e(B docstring \e$B$r;2>H$7$F$/$@$5$$!#\e(B
 
+** \e$B4X?t\e(B wl-summary-resend-message \e$B$OGQ;_$5$l$^$7$?!#$=$NBe$o$j$K\e(B
+   wl-summary-resend \e$B$r;H$($P:FAw%^!<%/$rIU$1$k$3$H$,$G$-$^$9!#\e(B
+
 ** \e$B?75,\e(B face
 
    wl-highlight-summary-disposed-face

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index cedef09..b59ea0a 100644 (file)
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -168,12 +168,6 @@
 
 ;;; [[ Special Setting ]]
 
-;; bind "b" in Summary to resend-message (ala mutt's "b"ounce)
-;(add-hook 'wl-summary-mode-hook
-;        '(lambda ()
-;           (define-key wl-summary-mode-map "b" 'wl-summary-resend-message)
-;           ))
-
 ;; open unread group folder after checking.
 ;(add-hook 'wl-folder-check-entity-hook
 ;        '(lambda ()

diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index dd262c2..65b2372 100644 (file)
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -167,12 +167,6 @@
 
 ;;; [[ \e$BFC<l$J@_Dj\e(B ]]
 
-;; \e$B%5%^%j$G$N\e(B "b" \e$B$r%a%C%;!<%8:FAw$K$9$k\e(B (mutt \e$B$N\e(B "b"ounce)
-;(add-hook 'wl-summary-mode-hook
-;        '(lambda ()
-;           (define-key wl-summary-mode-map "b" 'wl-summary-resend-message)
-;           ))
-
 ;; \e$B%0%k!<%W$r\e(Bcheck\e$B$7$?8e$KL$FI$,$"$k%U%)%k%@$N%0%k!<%W$r<+F0E*$K3+$/\e(B
 ;(add-hook 'wl-folder-check-entity-hook
 ;        '(lambda ()

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f386014..becce91 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-27  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-summary.el (wl-summary-resend-message): Abolished, the
+       feature is inherited by wl-summary-resend (put resend mark).
+
 2003-07-27  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-summary.el (wl-summary-toggle-disp-msg): Set

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index e5abe08..56c92de 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -290,6 +290,7 @@ See also variable `wl-use-petname'."
      ["Set dispose mark" wl-summary-dispose t]
      ["Set refile mark" wl-summary-refile t]
      ["Set copy mark"   wl-summary-copy t]
+     ["Set resend mark" wl-summary-resend t]
      ["Prefetch"        wl-summary-prefetch t]
      ["Set target mark" wl-summary-target-mark t]
      ["Unmark"          wl-summary-unmark t]
@@ -297,7 +298,6 @@ See also variable `wl-use-petname'."
      ["Cancel posted news" wl-summary-cancel-message t]
      ["Supersedes message" wl-summary-supersedes-message t]
      ["Resend bounced mail" wl-summary-resend-bounced-mail t]
-     ["Resend message" wl-summary-resend-message t]
      ["Enter the message" wl-summary-jump-to-current-message t]
      ["Pipe message" wl-summary-pipe-message t]
      ["Print message" wl-summary-print-message t])
@@ -659,55 +659,6 @@ you."
        (t
        (message "Does not appear to be a rejected letter."))))))
 
-(defun wl-summary-resend-message (address)
-  "Resend the current message to ADDRESS."
-  (interactive "sResend message to: ")
-  (if (or (null address) (string-match "^[ \t]*$" address))
-      (message "No address specified.")
-    (message "Resending message to %s..." address)
-    (save-excursion
-      (let ((original (wl-summary-get-original-buffer)))
-       ;; We first set up a normal mail buffer.
-       (set-buffer (get-buffer-create " *wl-draft-resend*"))
-       (buffer-disable-undo (current-buffer))
-       (erase-buffer)
-       (setq wl-sent-message-via nil)
-       ;; Insert our usual headers.
-       (wl-draft-insert-from-field)
-       (wl-draft-insert-date-field)
-       (insert "to: " address "\n")
-       (goto-char (point-min))
-       ;; Rename them all to "Resent-*".
-       (while (re-search-forward "^[A-Za-z]" nil t)
-         (forward-char -1)
-         (insert "Resent-"))
-       (widen)
-       (forward-line)
-       (delete-region (point) (point-max))
-       (let ((beg  (point)))
-         ;; Insert the message to be resent.
-         (insert-buffer-substring original)
-         (goto-char (point-min))
-         (search-forward "\n\n")
-         (forward-char -1)
-         (save-restriction
-           (narrow-to-region beg (point))
-           (wl-draft-delete-fields wl-ignored-resent-headers)
-           (goto-char (point-max)))
-         (insert mail-header-separator)
-         ;; Rename all old ("Previous-")Resent headers.
-         (while (re-search-backward "^\\(Previous-\\)*Resent-" beg t)
-           (beginning-of-line)
-           (insert "Previous-"))
-         ;; Quote any "From " lines at the beginning.
-         (goto-char beg)
-         (when (looking-at "From ")
-           (replace-match "X-From-Line: ")))
-       ;; Send it.
-       (wl-draft-dispatch-message)
-       (kill-buffer (current-buffer)))
-      (message "Resending message to %s...done" address))))
-
 (defun wl-summary-detect-mark-position ()
   (let ((column wl-summary-buffer-number-column)
        (formatter wl-summary-buffer-line-formatter)