[mew-dist 18799] Re: preserving marks

[Hiroshi Fujishima ( 藤島裕士 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [mew-dist 18791] Re: preserving marks

> Summary モード内のテキストを編集するだけの sort と pack が完成しました。
> 遊んで下さい。泣けるほど、速いです。

sort で遊んでいると次のようなエラーが出ました。

				 藤島
-------------- next part --------------
Signaling: (wrong-type-argument number-or-marker-p nil)
  =(357 nil)
  (cond ((= pos beg) end) ((< pos beg) (setq line ...) (delete-region beg end) (goto-char pos) (insert ...) end) (t (setq line ...) (goto-char pos) (insert ...) (delete-region beg end) beg))
  (cond (lastp (goto-char pos) (insert ...) nil) ((null pos) (goto-char ...) (when ... ... ... ... ... ... ... beg)) (t (goto-char ...) (when ... ... ... ... ...) (cond ... ... ...)))
  (let (beg end line ref) (rename-file src dst) (when (setq ref ...) (setcar ref dst)) (cond (lastp ... ... nil) (... ... ...) (t ... ... ...)))
  (let ((buffer-read-only nil) (inhibit-read-only t) (zmacs-regions nil)) (let (beg end line ref) (rename-file src dst) (when ... ...) (cond ... ... ...)))
  (mew-elet (let (beg end line ref) (rename-file src dst) (when ... ...) (cond ... ... ...)))
  (if mew-sort-debug (mew-elet (insert ...)) (mew-elet (let ... ... ... ...)))
  mew-summary-sort-rename("6" "4" 357)
  (setq pos (mew-summary-sort-rename (aref files src) (aref files dst) pos))
  (while t (setq dst src) (setq src (aref idx dst)) (if (= src i) (throw ... nil)) (setq pos (mew-summary-sort-rename ... ... pos)) (aset idx dst dst))
  (catch (quote loop) (while t (setq dst src) (setq src ...) (if ... ...) (setq pos ...) (aset idx dst dst)))
  (if (= i (aref idx i)) nil (setq dst len) (setq src i) (setq pos (mew-summary-sort-rename ... tmp nil)) (catch (quote loop) (while t ... ... ... ... ...)) (mew-summary-sort-rename tmp (aref files dst) pos (quote last)) (aset idx dst dst))
  (unless (= i (aref idx i)) (setq dst len) (setq src i) (setq pos (mew-summary-sort-rename ... tmp nil)) (catch (quote loop) (while t ... ... ... ... ...)) (mew-summary-sort-rename tmp (aref files dst) pos (quote last)) (aset idx dst dst))
  (while (< i len) (setq mew-sort-line nil) (unless (= i ...) (setq dst len) (setq src i) (setq pos ...) (catch ... ...) (mew-summary-sort-rename tmp ... pos ...) (aset idx dst dst)) (setq i (1+ i)))
  (let* ((dir ...) (default-directory dir) (len ...) src dst pos) (setq i 0) (while (< i len) (setq mew-sort-line nil) (unless ... ... ... ... ... ... ...) (setq i ...)))
  (save-excursion (let* (... ... ... src dst pos) (setq i 0) (while ... ... ... ...)))
  (let* ((buf ...) (folder ...) (region ...) (beg ...) (end ...) (range ...) (sort-key ...) (key-type ...) (key ...) (KEY ...) (type ...) (ent ...) (func1 ...) (func2 ...) (tmp ...) (i 0) (tmpbuf ...) ent idx med num value files) (if arg (message "Sorting %s: %s..." folder range) (message "Sorting %s..." folder)) (setq mew-summary-buffer-process t) (save-excursion (set-buffer tmpbuf) (mew-erase-buffer) (call-process mew-prog-mewls nil t nil "-b" mew-mail-path "-c" mew-news-path "-d" key "-l" "0" "-s" ...) (goto-char ...) (while ... ...)) (mew-remove-buffer tmpbuf) (setq files (vconcat ...)) (setq ent (sort ent func2)) (setq idx (vconcat ...)) (cond (mew-sort-debug ... ...) (t ...)) (if region (narrow-to-region ... ...)) (save-excursion (let* ... ... ...)) (widen) (cond (mew-sort-debug ... ... ... ...) (t ... ... ...)) (setq mew-summary-buffer-process nil) (if arg (message "Sorting %s: %s...done" folder range) (message "Sorting %s...done" folder)))
  (cond ((not ...) (message "This command cannot be used in this mode")) ((mew-summary-draft-p) (message "This command cannot be used in %s" ...)) (t (let* ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (mew-summary-not-in-draft (let* (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ent idx med num value files) (if arg ... ...) (setq mew-summary-buffer-process t) (save-excursion ... ... ... ... ...) (mew-remove-buffer tmpbuf) (setq files ...) (setq ent ...) (setq idx ...) (cond ... ...) (if region ...) (save-excursion ...) (widen) (cond ... ...) (setq mew-summary-buffer-process nil) (if arg ... ...)))
  (cond ((not ...) (message "This command cannot be used in this mode")) ((not ...) nil) ((not ...) (message "%s does not exist" mew-prog-mewls)) ((mew-summary-queue-p) (message "This command cannot be used in %s" ...)) (t (mew-summary-not-in-draft ...)))
  (mew-summary-not-in-queue (mew-summary-not-in-draft (let* ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (cond ((not ...) (message "This command can be used in Summary mode only")) (t (mew-summary-not-in-queue ...)))
  (mew-summary-only (mew-summary-not-in-queue (mew-summary-not-in-draft ...)))
  mew-summary-sort(nil)
  call-interactively(mew-summary-sort)