[Mew-dist 04985] RE: reply 時の Subject について

[OZAWA Sakuro]

さくです．

In article <19980605170219I.sato at example.com>,
    Tomio Sato (佐藤富雄) <sato at example.com> writes:

> ここで自分は"[Mew-dist XXXXX] "の部分を削除して送っているんですが、
> みなさんはどのようにしているのでしょうか？

hook書いてます．
先日，MLにも質問して，以下のような形に落ち着きました．

(add-hook 'mew-draft-mode-hook
	  (function
	   (lambda ()
	     (let (eol
		   (count 0))
	       (save-excursion
		 (beginning-of-buffer)
		 (re-search-forward "^Subject: ")
		 (save-excursion
		   (end-of-line)
		   (setq eol (point)))
		 (save-excursion
		   (while (re-search-forward
			   "\\[[-a-zA-Z0-9]+[ :][0-9]+\\] *" eol t)
		     (replace-match "")))
		 (while (looking-at
			 "R[Ee]\\(\\^[0-9]+\\|\\[[0-9]+\\]\\)*: *")
		   (replace-match "")
		   (setq count (+ count 1)))
		 (and (> count 0) (insert "RE: ")))))))

"RE: "は，好みで"Re: "にしたほうがいいかも．
RE は，もともとラテン語なんで，ALL CAPSのほうが良いと思うのですが．

-- 
小澤索郎 - DCI Certified Judge Level II -
<mailto:crouton at example.com>
<http://www.shiojiri.ne.jp/%7Ecrouton/>