[Mew-dist 13408] Re: mew-fcc, back to the previous messaage

[KOIE Hidetaka ( 鯉江英隆 )]

いままでC-cC-bを知りませんでした。けっこう便利ですね。

iを押したバッファが+inboxとは違っているときに戻れないので
ちょろっと変えてみました。

--- /usr/home/koie/mew/mew-1.95b40/mew-scan.el	Sun Jun  4 22:47:21 2000
+++ ./mew-scan.el	Tue Jun 27 17:40:59 2000
@@ -16,6 +16,7 @@ (defun mew-summary-get (&optional arg)
   "Get +inbox asynchronously."
   (interactive "P")
   (let ((inbox (mew-inbox-folder mew-config-input)))
+    (set-marker mew-summary-inbox-position (point) (current-buffer))
     (mew-summary-switch-to-folder inbox)
     (if (and mew-summary-cache-use (mew-summary-folder-dir-newp))
 	(progn
@@ -33,7 +34,6 @@ (defun mew-summary-get (&optional arg)
 		(accept-process-output)
 		(sit-for 0.1)) ;; to flush
 	    (while mew-summary-buffer-process (sit-for 1)))))
-    (set-marker mew-summary-inbox-position (point) (current-buffer))
     ;; for C-xC-x
     (or arg (goto-char (point-max)))
     (mew-summary-scan-body mew-prog-imget
@@ -47,7 +47,9 @@ (defun mew-summary-exchange-point ()
   (mew-summary-only
    (and (member (buffer-name) mew-inbox-folders)
 	(marker-position mew-summary-inbox-position)
-	(goto-char (marker-position mew-summary-inbox-position)))))
+        (set-buffer (marker-buffer mew-summary-inbox-position))
+	(goto-char (marker-position mew-summary-inbox-position))
+        (switch-to-buffer (marker-buffer mew-summary-inbox-position)))))
 
 (defun mew-summary-ls (&optional arg jump)
   "List this folder asynchronously."

関数の説明として"Exchange the current point and the marker."は
適切じゃないとおもうのですが、英語でどうかくのか分からないのでパス。

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>