Mercurial > hgrepos > hgweb.cgi > after5
changeset 103:734bfd8cbdc6 draft
Quotation preserved in faked from header
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Thu, 08 Oct 2020 11:07:31 +0859 |
parents | d765239327e0 |
children | 02e452079659 |
files | after5.rb |
diffstat | 1 files changed, 10 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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)