[Mew-dist 06340] not follow mew-summary-buffer-direction

[OBATA Noboru]

小幡です。

いつも summary バッファで `n' と `p' で上下にうろうろしながらメー
ルを見たり探したりします。そこで `o' で refile すると、直前に `n'
したか `p' したかで refile 後のカーソルの位置が変わります。

ぼくは refile は上から下へすると決めているので(笑)、これを制御で
きればと思いました。

パッチをあてて ~/.emacs に

  (setq mew-summary-follow-buffer-direction nil)

と書くと、`n'/`p' 関係なく refile 後に必ず下に向かいます。

----
小幡  昇 (obata at example.com)
-------------- next part --------------
--- mew-summary.el.orig	Mon Aug 31 12:38:14 1998
+++ mew-summary.el	Mon Sep  7 14:04:14 1998
@@ -885,7 +885,8 @@
 ;;;
 
 (defun mew-summary-next ()
-  (if (equal mew-summary-buffer-direction 'up)
+  (if (and mew-summary-follow-buffer-direction
+           (equal mew-summary-buffer-direction 'up))
       (mew-summary-up)
     (mew-summary-down)))
 
-------------- next part --------------
--- mew-vars.el.orig	Tue Sep  1 16:12:53 1998
+++ mew-vars.el	Mon Sep  7 21:40:27 1998
@@ -157,6 +157,7 @@
 (defvar mew-summary-imap-process nil)
 (defvar mew-summary-imap-string nil)
 (defvar mew-summary-buffer-direction nil)
+(defvar mew-summary-follow-buffer-direction t)
 (defvar mew-summary-buffer-folder-cache-time nil)
 (defvar mew-summary-buffer-refile nil)
 (defvar mew-summary-buffer-disp-msg t)
@@ -178,6 +179,7 @@
        'mew-summary-imap-process
        'mew-summary-imap-string
        'mew-summary-buffer-direction
+       'mew-summary-follow-buffer-direction
        'mew-summary-buffer-folder-cache-time
        'mew-summary-buffer-refile
        'mew-summary-buffer-disp-msg