             (mew-summary-display-command))
            (t (mew-summary-display))))))
   (save-window-excursion
-    (if (eq (cdr (assq major-mode mhc-mew/summary-message-alist))
-            (progn (other-window 1) major-mode))
+    (if (eq (progn (other-window 1) major-mode) 'mew-message-mode)
         (current-buffer))))
 
 

      (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)))))


(defun mhc-mew-summary-display-article ()
  "Display the article on the current."

  :group 'mhc
  :type 'boolean)

(defconst mhc-mew/summary-filename-regex
  ".*\r *\\+\\([^ \t]+\\)[ \t]+\\([^ \t\n]+\\)")

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