From: yoichi <yoichi>
Date: Tue, 19 Mar 2002 08:54:03 +0000 (+0000)
Subject: New function: wl-summary-target-mark-print.
X-Git-Tag: elmo-mark-root~245
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0f450ba1c196be4971f881a5405b87c564240c63;p=elisp%2Fwanderlust.git

New function: wl-summary-target-mark-print.
Bind to m# (Summary).
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 607d62e..2af5e13 100644
--- 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
--- 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