[Mew-dist 06653] Re: not follow mew-summary-buffer-direction

[SAKAI Kiyotaka]

>> In article <19981005194347T.obata at example.com>, OBATA Noboru <obata at example.com> writes:

>> 1. mew-summary-mark-direction という変数を導入する。
>> 2. この変数は mew-summary-show-direction と同じく 'up, 'down,
>> 'next(current direction), 'stop の 4種類の値を取ることができる。
>> それぞれの値の意味は mew-summary-show-direction と同じ。
>> 3. デフォルトは 'next (現状通り)
>> 4. 小幡さんの希望の通りの動作にするには 'down に設定すればよい。
>> 
>> という仕様にするのが mew-summary-show-direction との対称性があって美し
>> いかと思います。

> とても良いと思います。

では、これを実現するためのパッチです。

現状では単独の 'd' と 'o' だけで、'*' と '@' やマークの上書きについて
はまだ仕様が固まっていませんので、特に何もやっていません。(現状通りで
す。)

# mew-summary-show-direction はシンボルとの比較に eq ではなくて equal
# を使っていますが、これは何故なんでしょうか？
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
Index: mew-mark.el
===================================================================
RCS file: /home/cvsroot/mew-1.93/mew-mark.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-mark.el
--- mew-mark.el	1998/10/06 00:50:01	1.1.1.1
+++ mew-mark.el	1998/10/06 02:42:11
@@ -264,7 +264,7 @@
 	      ;; for C-x C-x
 	      (beginning-of-line)
 	      (push-mark (point) t t)
-	      (mew-summary-display-next)))
+	      (mew-summary-display-after-mark)))
       (while (and (> count 0) (not (eobp)))
 	(setq count (1- count))
 	(mew-summary-delete-one 'force)
Index: mew-refile.el
===================================================================
RCS file: /home/cvsroot/mew-1.93/mew-refile.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-refile.el
--- mew-refile.el	1998/10/06 00:50:02	1.1.1.1
+++ mew-refile.el	1998/10/06 02:41:28
@@ -625,7 +625,7 @@
 	(beginning-of-line)
 	(let ((zmacs-regions nil))
 	  (push-mark (point) t t))
-	(mew-summary-display-next))
+	(mew-summary-display-after-mark))
       (set-buffer-modified-p nil)
       folders)))) ;; return value
 
Index: mew-summary.el
===================================================================
RCS file: /home/cvsroot/mew-1.93/mew-summary.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-summary.el
--- mew-summary.el	1998/10/06 00:50:02	1.1.1.1
+++ mew-summary.el	1998/10/06 02:41:17
@@ -1001,6 +1001,16 @@
 	   (mew-pop-to-buffer buf))
        (mew-summary-show)))))
 
+(defun mew-summary-display-after-mark ()
+  (cond 
+   ((eq mew-summary-mark-direction 'down)
+    (mew-summary-display-down))
+   ((eq mew-summary-mark-direction 'up)
+    (mew-summary-display-up))
+   ((eq mew-summary-mark-direction 'next)
+    (mew-summary-display-next))
+   (t ())))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; to Draft mode
Index: mew-vars.el
===================================================================
RCS file: /home/cvsroot/mew-1.93/mew-vars.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-vars.el
--- mew-vars.el	1998/10/06 00:50:03	1.1.1.1
+++ mew-vars.el	1998/10/06 02:31:43
@@ -161,6 +161,7 @@
 (defvar mew-summary-buffer-refile nil)
 (defvar mew-summary-buffer-disp-msg t)
 (defvar mew-summary-buffer-left-msgs "-")
+(defvar mew-summary-mark-direction 'next)
 (defvar mew-watch-buffer-process nil)
 (defvar mew-cache-attribute nil)
 (defvar mew-decode-syntax nil)