[Mew-dist 16545] Re: i in summary buffer

[Takuro Horikawa ( 堀川 拓郎 )]

堀川です。


From: Tak Ota <Takaaki.Ota at example.com>
Subject: [Mew-dist 16542] Re: i in summary buffer
Date: Tue, 20 Feb 2001 15:54:17 +0900

> ＃ でもそれでも i で新着メッセージがなかったら自動的に C-c C-b して欲
> ＃ しい。
新着メッセージが有る無しにかかわらず元の場所にカーソルが在るとうれしい
です。

save-excursion でくるめばいけるのですが。

--- mew-scan.el.org	Tue Feb 20 16:22:53 2001
+++ mew-scan.el	Tue Feb 20 16:23:21 2001
@@ -366,6 +366,7 @@
 	 (mailbox (mew-mailbox-type case))
 	 (directive (if no-flush 'no-flush))
 	 range)
+    (save-excursion
     ;; for mew-summary-exchange-point.
     (cond
      ((mew-summary-or-virtual-p)
@@ -407,7 +408,7 @@
        ((eq mailbox 'pop)
 	(mew-pop-retrieve case nil nil nil directive))
        ((eq mailbox 'mbox)
-	(mew-mbox-retrieve case))))))
+	(mew-mbox-retrieve case)))))))
 
 (defun mew-header-get-xuidl-from-file (fld msg)
   (let ((buf (generate-new-buffer mew-buffer-prefix))

----------------------------------------
堀川　拓郎　takuroho at example.com