[Mew-dist 1181] Re: `*' and `@'

[Takashi P.KATOH]

かとぺ＠東北大です。

えっと確認ですが、いま問題になっているのは、

From: NISHIDA Keisuke <knishida at example.com>
Subject: [Mew-dist 1164] Re: `*' and `@'
> 付け加えるなら、`*' は一時操作用とみなして、refile(`o') や 
> forward(`f') の動作もマークに応じて変更するようにしてはどうでしょ
> うか? つまり、マークのあるときはそれらのメッセージに、マークのな
> いときはカーソル行のメッセージに、という具合に。(`o' と `mo'、
> `f' と `F' などの機能をそれぞれ一つのコマンドにまとめてしまう)

についてですよね？


>> それは私の都合ですから置くとしても、今見ているフォルダにマークのついた記
>> 事があるかどうかはぱっと見ただけではわからない事が多いでしょうから、ここ
>> までやるとマークされた記事はないと思って o とやったら知らないうちに見え
>> ない所にある記事が refile されちゃったということになりかねないと思います
>> がどうでしょうか。

私も同感です。


> そのようなことが起こらないように、との意図で、「一時操作用に限定
> する」としました。マークを付けっぱなしにして何かに役立てるのでは
> なくて、操作を行ないたいときに対象を選ぶ役割としてのマークです。

Subject: [Mew-dist 1167] Re: `*' and `@'
From: taca at example.com (Takahiro Kambe)
|			 `@'や`*'といったマークを付けて後で処理する
| ものを作りつつ、途中で出会ったメッセージを単独で転送するということ
| をやります。

私もこのようなことをするので、「一時的」とはいってもやぱり嬉
しくないです。


結局のところ (ただの確認ですが)、

| 1. 表示等のメッセージの移動のため(`*')
| 2. 転送等の複数メッセージの指定(`@')
| 3. フォルダ移動等のため(`*')

を、

1. -> (`@')
2. -> (`*')
3. -> (`*')

にしたいということです。

必要なのは、
(1) `F'     (mew-summary-multi-forward)
    `ESC s' (mew-summary-unshar)
    `ESC t' (mew-summary-uudecode)
    の対象を `*' に変更
(2) N, P の対象を `@' に変更
(3) n, p の動作の変更
    (「下[上]方向のマークが付いていないか `@' マークの付いた
     メールへ移動」でいいのかな？)

くらいじゃないでしょうか。
って書いたらすぐできる気がしてきた...

ので 1.85 に対する patch を作ってみました。
ポカしてたらごめんなさい。
# mark や function の名前とかも変えた方がいいんでしょうが、
# それはとりあえず後回し。

ちなみに私はマークを増やす必然性をあまり感じません。

-- 
  東北大学大学院 情報科学研究科 白鳥研究室    加藤 貴司
  p-katoh at example.com / Takashi P.KATOH
  http://www.shiratori.riec.tohoku.ac.jp/~p-katoh/MAIL/
-------------- next part --------------
--- mew/mew-summary.el	Thu Jul  3 14:06:35 1997
+++ mew-summary.el	Thu Jul  3 18:44:59 1997
@@ -932,7 +932,7 @@
   (cond 
    ((re-search-forward 
      (concat mew-summary-message-regex 
-	     "[ " (char-to-string mew-mark-hop) "]\\|"
+	     "[ " (char-to-string mew-mark-mark) "]\\|"
 	     mew-summary-part-regex)
      nil t nil)
     (beginning-of-line)
@@ -968,7 +968,7 @@
   (cond 
    ((re-search-backward
      (concat mew-summary-message-regex 
-	     "[ " (char-to-string mew-mark-hop) "]\\|"
+	     "[ " (char-to-string mew-mark-mark) "]\\|"
 	     mew-summary-part-regex)
      nil t nil)
     (setq mew-summary-buffer-direction 'up)
@@ -1035,7 +1035,7 @@
 	(if (looking-at mew-summary-part-regex)
 	    (setq part t))))
     (if (null part)
-	(if (mew-summary-down-mark mew-mark-hop)
+	(if (mew-summary-down-mark mew-mark-mark)
 	    (if mew-summary-buffer-disp-msg ;; just seed up!
 		(mew-summary-display)))
       (mew-summary-message-down)
@@ -1067,7 +1067,7 @@
     (if (looking-at mew-summary-part-regex)
 	(setq part t))
     (if (null part)
-	(if (mew-summary-up-mark mew-mark-hop)
+	(if (mew-summary-up-mark mew-mark-mark)
 	    (if mew-summary-buffer-disp-msg ;; just seed up!
 		(mew-summary-display)))
       (mew-summary-message-up)
@@ -1297,7 +1297,7 @@
 
 (defun mew-summary-multi-forward ()
   (interactive)
-  (let ((fld-msg (mew-summary-mark-collect2 mew-mark-mark)))
+  (let ((fld-msg (mew-summary-mark-collect2 mew-mark-hop)))
     (cond
      (fld-msg
       (mew-current-set 'window (current-window-configuration))
@@ -1556,7 +1556,7 @@
 
 (defun mew-summary-unshar ()
   (interactive)
-  (let ((fld-msg (nreverse (mew-summary-mark-collect2 mew-mark-mark)))
+  (let ((fld-msg (nreverse (mew-summary-mark-collect2 mew-mark-hop)))
 	(files nil)
 	(dir nil))
     (if (not fld-msg)
@@ -1581,7 +1581,7 @@
 
 (defun mew-summary-uudecode ()
   (interactive)
-  (let ((fld-msg (nreverse (mew-summary-mark-collect2 mew-mark-mark)))
+  (let ((fld-msg (nreverse (mew-summary-mark-collect2 mew-mark-hop)))
 	(files nil)
 	(dir nil)
 	(tarfile nil)