[mew-dist 20717] Re: '*', '@' mark

[ARAI Shun-ichi]

あらいです。

> 現状の`*'が何日もに渡って保持する「重要マーク」として利用できない
> ことは、これまでにも何度か話題に挙がっており、問題点として認識さ
> れていることと思います。

　なるほど、そうですか。

> とりあえずの対策としては、白井さんによる「簡単マーク作成サポート
> 関数」([mew-dist 19481], on Wed, 24 Oct 2001)を使ったり、
> mew-scan-formで独自のマーク場所を設けたりする方法もあります。

　参考にしてみます。

　ところで、

In <20020403231457R.hermes at example.com>;
   ARAI Shun-ichi <hermes at example.com> wrote
   as Subject "[mew-dist 20713] '*', '@' mark":

> 　ついでに、mew-summary-display-multi-down/up も作りました。名前からわ
> かると思いますが、mew-summary-display-review-down/up の '@' マーク版で
> す。ちょっと強引ですが、'M-N', 'M-P' に割り当ててあります。

これは、'C-uN', 'C-uP' で実現できるので不要ですね。というわけで、前の
メールで送った差分のうち、mew-key.el に対するパッチはなしということで。

　で、mew-mark.el に対するパッチを作り直したのですが、ちょっと問題点を
見つけました。'C-uN'（mew-summary-display-review-down 引数つき）などの
動作が変です。マークを選択したところで処理が終わってしまいます。
　そこで、添付したパッチのように修正しました。差分の一番最後の二カ所で
す。この修正は、今回の件に関係なく、正式に適用すべきものであると思いま
す。いかがでしょうか。

--
新井 俊一 <ARAI Shun-ichi>
hermes at example.com
-------------- next part --------------
--- mew-mark.el	2002-03-27 13:13:42+09	1.1
+++ mew-mark.el	2002-04-04 16:51:11+09
@@ -448,7 +448,7 @@
 ;;;
 
 (defun mew-summary-mark-all (&optional arg)
-  "Put the '*' mark onto all messages which are not marked."
+  "Put the '@' mark onto all messages which are not marked."
   (interactive "P")
   (mew-decode-syntax-delete)
   (if arg
@@ -457,11 +457,11 @@
     (mew-summary-mark-region (point-min) (point-max))))
 
 (defun mew-summary-mark-region (beg end)
-  "Put the '*' mark onto all messages which are not marked between
+  "Put the '@' mark onto all messages which are not marked between
 BEG and END."
   (interactive "r")
   (let ((regex (concat mew-regex-msg " "))
-	(mark mew-mark-review) ;; someday ...
+	(mark mew-mark-multi)
 	fld msg alist)
     (save-excursion
       (goto-char beg)
@@ -476,11 +476,11 @@
     (mew-summary-mark-in-physical-alist alist mark)))
 
 (defun mew-summary-mark-regexp ()
-  "Put the '*' mark onto all messages matched to a regular expression."
+  "Put the '@' mark onto all messages matched to a regular expression."
   (interactive)
   (mew-decode-syntax-delete)
   (let ((regex (read-string "Regexp: "))
-	(mark mew-mark-review) ;; someday ...
+	(mark mew-mark-multi)
         (n 0)
 	fld msg alist)
     (while (string= regex "")
@@ -613,15 +613,15 @@
 	(set-buffer-modified-p nil)
 	(mew-summary-mark-in-physical-alist alist newmark)))))
    
-(defun mew-summary-mark-delete ()	;; * -> D
-  "Put the delete mark onto all messages marked with '*'."
+(defun mew-summary-mark-delete ()	;; @ -> D
+  "Put the delete mark onto all messages marked with '@'."
   (interactive)
-  (mew-summary-exchange-mark mew-mark-review mew-mark-delete))
+  (mew-summary-exchange-mark mew-mark-multi mew-mark-delete))
 
-(defun mew-summary-mark-unlink ()	;; * -> X
-  "Put the delete mark onto all messages marked with '*'."
+(defun mew-summary-mark-unlink ()	;; @ -> X
+  "Put the delete mark onto all messages marked with '@'."
   (interactive)
-  (mew-summary-exchange-mark mew-mark-review mew-mark-unlink))
+  (mew-summary-exchange-mark mew-mark-multi mew-mark-unlink))
 
 (defun mew-summary-mark-multi ()	;; * -> @
   "Change the '*' mark into the '@' mark."
@@ -971,9 +971,9 @@
   "Jump to the message marked with '*' below."
   (interactive "P")
   (if arg
-      (mew-summary-set-walk-mark)
-    (if (mew-summary-down-mark mew-mark-walk)
-	(mew-summary-display nil))))
+      (mew-summary-set-walk-mark))
+  (if (mew-summary-down-mark mew-mark-walk)
+      (mew-summary-display nil)))
 
 (defun mew-summary-up-mark (mark)
   (let ((case-fold-search nil))
@@ -988,9 +988,9 @@
   "Jump to the message marked with '*' above."
   (interactive "P")
   (if arg
-      (mew-summary-set-walk-mark)
-    (if (mew-summary-up-mark mew-mark-walk)
-	(mew-summary-display nil))))
+      (mew-summary-set-walk-mark))
+  (if (mew-summary-up-mark mew-mark-walk)
+      (mew-summary-display nil)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;