--- a/s4-blog.sh	Mon Aug 14 09:45:35 2017 +0859
+++ b/s4-blog.sh	Mon Aug 14 12:32:36 2017 +0859
@@ -945,3 +945,17 @@
 	    -D_DUMPTABLE_="syscmd(cat)" -D_DUMPHEAD_="" \
 	    $layout/html.m4.html $layout/form+dump-whead.m4.html
 }
+
+blog_reply_article() {		# Direct link to article in some blog
+  arid=${1:-0}			# Already sanitized to digits
+  brid=`query "SELECT rowid FROM blog WHERE \
+	       id=(SELECT blogid FROM article WHERE rowid=$arid);"`
+  if [ -n "$brid" ]; then
+    newurl="?replyblog+$brid#$arid"
+    echo "Refresh: 0; $newurl"; echo
+    exit 0
+  else
+    contenttype; echo
+    echo "無効な記事番号です." | html p
+  fi
+}