[Mew-dist 04599] Re: [Q] How to edit draft Subject?

[Shun-ichi GOTO]

後藤です

>>>>> From: OZAWA Sakuro <crouton at example.com>
> で，試行錯誤の末こんなモノを書いてみたのですが，Re: RE: の繰り返しをま
> とめられません．どう書いたらよいのでしょう？ また，もっと賢い書き方が
> あるのでしょうか？

いぜん似たようなことをやった記憶があります。
こんなのでどうでしょうか？



(setq refine-subject-strip-pattern
      "\\[[-a-zA-Z0-9]+[ :][0-9]+\\] *\\|R[Ee]\\^[0-9]+: *\\|R[Ee]: *")

(defun refine-subject ()
  (let (end)
  (save-excursion
    (beginning-of-buffer)
    (re-search-forward "^Subject: ")
    (save-excursion
      (end-of-line)
      (setq end (point)))
    ;; 
    (while (looking-at refine-subject-strip-pattern)
      (setq str (replace-match "")))
    (insert "RE: "))))

(add-hook 'mew-draft-mode-hook 'refine-subject)



要は取り除きたいものをすべて取り除いてから RE: をつけるわけわけです。
refine-subject-strip-paternはお好みに応じて変更してください。

＃ところでRe: ではなくRE:にするというのは、なぜ？
＃MS-IMがらみ？ Niftyがらみ？ そのた？

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN