--- mkprevnext	1996/04/02 07:05:56	1.15
+++ mkprevnext	1998/05/04 16:59:46
@@ -61,7 +61,7 @@
     while (<INDEX>) {
         chop if (/\n$/);
 	$url = $_;
-    	($filehead, $file, $subject) = /^(.*)\/(.*)\#(.*)$/;
+    	($filehead, $file, $subject) = /^(.*)\/([^#]*)\#(.*)$/;
 	$filehead = lc($filehead);
 	$file = lc($file);
 	$subject = lc($subject);
--- notes-url.el	1997/09/10 00:19:59	1.22
+++ notes-url.el	1998/05/05 02:33:02
@@ -52,7 +52,7 @@
     (let ((filetag (match-substring url 2))
 	  fname tag count count-string)
       ;; pick out the tag, if any
-      (if (string-match "^\\(.*\\)#\\([0-9]*\\)\\([^#]*\\)$" filetag)
+      (if (string-match "^\\([^#]*\\)#\\([0-9]*\\)\\(.*\\)$" filetag)
 	  (setq fname (match-substring filetag 1)
 		count-string (match-substring filetag 2 nil t)
 		count (if count-string (string-to-int count-string) 1)