fix(data): 删除改成一个事务且真删、配额与内容同事务

四类问题都出在「多次独立写入 + 失败只打日志」这个模式上。

1) 删除投票的级联没有事务（route/user/vote.go）
   选项 / 表单字段 / 提交记录 / 投票本体是 4 次独立写入，前 3 步失败只 Warn。
   中途失败会留下「选项没了但票还在」这种界面无法修复的状态 —— 重试删除时
   投票已不存在，只能报 not exist，脏数据永远留着。
   → db.Votes.DeleteWithCascade：四张表在同一事务里删完。

2) 删除其实是软删除，个人数据没真删掉
   模型都嵌了 dbutil.Model（含 DeletedAt），原来所有 Delete 都是软删：
   提交记录里参与者填写的文本、voter_ip、voter_token，以及提问里的 FromIP，
   只是「界面上看不见」，库里永久留着。用户点删除的预期不是这样。
   软删还会占住 link_token 唯一索引，删过的链接永远不能复用。
   → 删除投票与删除提问统一 Unscoped 真删；提问的追问/图片关联/配额回退
     原来也是三个独立写入（失败只 Warn），一并收进事务。

3) 配额计数会永久偏低
   「创建内容」与「quota_count+1」是两次写入，后者失败只 Warn：
   箱主看到的「已收集 7/10」偏小，达到上限后因为计数偏小实际还能继续收，
   等于定量收集被静默绕过；重置计数也校准不回来（重置是把计数清零，更脱节）。
   → 抽出 incrementQuotaTx(tx, userID, feature, delta) 作为唯一实现，
     提问 Questions.Create、私聊 CreateWithFirstMessage、投票提交
     VoteSubmissions.Create（新增 QuotaUserID）都在自己的事务里完成 +1。
   注意口径：投票的定量收集是「累计收到的票数」（提交成功时 +1），
   不是「创建了几个投票」—— 所以删除投票不回退这个计数。

4) 改写追问回答每次都发通知邮件
   箱主改措辞、补一句、修错别字都会重新保存，每次都发的话提问者会连着收到
   好几封一模一样的「您的提问有回复」。主回答那边早有 question.Answer == ""
   的判定，追问这里补齐：UpdateAnswerByID 在事务内读旧值返回 wasFirst。

顺带：
- isQuestioner 的 token 比较从 == 改为 subtle.ConstantTimeCompare，
  与 Pager 中间件里的校验同口径（== 按字节短路，可用响应时间逐字节试探）。
- CSV 导出的表头（字段名）与选项内容列补 sanitizeCSVCell。原来只有数据列走它，
  而选项名同样可能是 =HYPERLINK(...) 形式；判断也改成看 trim 后的首字符。
- 写路径的功能开关改 fail-closed：新增 db.FeatureStateOfStrict，读配置失败时
  拒绝而不是回退默认配置 —— 提问/投票的默认值是「开启」，fail-open 等于让一次
  数据库抖动绕过箱主设的关闭与定量上限。读展示仍用宽松版。

验证：全量单测（带 DB）与 go build ./... 通过；verify_round3 6/6（私聊
message_count 与实际消息数一致）、verify_p1 4/4、verify_round2 19/19、
verify_page_next 6/6、verify_chat_owner 3/3。

internal/db/follow_ups.go

@@ -38,9 +38,10 @@ type FollowUpsStore interface {
 	// AnswerByID 回答某条追问；questionID 防越权（必须属于该问题），仅允许回答尚未回答的（answer 为空）。
 	// 已回答返回 ErrFollowUpAlreadyAnswered，不存在/不属于该问题返回 ErrFollowUpNotFound。
 	AnswerByID(ctx context.Context, questionID uint, id uint, answer string) error
-	// UpdateAnswerByID 修改某条追问的回答内容（带 question_id 条件防越权），允许覆盖已回答的（供主人修改回复）。
+	// UpdateAnswerByID 修改某条追问的回答内容（带 question_id 条件防越权），
+	// 允许覆盖已回答的（供主人修改回复）；返回 wasFirst 表示这是首次回答（此前为空）。
 	// 不存在/不属于该问题返回 ErrFollowUpNotFound。
-	UpdateAnswerByID(ctx context.Context, questionID uint, id uint, answer string) error
+	UpdateAnswerByID(ctx context.Context, questionID uint, id uint, answer string) (wasFirst bool, err error)
 	// DeleteByQuestionID 删除某条提问时级联清理其全部追问（软删除，与提问保持一致）。
 	DeleteByQuestionID(ctx context.Context, questionID uint) error
 }
@@ -208,18 +209,31 @@ func (db *followUps) AnswerByID(ctx context.Context, questionID uint, id uint, a
 
 // UpdateAnswerByID 修改某条追问的回答内容（带 question_id 条件防止越权），
 // 允许覆盖已回答的追问（用于主人修改回复）。不存在/不属于该问题返回 ErrFollowUpNotFound。
-func (db *followUps) UpdateAnswerByID(ctx context.Context, questionID uint, id uint, answer string) error {
-	res := db.WithContext(ctx).
-		Model(&FollowUp{}).
-		Where("id = ? AND question_id = ?", id, questionID).
-		Update("answer", answer)
-	if res.Error != nil {
-		return errors.Wrap(res.Error, "update follow up answer")
+func (db *followUps) UpdateAnswerByID(ctx context.Context, questionID uint, id uint, answer string) (bool, error) {
+	var wasFirst bool
+	err := db.WithContext(ctx).Transaction(func(tx *gorm.DB) error {
+		// 先读旧值判断「是否首次回答」。handler 里拿不到可靠旧值：
+		// 它手上的 question 是请求开始时读的，并发下可能已经过期。
+		var fu FollowUp
+		if err := tx.Where("id = ? AND question_id = ?", id, questionID).First(&fu).Error; err != nil {
+			if errors.Is(err, gorm.ErrRecordNotFound) {
+				return ErrFollowUpNotFound
+			}
+			return errors.Wrap(err, "get follow up")
+		}
+		wasFirst = fu.Answer == ""
+
+		if err := tx.Model(&FollowUp{}).
+			Where("id = ? AND question_id = ?", id, questionID).
+			Update("answer", answer).Error; err != nil {
+			return errors.Wrap(err, "update follow up answer")
+		}
+		return nil
+	})
+	if err != nil {
+		return false, err
 	}
-	if res.RowsAffected == 0 {
-		return ErrFollowUpNotFound
-	}
-	return nil
+	return wasFirst, nil
 }
 
 // DeleteByQuestionID 删除某条提问时级联清理其全部追问（软删除，与提问保持一致）。