Index: /lang/elisp/semantic-html-mode/semantic-html-mode.el
===================================================================
--- /lang/elisp/semantic-html-mode/semantic-html-mode.el (revision 1983)
+++ /lang/elisp/semantic-html-mode/semantic-html-mode.el (revision 1985)
@@ -88,9 +88,21 @@
 
 (defun semantic-html-ins-and-del-element (tagname)
+  (let
+      ((timezone-string "moge"))
+    (if (eq (car (current-time-zone)) 0)
+        (setf timezone-string "Z")
+      (if (< (car (current-time-zone)) 0)
+          (setf timezone-string
+                (format "-%02d:00"
+                        (- 0 (/ (car (current-time-zone)) (* 60 60)))))
+        (setf timezone-string
+              (format "+%02d:00"
+                      (/ (car (current-time-zone)) (* 60 60))))))
   (insert
-   (format "<%s datetime=\"%s+09:00\">\n</%s>"
+   (format "<%s datetime=\"%s%s\">\n</%s>"
            tagname
            (format-time-string semantic-html-w3cdtf-base-format (current-time))
-           tagname)))
+           timezone-string
+           tagname))))
 
 (provide 'semantic-html-mode)