 
 
 (defun mhc-mew/schedule-foldermsg (schedule)
-  (let ((path (mhc-record-name (mhc-schedule-record schedule))) fld-msg)
-    (if (and
-         path
-         (string-match
-          (concat "^"
-                  (regexp-quote (file-name-as-directory mhc-mail-path)))
-          path))
-        (if (fboundp 'mew-summary-parent-id)
-            (progn
-              (setq fld-msg (concat "+" (substring path (match-end 0))))
-              (setq fld (directory-file-name (file-name-directory fld-msg)))
-              (setq msg (file-name-nondirectory fld-msg))
-              (with-temp-buffer
-                (mew-insert-message fld msg mew-cs-text-for-read mew-header-reasonable-size)
-                (setq msgid (or (mew-idstr-get-first-id
-                                 (mew-header-get-value "X-SC-Record-Id:"))
-                                " "))
-                (setq ref (or (mew-idstr-get-first-id
-                               (mew-header-get-value mew-message-id:))
-                              " ")))
-              (concat "\r " (directory-file-name (file-name-directory fld-msg))
-                      " " (file-name-nondirectory fld-msg)
-                      " " msgid " " ref "  "))
-          (setq fld-msg (concat "+" (substring path (match-end 0))))
-          (concat "\r "
-                  (if mhc-mew-new-virtual-type "<> <> \006 ")
-                  (directory-file-name (file-name-directory fld-msg))
-                  " "
-                  (file-name-nondirectory fld-msg)))
-      "")))
-
+  (concat "\r +MHC " (mhc-record-name (mhc-schedule-record schedule))))
 
 (defun mhc-mew-insert-summary-contents (inserter)
-  (insert (if mhc-tmp-schedule
-              mhc-mew/header-string-review mhc-mew/header-string))
   (funcall inserter)
   (insert (mhc-mew/schedule-foldermsg mhc-tmp-schedule)
           "\n"))

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