--- blorg.el	2007-08-28 16:30:32.000000000 +0200
+++ blorg.el.new	2007-08-28 16:26:42.000000000 +0200
@@ -116,7 +116,7 @@
 
 
 ;;; Requirements
-(provide 'org-blogging)
+(provide 'blorg)
 
 (require 'org)
 (require 'calendar)
@@ -213,6 +213,7 @@
     (:config-file "^#\\+CONFIG_FILE:[ \t]+\\(.+\\)$"))
     "Alist of options and matching regexps.")
 
+  
 (defun org-blogging-version nil
   "Display org-blogging version."
   (interactive)
@@ -796,7 +797,7 @@
   (let (alltags)
     (save-excursion
       (goto-char (point-min))
-      (while (and (re-search-forward ":\\([A-Za-z_]+\\):" nil t)
+      (while (and (re-search-forward   ":\\([A-Za-z_]+[A-Za-z0-9]*\\):" nil t)
 		  (org-blogging-check-done))
 	(unless (assoc (match-string-no-properties 1) alltags)
 	  (let ((cnt 0))
@@ -869,7 +870,7 @@
       ;; match DONE and [#A] DONE as well
       (while (re-search-forward
 	      (concat "^\\* " orgb-done-string
-		      " \\([^:\r\n]+\\)[ \t]*\\(:[A-Za-z@_:]+\\)?[ \t]*$")
+		      " \\([^:\r\n]+\\)[ \t]*\\(:[A-Za-z@_0-9:]+\\)?[ \t]*$")
 	      nil t)
 	(let* ((ttle (match-string-no-properties 1))
 	       (tgs (or (match-string-no-properties 2) ""))