[mew-dist 24591] Re: Mew3.3から4へ切り替えた時の*マークについて

[Hideyuki SHIRAI ( 白井秀行 )]

# mew.org もうとまっちゃったかな？
# わからないので城市さんにも Cc:

From: Masahiko Joichi <m-joichi at example.com> さん曰く
Subject: [mew-dist 24587] Re: Mew3.3から4へ切り替えた時の*マークについて
Message-ID: <20040212.175352.107709288.m-joichi at example.com>
Date: Thu, 12 Feb 2004 17:53:52 +0900 (JST)

> 後で読み返すかもしれないメールに*マークしてて、しかもそれらはあっち
> こっちのフォルダにあり、手作業だと大変なので何かいい方法はないかなと
> 思ったんですが。

でっちあげました。なんにも考えずに気分転換目的で作ったのでなにか
あるかも。

(defun mew-mark-transfer-3to4 ()
  (interactive)
  (let* ((folder (mew-summary-folder-name))
	 (oldcache (mew-expand-folder folder ".mew-cache"))
	 markmsgs mark msg)
    (when (and (file-exists-p oldcache)
	       (file-readable-p oldcache))
      (with-temp-buffer
	(insert-file-contents oldcache)
	(goto-char (point-min))
	(while (re-search-forward "^ *\\([0-9]+\\)\\([^0-9 \n]\\)" nil t)
	  (setq msg (match-string 1))
	  (setq mark (string-to-char (match-string 2)))
	  (setq markmsgs (cons (cons msg mark) markmsgs))))
      (setq markmsgs (nreverse markmsgs))
      (goto-char (point-min))
      (while markmsgs
	(setq msg (car (car markmsgs)))
	(setq mark (cdr (car markmsgs)))
	(when (re-search-forward (mew-regex-sumsyn-msg msg) nil t)
	  (mew-mark-put-mark mark 'no-msg))
	(setq markmsgs (cdr markmsgs))))))

-- 
白井秀行 (mailto:shirai at example.com)