diary behaving strangely

[Tiarnan]

Hi--

I've written a bit of lisp (based on code on the emacs Wiki) for
snarfing MS Outlook appointment messages and saving them to the emacs
diary. One problem... even though the correct entries are listed in
the diary when I call it as a file, they don't show up in the
appointments list. I've tried reloading diary (M-x diary), and even
reloading emacs, but still, the appointments are not recognised,
although they seem to be correctly formatted.

Can anyone help?

Here's the lisp:

(defun toc-outlook-invitation-to-diary ()
  (interactive)
  (let ((buffer (or (get-buffer "*Article*") (current-buffer))))
    (save-excursion
      (set-buffer buffer)
      (goto-char (point-min))
      (when (re-search-forward "^Subject: \\(.*\\)$")
        (setq subject (match-string 1))
        (beginning-of-buffer)
        (when (re-search-forward "^When: \\([0-9]+ \\w+\\) \\([0-9]+\\) 
\\([0-9]+:[0-9]+\\).*$")
          (setq date (match-string 1))
          (setq year (match-string 2))
          (setq time (match-string 3))
          (when (re-search-forward "^Where: \\(.*\\)$")
            (setq where (match-string 1))
            (setq diary-buffer (find-file-noselect diary-file))
            (set-buffer diary-buffer)
            (goto-char (point-max))
            (insert (format "\n%s %s\n %s %s (%s)\n" date year time subject 
where))
            (save-buffer)
            (bury-buffer diary-buffer)))))))

-- 
Tiarnán Ó Corráin               CMG-WDSC
Sysadmin                        Cork.
tiarnan.o'corrain@cmg.com       +353-21-4933200

"Iraq: incredible weapons - incredible weapons." How do you know that? 
"Uh, well... We looked at the receipt." -- Bill Hicks, 1992