[Mew-dist 12744] interactive mew-summary-exec-region

[Kazumasa Utashiro]

"x" で処理する範囲を指定したくて、

  (define-key mew-summary-mode-map "x"    'mew-summary-exec-region)

としてみたら、必ず領域が指定されちゃうのね。というわけで、
mew-summary-exec に prefix が指定された時だけ、region 内のコマンドを実
行できるといいんじゃないかと思います。

(defun mew-summary-exec (&optional arg)
  "\\<mew-summary-mode-map>
Process marked messages. To cancel the '*' mark, use '\\[mew-summary-undo]' or '\\[mew-summary-undo-all]'."
  (interactive "p")
  (mew-summary-only
   (if arg
       (mew-summary-exec-region (mark) (point))
     (mew-summary-exec-region (point-min) (point-max)))))

ついでに、mew-summary-exec-current が prefix 付きで実行されると、先頭
から現在行までを処理するようにしてみたら、実際にはこっちの方が便利でし
た。

(defun mew-summary-exec-current (&optional arg)
  "Process the current marked message.
If prefix argument was given, process all mark before current message."
  (interactive "p")
  (mew-summary-only
   (mew-summary-goto-message)
   (mew-decode-syntax-delete)
   (let (beg end)
     (save-excursion
       (beginning-of-line)
       (setq beg (if arg (point-min) (point)))
       (end-of-line)
       (setq end (1+ (point))))
     (mew-summary-exec-region beg end))))

変更は単純で、使ってるのは古めの 1.95b3 なのでパッチにはしません。関数
名も変わってるみたいだし。

--utashiro