; -*- Emacs Lisp -*- prom-mew-1.94
(defun prom-summary-goto-folder (&optional arg fld range)
   "Assigend to g in virtual and summary mode."
  (interactive "P")
  (let (dir folder prev-folder)
    (if (interactive-p)
        (progn
          (setq prev-folder (buffer-name))
          (call-interactively 'mew-summary-goto-folder)
          (setq folder (buffer-name))
          (if (equal prev-folder folder)
              nil
            (if prom-folder-name
                (prom-update-unread-messages prom-folder-name))
            (if folder
                (setq prom-folder-name folder))
            (setq prom-seen-list nil)
            (setq prom-tmp-auto-select-next nil)
            ))
      (setq folder (or fld (mew-input-folder mew-inbox-folder))
            dir (mew-expand-folder folder))
      (cond
       ((mew-folder-newsp folder)
        (prom-summary-goto-folder-subr folder range arg))
       ((mew-folder-imapp folder)
        (if (or (file-directory-p dir)
                (and (y-or-n-p
                      (format
                       "Cache directory for %s does not exist. Create it? "
                       folder))
                     (mew-make-directory dir)))
            (prom-summary-goto-folder-subr folder range arg)))
       (t   ;; mail or local news
        (if (null dir)
            (message "Folder is wrong")
          (if (not (file-directory-p dir))
              (message "No such folder %s" folder)
            (prom-summary-goto-folder-subr folder range arg)
            (if mew-summary-trace-directory (cd dir)))))))
    ))