[Mew-dist 1161] initial default directory

[NISHIDA Keisuke]

西田＠阪大です。バグ報告はこちらでよいのでしょうか?

最初に M-x mew したときにカレントディレクトリが移動しないようで
すので、手直ししてみました。

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

-------------- next part --------------
*** /home/kei/mew/mew-summary.el~	Tue Jul  1 10:15:52 1997
--- /home/kei/mew/mew-summary.el	Wed Jul  2 07:28:18 1997
***************
*** 459,467 ****
  ;;; Folder
  ;;;
  
! (defun mew-summary-goto-folder ()
    (interactive)
!   (let* ((folder (mew-input-folder mew-inbox-folder))
  	 (dir (mew-expand-folder folder)))
      (if (null (file-directory-p dir))
  	(message "No such folder %s" folder)
--- 460,468 ----
  ;;; Folder
  ;;;
  
! (defun mew-summary-goto-folder (&optional folder)
    (interactive)
!   (let* ((folder (or folder (mew-input-folder mew-inbox-folder)))
  	 (dir (mew-expand-folder folder)))
      (if (null (file-directory-p dir))
  	(message "No such folder %s" folder)
-------------- next part --------------
*** /home/kei/mew/mew.el~	Tue Jul  1 10:27:19 1997
--- /home/kei/mew/mew.el	Wed Jul  2 07:28:03 1997
***************
*** 588,596 ****
    (if (null mew-mail-path) (mew-init))
    (if arg
        (mew-summary-goto-folder) ;; C-u
!     (if (get-buffer mew-inbox-folder)
! 	(switch-to-buffer mew-inbox-folder)
!       (mew-summary-folder-create mew-inbox-folder))
      (mew-summary-get)
      )
    )
--- 588,594 ----
    (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)
      )
    )