       (setq i (1- i)))
     (goto-char (point-min))
     (while (re-search-forward prefix nil t)
+      (setq string (match-string 0))
       (delete-region (match-end 0) (match-beginning 0))
-      (insert (make-string (- (match-end 0) (match-beginning 0)) ?\ )))
+      (insert (make-string (length string) ?\ )))
     (setq mhc-calendar-date date)
     ;; (mhc-calendar/put-property-date)
     (and mhc-calendar-link-hnf (mhc-calendar/hnf-mark-diary-entries))

         (i 0)
         (from  (mhc-date-mm-first date))
         (to    (mhc-date-mm-last  date))
         (start (mhc-date-ww date))
         (cdate from)
         week color cw day map dayinfo)
    (when (mhc-calendar/cw-week)

        (caldate (mhc-date-mm+ date -1))
        (col mhc-calendar-start-column)
        (prefix " +|")
        (i 3)
        (string))
    (mhc-calendar/delete-overlay)
    (set-text-properties (point-min) (point-max) nil)
    (erase-buffer)
