[Mew-dist 11340] Re: delete/refile error

[Masahiko Joichi]

城市です。お世話になっています。

[Mew-dist 11336] Re: delete/refile error において
   Hideyuki SHIRAI (白井秀行) <shirai at example.com>さんは…

城市> Summary Bufferの
城市> 更新がされず"Running"のままになってしまいます。C-cC-kで解除できます。
白井> "x" で "Running" が mode-line に表示されるのは
白井> 1. 自分で (setq mew-use-immv t) としている。
白井> 2. 今いる folder か refile/delete の相手先の folder のどちらか
白井>  (または両方)が nntp や IMAP などの remote folder である。
白井> のどちらかの場合です(よね？)。城市さんの場合、意図的に 1 か 2 を
白井> していますか？ その場合、どういう状態なのでしょうか？

1.は、そういう設定を.emacsに入れてるかと言う事ですよね？
入れてないので、nilになっていると思います。

2.は、今いるfolderもrefile/deleteの相手先のfolderもPCの中のHDDです。

現状は、"Running"と出ている間は、scanとかPackとかできないです。
とりあえず、C-cC-kで"Running"を消して、マークも"u"で消して初めて
scanやpackができるようになります。

refile/delete自体はできている様でファイルはrefile先のfolderに移動
してますし、削除したものはfolderから無くなっています。

城市> なお、contorib/mew-refile-view.el は、load後の使い方(mode切換後)が
城市> 私の知識不足では判りませんでした(_o_)
白井> mark をつけて "M-x mew-refile-view" するか

ありがとうございます。実行してみたところ、ちゃんとrefile先を
示していました。

で、前回のメールでBacktraceが取れなかったと書きましたが、やり方
間違えてた様で採取できました。添付します。

-----
城市　昌彦(joichi masahiko)
Email:joichi at example.com
      zelkova at example.com (home)
-------------- next part --------------
Signaling: (void-function nil)
  nil()
  funcall(nil)
  (while (re-search-forward regex m t) (funcall (cdr ...)))
  (let ((m ...) (regex ...)) (set-marker m end) (goto-char begin) (while (re-search-forward regex m t) (funcall ...)) (set-buffer-modified-p nil))
  (let ((buffer-read-only nil) (inhibit-read-only t)) (let (... ...) (set-marker m end) (goto-char begin) (while ... ...) (set-buffer-modified-p nil)))
  (mew-elet (let (... ...) (set-marker m end) (goto-char begin) (while ... ...) (set-buffer-modified-p nil)))
  mew-mark-delete-region(1 58554)
  (if (setq err-folders (mew-summary-exec-sanity-check msgs)) (progn (setq mew-summary-buffer-process nil) (ding) (message "Nothing proceeded. Folder(s) MUST be a file!: %s" ...)) (mew-summary-exec-refile src msgs) (mew-summary-exec-delete src dels) (mew-mark-delete-region (point-min) (point-max)) (mew-summary-folder-cache-save src) (mew-refile-guess-save) (run-hooks (quote mew-summary-exec-hook)) (set-buffer-modified-p nil) (mew-summary-reset-mode-line (current-buffer)) (setq mew-summary-buffer-process nil) (message "Refiling and deleting ... done"))
  (if (and (null msgs) (null dels)) (message "No marks") (setq mew-summary-buffer-process t) (message "Refiling and deleting ...") (mew-window-configure (current-buffer) (quote summary)) (mew-current-set (quote message) nil) (mew-decode-syntax-delete) (if (setq err-folders ...) (progn ... ... ...) (mew-summary-exec-refile src msgs) (mew-summary-exec-delete src dels) (mew-mark-delete-region ... ...) (mew-summary-folder-cache-save src) (mew-refile-guess-save) (run-hooks ...) (set-buffer-modified-p nil) (mew-summary-reset-mode-line ...) (setq mew-summary-buffer-process nil) (message "Refiling and deleting ... done")))
  (let ((msgs ...) (dels ...) (src ...) err-folders) (if (and ... ...) (message "No marks") (setq mew-summary-buffer-process t) (message "Refiling and deleting ...") (mew-window-configure ... ...) (mew-current-set ... nil) (mew-decode-syntax-delete) (if ... ... ... ... ... ... ... ... ... ... ... ...)))
  (condition-case nil (let (... ... ... err-folders) (if ... ... ... ... ... ... ... ...)) (quit (set-buffer-modified-p nil) (setq mew-summary-buffer-process nil)))
  (save-restriction (narrow-to-region beg end) (goto-char (point-min)) (message "Collecting marks ...") (condition-case nil (let ... ...) (quit ... ...)))
  (save-excursion (save-restriction (narrow-to-region beg end) (goto-char ...) (message "Collecting marks ...") (condition-case nil ... ...)))
  (if (not (mew-summary-exclusive-p)) nil (save-excursion (save-restriction ... ... ... ...)))
  (if (not (equal major-mode ...)) (message "This command can be used in Summary mode only") (if (not ...) nil (save-excursion ...)))
  (mew-summary-only (if (not ...) nil (save-excursion ...)))
  mew-summary-exec-region(1 58554)
  (if (not (equal major-mode ...)) (message "This command can be used in Summary mode only") (mew-summary-exec-region (point-min) (point-max)))
  (mew-summary-only (mew-summary-exec-region (point-min) (point-max)))
  mew-summary-exec()
* call-interactively(mew-summary-exec)