                (cond
                 ((looking-at "</")
                  (urweb-tag-matching-indent))
+                ((urweb-begun-xml)
+                 (+ prev-indent 4))
                 ((urweb-new-tags)
                  (+ prev-indent 2))
                 (t

	  (1+ (current-column))
	nil))))

(defun urweb-new-tags ()
  "Decide if the previous line of XML introduced unclosed tags"
  (save-excursion

                    (setq done t)
                  (decf depth)))
            (setq done t))))
      (if (looking-at "<xml")
          (+ (current-indentation) 2)
        (current-indentation)))))

(defun urweb-calculate-indentation ()
  (save-excursion
