New function: wl-summary-target-mark-print.

Bind to m# (Summary).

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 607d62e..2af5e13 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-summary.el (wl-summary-target-mark-print): New function.
+       (wl-summary-mode-map): Bind wl-summary-target-mark-print.
+
 2002-03-18  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl.el (wl-check-environment): Rewrite around Message-ID check.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index ea0cebe..ce0c18b 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -494,6 +494,7 @@
   (define-key wl-summary-mode-map "mA"   'wl-summary-target-mark-reply-with-citation)
   (define-key wl-summary-mode-map "mf"   'wl-summary-target-mark-forward)
   (define-key wl-summary-mode-map "m?"   'wl-summary-target-mark-pick)
+  (define-key wl-summary-mode-map "m#"   'wl-summary-target-mark-print)
 
   ;; region commands
   (define-key wl-summary-mode-map "r"    (make-sparse-keymap))
@@ -5617,6 +5618,17 @@ If ASK-CODING is non-nil, coding-system for the message is asked."
 (if (featurep 'ps-print) ; ps-print is available.
     (fset 'wl-summary-print-message 'wl-summary-print-message-with-ps-print))
 
+(defun wl-summary-target-mark-print ()
+  (interactive)
+  (if (null wl-summary-buffer-target-mark-list)
+      (message "No marked message.")
+    (when (y-or-n-p "Print all marked messages. OK? ")
+      (while (car wl-summary-buffer-target-mark-list)
+       (let ((num (car wl-summary-buffer-target-mark-list)))
+         (wl-thread-jump-to-msg num)
+         (wl-summary-print-message)
+         (wl-summary-unmark num))))))
+
 (defun wl-summary-folder-info-update ()
   (let ((folder (elmo-string (wl-summary-buffer-folder-name)))
        (num-db (elmo-msgdb-get-number-alist