Signaling: (void-variable mew-use-petname)
  (and mew-use-petname mew-petname-alist (setq petname (cdr ...)))
  (if (and mew-use-petname mew-petname-alist (setq petname ...)) (setq from petname))
  (progn (setq from (mew-match 1)) (if (and mew-use-petname mew-petname-alist ...) (setq from petname)))
  (if (looking-at "^From \\([^ 	\n]+\\)  \\(.+\\)") (progn (setq from ...) (if ... ...)) (setq from ""))
  (save-excursion (forward-line -1) (beginning-of-line) (if (looking-at "^ Subject: \\(.+\\)") (progn ... ... ... ...) (setq subject "")) (if (looking-at "^From \\([^ 	\n]+\\)  \\(.+\\)") (progn ... ...) (setq from "")))
  (let ((path ...) (num ...)) (setq msg (string-to-int num)) (cond (... ...) (... ...) (t ...)) (save-excursion (forward-line -1) (beginning-of-line) (if ... ... ...) (if ... ... ...)) (prom-add-promrc-log folder msg from subject))
  (if (string-match "^\\(.+\\)/\\([0-9]+\\)" folder-body) (let (... ...) (setq msg ...) (cond ... ... ...) (save-excursion ... ... ... ...) (prom-add-promrc-log folder msg from subject)))
  (let ((folder-body ...)) (if (string-match "^\\(.+\\)/\\([0-9]+\\)" folder-body) (let ... ... ... ... ...)))
  (while (re-search-forward "^  Folder: \\(.+\\)" nil t) (let (...) (if ... ...)))
  (save-excursion (goto-char (point-min)) (while (re-search-forward "^  Folder: \\(.+\\)" nil t) (let ... ...)))
  (let (folder msg from subject petname) (save-excursion (goto-char ...) (while ... ...)))
  prom-set-promrc-log()
  (if (zerop (buffer-size)) nil (if proc-keep-log (if ... ... ...)) (prom-set-promrc-log) (run-hooks (quote prom-get-proc-log-hook)))
  (let ((log-list proc-log-list)) (erase-buffer) (while log-list (let ... ... ...)) (if (zerop ...) nil (if proc-keep-log ...) (prom-set-promrc-log) (run-hooks ...)))
  (save-excursion (set-buffer (get-buffer-create prom-buffer-tmp)) (buffer-disable-undo (current-buffer)) (let (...) (erase-buffer) (while log-list ...) (if ... nil ... ... ...)))
  prom-get-proc-log()
  (cond ((eq status ...) (message "lock file `%s' exists!! Please wait a minute." proc-lock-file) (sit-for 1)) (status (and prom-lock-optional-method ...) (prom-get-proc-log) (prom-unlock proc-lock-file)))
  (let ((folder ...) status) (run-hooks (quote prom-get-new-mail-pre-hook)) (or prom-status-list-all-folders (prom-del-folder-promrc-log)) (or prom-lock-optional-method (and prom-get-new-mail-optional-method ...)) (setq status (prom-lock proc-lock-file)) (cond (... ... ...) (status ... ... ...)) (run-hooks (quote prom-get-new-mail-hook)) (prom-sort-folder) (if (not ...) (cond ... ... ...)) (if folder (prom-folder-jump-to-folder folder)))
  prom-get-new-mail()
  (or prom-init-no-get-new-mail (prom-get-new-mail))
  (if arg (prom-folder-goto-folder) (or prom-init-no-get-new-mail (prom-get-new-mail)))
  prom-mew-init("*Prom*" nil)
  (let ((buf prom-folder-buffer)) (run-hooks (quote prom-previous-hook)) (setq prom-previous-window-config (current-window-configuration)) (if (null mew-mail-path) (mew-init)) (prom-mew-init buf arg) (run-hooks (quote prom-hook)))
  prom-mew(nil)
  call-interactively(prom-mew)