[Mew-dist 17839] subject-simplify

[Tatsuya Kinoshita]

subject-simplifyを、"Re2:", "Fwd:", "[was:]"に対応させました。

-- tats
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

*** mew-vars2.el.orig	Wed May 30 23:28:09 2001
--- mew-vars2.el	Wed Jun 20 22:55:55 2001
***************
*** 44,55 ****
  
  (defvar mew-reply-string "Re: ")
  (defvar mew-reply-regex
!   "Re\\(\\|\\^[0-9]+\\|\\[[0-9]+\\]\\|([0-9]+)\\|\\*[0-9]+\\)[:>] *"
    "Regexp of various Re: expression in Subject:")
  (defvar mew-forward-string "Fw: ")
! (defvar mew-forward-regex "\\(Fw\\|Forward\\): *"
    "Regexp of various Fw: expression in Subject:")
! (defvar mew-was-regex " *( *\\(was[^a-z]\\|Re:\\).*) *$"
    "Regexp of various (was ...) expression in Subject:")
  
  (defvar mew-subject-simplify-replace-alist
--- 44,55 ----
  
  (defvar mew-reply-string "Re: ")
  (defvar mew-reply-regex
!   "Re\\(\\|[*^]?[0-9]+\\|\\[[0-9]+\\]\\|([0-9]+)\\)[:>] *"
    "Regexp of various Re: expression in Subject:")
  (defvar mew-forward-string "Fw: ")
! (defvar mew-forward-regex "\\(Fw\\|Fwd\\|Forward\\): *"
    "Regexp of various Fw: expression in Subject:")
! (defvar mew-was-regex " *[[(] *\\(was[^a-z]\\|Re:\\).*[])] *$"
    "Regexp of various (was ...) expression in Subject:")
  
  (defvar mew-subject-simplify-replace-alist