[Mew-dist 08585] Re: quitting cache problem?

[Mitsuru Yoshida]

> > などと表示されますが、そのメッセージを refile しようとすると(o マークを
> > 付ける)、また同じメッセージが出て refile 出来ません。
> > 次のメッセージを decrypted すれば出来るんですが。
> 
> 少なくとも僕の環境では、"o" を押した時点でパスフレーズを聞かれ、復号化
> し、refile 先の候補を示してくれます。
 私のところでも同じ症状が出ています。

FreeBSD 3.1-STABLE, xemacs-20.4, mew-1.94b23, im-114, perl-5.005_02,
pgp-263ia

新着が２通あって、２通目が sign and encrypt されている時に
Summary の１通目で "." で読んで、そのあと "o" を押すと
そうなります。

吉田 充＠情報環境室.理化学研究所 (mitsuru at example.com)
pgp key fingerprint = 2D 5D 15 69 E1 3C 1F 17  95 CA A0 08 B9 90 47 36
[Tel. 048-462-1111 Ext.3193    Fax. 048-462-4634]

---------------------------------------------------------------------------
Signaling: (error "MIME decoding for +inbox/5180 is quitted.")
  signal(error ("MIME decoding for +inbox/5180 is quitted."))
  cerror("MIME decoding for %s/%s is quitted." "+inbox" "5180")
  apply(cerror ("MIME decoding for %s/%s is quitted." "+inbox" "5180"))
  error("MIME decoding for %s/%s is quitted." "+inbox" "5180")
  (condition-case nil (save-excursion (set-buffer hit) (mew-decode fld msg)) (quit (mew-cache-delete) (error "MIME decoding for %s/%s is quitted." fld msg)))
)
  (if decode (condition-case nil (save-excursion ... ...) (quit ... ...)))
)
  (let ((hit ...) (decode nil)) (if hit (save-excursion ... ... ...) (setq hit ...) (setq decode t)) (if decode (condition-case nil ... ...)) hit)
)
  mew-cache-message("+inbox" "5180")
  (if (and (not ...) (or ... ...)) (mew-cache-message folder next))
)
  (if (not (and folder next)) nil (setq file (mew-expand-folder folder next)) (if (and ... ...) (mew-cache-message folder next)))
)
  (let ((mew-inherit-prefetching t) folder next file) (sit-for 0) (mew-summary-goto-message) (cond (... ...) (... ... ...)) (if (not ...) nil (setq file ...) (if ... ...)))
)
  (save-excursion (let (... folder next file) (sit-for 0) (mew-summary-goto-message) (cond ... ...) (if ... nil ... ...)))
)
  (if mew-cache-prefetch (save-excursion (let ... ... ... ... ...)))
)
  mew-summary-cache-prefetch()
  (if (quote prefetch) (mew-summary-cache-prefetch))
)
  (progn (mew-summary-recenter) (mew-highlight-cursor-line) (if (quote prefetch) (mew-summary-cache-prefetch)) (set-buffer-modified-p nil))
)
  (mew-summary-show-postscript (quote prefetch))
)
  (unwind-protect (progn (mew-summary-toggle-disp-msg ...) (mew-window-configure buf ...) (cond ... ...)) (mew-pop-to-buffer buf) (mew-summary-show-postscript (quote prefetch)))
)
  (let* ((fld ...) (msg ...) (fld-msg ...) (ofld-msg ...) (part ...) (opart ...) (buf ...)) (unwind-protect (progn ... ... ...) (mew-pop-to-buffer buf) (mew-summary-show-postscript ...)))
)
  (cond ((eobp) (message "No message")) ((not ...) (message "No message")) (t (let* ... ...)))
)
  (mew-summary-msg-or-part (let* (... ... ... ... ... ... ...) (unwind-protect ... ... ...)))
)
  (if (not (or force mew-summary-buffer-disp-msg)) nil (mew-summary-msg-or-part (let* ... ...)))
)
  mew-summary-display(nil)
  (if (or auto (null mew-summary-buffer-disp-msg)) (save-excursion (mew-set-buffer-tmp) (setq buf ...) (mew-insert-message fld msg mew-cs-autoconv mew-header-reasonable-size)) (mew-summary-display nil) (setq buf (or ... ...)))
)
  (if exp-flds (setq folders exp-flds) (if (or auto ...) (save-excursion ... ... ...) (mew-summary-display nil) (setq buf ...)) (setq learn-info (mew-refile-decide-folders buf msg mark auto)) (setq folders (car learn-info)))
)
  (let (msg folders mark buf learn-info fld) (save-excursion (mew-summary-goto-message) (setq fld ...) (setq msg ...) (setq mark ...)) (if exp-flds (setq folders exp-flds) (if ... ... ... ...) (setq learn-info ...) (setq folders ...)) (if folders (save-excursion ... ... ... ... ... ...)) (setq mew-refile-last-folder folders) (if (or mark auto ...) nil (mew-summary-goto-message) (mew-decode-syntax-delete) (beginning-of-line) (let ... ...) (mew-summary-display-after mew-summary-mark-direction)) (set-buffer-modified-p nil) folders)
)
  (cond ((eobp) (message "No message")) ((not ...) (message "No message")) (t (let ... ... ... ... ... ... ... folders)))
)
  (mew-summary-msg-or-part (let (msg folders mark buf learn-info fld) (save-excursion ... ... ... ...) (if exp-flds ... ... ... ...) (if folders ...) (setq mew-refile-last-folder folders) (if ... nil ... ... ... ... ...) (set-buffer-modified-p nil) folders))
)
  (if (and (interactive-p) (not ...)) (message "This command can be used in Summary mode only") (mew-summary-msg-or-part (let ... ... ... ... ... ... ... folders)))
)
  (mew-summary-only (mew-summary-msg-or-part (let ... ... ... ... ... ... ... folders)))
)
  (lambda (&optional exp-flds auto) "Put the refile mark(default is 'o') on this message. \nIf already marked with 'o', it prints where this message \nwill be refiled. This can overlay other marks. When it overlays, \nthe cursor stays on the message. If it marks newly, displays \nthe next message." (interactive) (mew-summary-only (mew-summary-msg-or-part ...)))()
  call-interactively(mew-summary-refile)
----------------------------------------------------------------------------