From: 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/gitweb/?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 + + * 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 * 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