[Mew-dist 13065] mew-subject-simplify

[KOIE Hidetaka ( 鯉江英隆 )]

.mewで(setq mew-reply-string "RE: ")と設定しているのですが
なぜかリプライはRe: になってました。
こんな修正でよいでしょうか。

--- mew-vars2.el	Wed May 24 10:26:11 2000
+++ mew-vars2.el.org	Wed May 24 10:26:11 2000
@@ -55,7 +55,7 @@ (defvar mew-subject-simplify-replace-ali
 		 "\\|"
 		 mew-forward-regex
 		 "\\)*")
-	 'mew-reply-string) ;; new text
+	 mew-reply-string) ;; new text
    ;; replace multiple Fw: and Re: into single Fw:
    (cons (concat "^" ;; regexp
 		 mew-forward-regex
@@ -64,7 +64,7 @@ (defvar mew-subject-simplify-replace-ali
 		 "\\|"
 		 mew-forward-regex
 		 "\\)*")
-	 'mew-forward-string) ;; new text
+	 mew-forward-string) ;; new text
    ;; delete extra string (no new text means delete)
    (cons mew-was-regex nil)) ;; regexp
   "*Replacement alist to simplify Subject: field body

--- mew-summary.el.org	Wed May 24 10:25:21 2000
+++ mew-summary.el	Wed May 24 10:25:21 2000
@@ -1130,7 +1130,7 @@ (defun mew-subject-simplify (str &option
 	    action-list (cdr action-list))
       (if (string-match regexp str)
 	  (setq str (concat (substring str 0 (match-beginning 0))
-			    (or replace "")
+			    (if replace (eval replace) "")
 			    (substring str (match-end 0) nil)))))
     str))

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>