[mew-dist 18525] Re:[count] Subjectの設定について(質問)

[TAKAHASHI Kaoru]

From: Hide Yamamoto <hide at example.com>
Subject: [mew-dist 18485] Re:[count] Subjectの設定について(質問)
Date: Wed, 15 Aug 2001 16:04:13 +0900 (JST)

>   Returnした回数を自動的にSubjectに記入してくれる
>   様な設定はどのようにしたら良いのでしょうか。
[snip]
> Subject: Re:[2] Subjectの設定について(質問)
> 	   ^^^^

> ^^^の様に返信の通番を自動で入ってほしいと思っておりますが
> どのように設定したら良いのか分かりません。御存じの方
> おられましたらご教授願えましたら幸です。

「Returnした回数」 (Return の Re: ?) の計算方法が間違っていたらご
めんなさい。

(defun mew-generate-broken-reply-string ()
  "Return broken reply subject string."
  (let ((subject str) ; `str' is local variable in `mew-subject-simplify'.
	(count 0))
    (save-match-data
      ;; count `Re:' and remove
      (while (string-match "^Re:" subject)
	(setq subject (replace-match "" nil t subject))	; remove Re:
	(if (string-match "^\\[\\([0-9]+\\)\\]" subject) ; Re:[1]
	    (progn
	      (setq count (+ (string-to-int (match-string 1 subject)) count))
	      (setq subject (replace-match "" nil t subject)))
	  (setq count (1+ count)))
	;; remove space
	(when (string-match "^[ \t]+" subject)
	  (setq subject (replace-match "" nil t subject))))
      (if (zerop count)
	  subject
	(format "Re:[%d] %s" count subject)))))

で、mew-subject-simplify-replace-alist 中に

 ("^\\(Re:.*\\)$" . (mew-generate-broken-reply-string))

を含めて使うのはいかがでしょう。テストしてません。

-- 
TAKAHASHI "beatmaria" Kaoru (高橋 郁) <kaoru at example.com>
  "Establish conventions in noncritical areas so that you can
  focus your creative energies in the places that count."