[mew-dist 22875] Re: 要望いろいろ

[Kazu Yamamoto ( 山本和彦 )]

From: Yasunari Momoi <momo at example.com>
Subject: [mew-dist 22673] 要望いろいろ

> ・m/ (今 mark されているファイルを virtual folder へ) がほしい

以下のコマンドみないなのでいいですか？

> ・指定範囲のみを対象にした pick がほしい

キー割り当てを考えて頂ければ、1 分で実装できます。

--かず

(defun mew-summary-mark-virtual ()
  (interactive)
  (if (not (mew-summary-p))
      (message "This command cannot be used in this mode")
    (let* ((folder (mew-summary-folder-name 'ext))
	   (vfolder (mew-summary-get-vfolder (list folder)))
	   (buf (generate-new-buffer vfolder))
	   (form (format "%%%ds" (mew-summary-scan-form-num folder)))
	   (i 1)
	   beg line)
      (save-excursion
	(goto-char (point-min))
	(while (re-search-forward mew-regex-msg-review nil t)
	  (beginning-of-line)
	  (setq beg (point))
	  (setq msg (mew-summary-message-number))
	  (forward-line)
	  ;; This must be buffer-substring
	  (setq line (buffer-substring beg (point)))
	  (save-excursion
	    (set-buffer buf)
	    (insert (mew-sort-adjust-number form (int-to-string i) line))
	    (forward-line -1)
	    (end-of-line)
	    (insert " \006 " folder " " msg)
	    (forward-line))
	  (setq i (1+ i))))
      (switch-to-buffer vfolder)
      (mew-virtual-mode)
      (mew-window-configure 'summary))))