 {jpw: 09/2005}")
 
 
-(defvar jpw-phpBB-tag-analysis-cache-last-update-buffer-state '(t 0 0)
+(defvar jpw-phpBB-t-a-c-l-u-buffer-state '(t 0 0)
   "Internal variable used by `jpw-phpBB-tag-analysis'.
 {jpw: 09/2005}")
 

  "Show the results of `jpw-phpBB-tag-analysis' in the *Messages* buffer.
{jpw: 09/2005}"
  (interactive)
  (message "%S" (jpw-phpBB-tag-analysis))
  )

;;------------------------------------------------------------

Either START-TAG or END-TAG will be nil, indicating the type of tag in that
direction.  If both are nil (i. e. no tags were found), returns nil instead of
a list.

The optional `boundpos' is an integer buffer position.  It stops the search at
that position.  If no tag is found before `boundpos', the function returns
nil.  The default is to search forward to the end of the buffer.

Alters `point'.  Be sure to call this only from within a `save-excursion'.
{jpw:03/05}"
  (if pos (goto-char pos))
  (let (next-start-tag
        next-end-tag) ;; end var defs
    (if (re-search-forward jpw-tag-finder-re boundpos t)
        (progn
          (goto-char (match-beginning 0))
          (if (looking-at jpw-tag-end-re)
