       (beginning-of-line)
       (if (not (looking-at mhc-mew/summary-filename-regex))
           ()
-        (setq folder (buffer-substring (match-beginning 1) (match-end 1))
-              number (buffer-substring (match-beginning 2) (match-end 2)))
-        (mhc-summary-folder-to-path folder number)))))
-
+        (buffer-substring (match-beginning 2) (match-end 2))))))
 
 (defun mhc-mew-summary-display-article ()
   "Display the article on the current."

  :group 'mhc
  :type 'boolean)

;; Internal Variables:
(defvar mhc-mew-new-virtual-type (boundp 'mew-regex-summary2)
  "*Mew virtual format type. Non-nil means Mew 3.0.55 or later.")

(defconst mhc-mew/summary-filename-regex
  (if mhc-mew-new-virtual-type
      ".*[^\006\n]+\006 \\+\\([^ ]*\\) \\([0-9]+\\)$"
    ".*\r *\\+\\([^ \t]+\\)[ \t]+\\([^ \t\n]+\\)"))

;; Mew 6.x does not need invisible property at (beginning-of-line)
(defconst mhc-mew/header-string "")
(defconst mhc-mew/header-string-review "")

(defconst mhc-mew/summary-message-alist
  '((mew-summary-mode . mew-message-mode)
    (mew-virtual-mode . mew-message-mode)))

(defconst mhc-mew/cs-m17n
  (if (>= emacs-major-version 20) 'ctext '*ctext*))

            (mew-summary-display-command))
           (t (mew-summary-display))))))
  (save-window-excursion
    (if (eq (progn (other-window 1) major-mode) 'mew-message-mode)
        (current-buffer))))


