[Mew-dist 1163] Re: Some about Mew

[NISHIDA Keisuke]

西田＠阪大です。

I wrote:
> mew-summary-suspend でいったん Mew を抜けた後、再び M-x mew する
> と +inbox に入りますが、ではなく抜けたときの状態を復元するように
> はできないでしょうか? (Info みたく)....

ちょっと作ってみました。先の自分のパッチに対する追加です。

---
大阪大学基礎工学部システム工学科三年
西田 圭介 <ks5036nk at example.com>

-------------- next part --------------
*** /home/kei/mew/mew.el~	Wed Jul  2 18:52:05 1997
--- /home/kei/mew/mew.el	Wed Jul  2 18:50:40 1997
***************
*** 487,492 ****
--- 487,493 ----
  (setq mew-folder-list  ())
  (setq mew-folder-alist ())
  (setq mew-clean-up-buffers ())
+ (setq mew-last-visited-folder nil)
  
  (setq mew-message-citation nil)
  (setq mew-message-citation-buffer nil) ;; should be nil
***************
*** 588,595 ****
    (if (null mew-mail-path) (mew-init))
    (if arg
        (mew-summary-goto-folder) ;; C-u
!     (mew-summary-goto-folder mew-inbox-folder)
!     (mew-summary-get)
      )
    )
  
--- 589,598 ----
    (if (null mew-mail-path) (mew-init))
    (if arg
        (mew-summary-goto-folder) ;; C-u
!     (if mew-last-visited-folder
! 	(mew-summary-goto-folder mew-last-visited-folder)
!       (mew-summary-goto-folder mew-inbox-folder)
!       (mew-summary-get))
      )
    )
  
***************
*** 837,842 ****
--- 840,846 ----
  (defun mew-summary-suspend ()
    "A function to suspend Mew Summary mode."
    (interactive)
+   (setq mew-last-visited-folder (mew-summary-folder-name))
    (mew-window-pop)
    ;; bury buffers
    (if window-system
***************
*** 875,880 ****
--- 879,885 ----
      (setq mew-news-path nil)
      (setq mew-window-stack nil)
      (setq mew-draft-folder nil)
+     (setq mew-last-visited-folder nil)
      (setq mew-alias-alist ())
      (setq mew-folder-list ())
      (setq mew-folder-alist ())