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

[Kazu Yamamoto ( 山本和彦 )]

From: KOIE Hidetaka (鯉江英隆) <hide at example.com>
Subject: [Mew-dist 13408] Re: mew-fcc, back to the previous messaage

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

いい感じです。これでどうでしょう？ (b40 に当てて下さい。)

--かず
-------------- next part --------------
*** mew-scan.el.orig	Mon Jun  5 00:08:14 2000
--- mew-scan.el	Wed Jun 28 10:57:16 2000
***************
*** 16,21 ****
--- 16,23 ----
    "Get +inbox asynchronously."
    (interactive "P")
    (let ((inbox (mew-inbox-folder mew-config-input)))
+     ;; for mew-summary-exchange-point.
+     (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,40 ****
  		(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
  			   'mew-summary-mode
--- 35,40 ----
***************
*** 42,52 ****
  			   mew-cs-scan)))
  
  (defun mew-summary-exchange-point ()
!   "Exchange the current point and the marker."
    (interactive)
    (mew-summary-only
!    (and (member (buffer-name) mew-inbox-folders)
! 	(marker-position mew-summary-inbox-position)
  	(goto-char (marker-position mew-summary-inbox-position)))))
  
  (defun mew-summary-ls (&optional arg jump)
--- 42,55 ----
  			   mew-cs-scan)))
  
  (defun mew-summary-exchange-point ()
!   "Get back to the position before typing '\\<mew-summary-mode-map>\\[mew-summary-get]'."
    (interactive)
    (mew-summary-only
!    (and (member (buffer-name) mew-inbox-folders) ;; can be used in +inbox only
! 	(marker-position mew-summary-inbox-position) ;; marker is valid
! 	(or (equal (current-buffer)
! 		   (marker-buffer mew-summary-inbox-position))
! 	    (switch-to-buffer (marker-buffer mew-summary-inbox-position)))
  	(goto-char (marker-position mew-summary-inbox-position)))))
  
  (defun mew-summary-ls (&optional arg jump)