--- org2rem.el.old	2009-01-09 09:00:48.000000000 +0000
+++ org2rem.el.new	2009-02-11 13:59:16.777712000 +0000
@@ -34,13 +34,21 @@
 (eval-when-compile
   (require 'cl))
 
+(defvar org2rem-pure-timestamps-string  ;we need it.
+ (concat  "\\(" org-deadline-string "\\|"
+          org-scheduled-string  "\\)\\{0\\}"))
+
 (defvar org2rem-scheduled-reminders nil)
 (defvar org2rem-deadline-reminders nil)
+(defvar org2rem-pure-timestamps-reminders nil)
+
 (defvar pure-time nil)
 (defvar org2rem-scheduled-remind-file 
   "~/.reminders.org.scheduled")
 (defvar org2rem-deadline-remind-file 
   "~/.reminders.org.deadline")
+(defvar org2rem-pure-timestamps-remind-file
+  "~/.reminders.org.pure-timestamps")
 
 (defun org2rem-list-reminders (regexp)
   "Make a list of appointments. 
@@ -95,9 +103,15 @@
 
 	  (setq rem-task (concat "REM" rem-time "MSG "  task "%")
 		)
-	  (if (equal regexp org-scheduled-string)
-	      (push rem-task org2rem-scheduled-reminders)
-	    (push rem-task org2rem-deadline-reminders)))))))
+
+          (cond
+           ((equal regexp org2rem-pure-timestamps-string)
+            (push rem-task org2rem-pure-timestamps-reminders))
+           ((equal regexp org-scheduled-string)
+            (push rem-task org2rem-scheduled-reminders))
+           ((equal regexp org-deadline-string)
+            (push rem-task org2rem-deadline-reminders))
+           ))))))
 
 (defun org2rem-write-file (file reminders)
   "Write reminders list to files."
@@ -116,13 +130,19 @@
   (interactive)
   (setq org2rem-scheduled-reminders nil)
   (setq org2rem-deadline-reminders nil)
+  (setq org2rem-pure-timestamps-string nil)
   (save-window-excursion
     (org2rem-list-reminders org-scheduled-string)
     (org2rem-list-reminders org-deadline-string)
-    (org2rem-write-file "~/.reminders.org.scheduled" 
+    (org2rem-list-reminders org2rem-pure-timestamps-string)
+
+    (org2rem-write-file org2rem-scheduled-remind-file ;"~/.reminders.org.scheduled" 
 			org2rem-scheduled-reminders)
-    (org2rem-write-file "~/.reminders.org.deadline"
-			org2rem-deadline-reminders)))
+    (org2rem-write-file org2rem-deadline-remind-file ;"~/.reminders.org.deadline"
+			org2rem-deadline-reminders)
+    (org2rem-write-file org2rem-pure-timestamps-remind-file ;"~/.reminders.org.pure-timestamps"
+			org2rem-pure-timestamps-reminders)
+    ))