# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1602122878 -32373
# Node ID 734bfd8cbdc6b931bb73c0291d98b3ed1d68b407
# Parent  d765239327e029b63fe459131734beab722d6cd1
Quotation preserved in faked from header

diff -r d765239327e0 -r 734bfd8cbdc6 after5.rb
--- a/after5.rb	Wed Aug 21 10:26:28 2019 +0900
+++ b/after5.rb	Thu Oct 08 11:07:31 2020 +0859
@@ -1,16 +1,16 @@
-#!/usr/local/bin/ruby21
+#!/usr/bin/env ruby21
 # -*- coding: euc-jp -*-
 #
 # Associative Scheduling Table - after5
-# (C)2003, 2004, 2006, 2008, 2012-2019 by HIROSE Yuuji [yuuji<at>gentei.org]
+# (C)2003, 2004, 2006, 2008, 2012-2020 by HIROSE Yuuji [yuuji<at>gentei.org]
 # $Id: after5.rb,v 1.20 2012/12/03 15:54:20 yuuji Exp $
-# Last modified Wed Aug 21 10:25:19 2019 on firestorm
+# Last modified Thu Oct  8 11:06:06 2020 on firestorm
 # See http://www.gentei.org/~yuuji/software/after5/
 # このスクリプトはEUCで保存してください。
 $hgid = <<_HGID_.split[1..-2].join(" ")
 $HGid$
 _HGID_
-$myurl = "http://www.gentei.org/~yuuji/software/after5/"
+$myurl = "https://www.gentei.org/~yuuji/software/after5/"
 
 require 'kconv'
 require 'nkf'
@@ -1162,7 +1162,7 @@
     @H = HTMLout.new()
     @umback = File.umask
     @author = 'yuuji@gentei.org'
-    @after5url = 'http://www.gentei.org/~yuuji/software/after5/'
+    @after5url = 'https://www.gentei.org/~yuuji/software/after5/'
     File.umask(007)
   end
   def doit()
@@ -2774,10 +2774,12 @@
   def rewritefrom(email, comment, newseed) # from catchup.rb
     # no need to setcomment here because if comment set, it's enough
     comment.sub!(/(\"?)(.*)\1/, '\2')
+    quote = $1
     comment += "/" if comment>""
-    return comment.gsub(/([^\x00-\x7f]+)/){NKF.nkf('-jM', $1)} +
-      email.sub("@", "=")+" <"+newseed+">"
-    #  end
+    return quote +
+           comment.gsub(/([^\x00-\x7f]+)/){NKF.nkf('-jM', $1)} +
+           email.sub("@", "=") +
+           quote + " <"+newseed+">"
   end
 
   def tagify_subj(body, tag, removeregexp, fromhack = nil)