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

[Masahiko Joichi]

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

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

白井> Meadow/Mew/IM が普通にインストールされていれば、
白井> 1. ~/.im/Config を消す(名前を変える)。そうすると IM/Config.pm の
白井>  default で動く。(と思う)
(省略)
白井> 4. どこかの folder を Scan し直して、"o" "d" "x" などをやってみる。
白井> としてちゃんと動けば、設定ミスかどうかの切り分けは出来ると思いま
白井> す。

この一連の作業を問題のPCで実施してみました。
やはり"x"とやった途端にエラーとなって同じように"Running"が出たままに
なってしまいます。ファイル移動とかができているのも同じ。

Backtraceも取ってみましたが、この２行以外は前回と同じでした。
一応添付します。

8c8
<   mew-mark-delete-region(1 58554)
---
>   mew-mark-delete-region(1 57417)
18c18
<   mew-summary-exec-region(1 58554)
---
>   mew-summary-exec-region(1 57417)

-----
城市　昌彦(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 57417)
  (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 57417)
  (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)