Typo fix in context menus.

Better regexp for email addresses

src/ChangeLog

+2000-08-21  David Byers  <davby@ida.liu.se>
+
+	* vars.el.in (lyskom-button-actions): Fixed typo.
+	(lyskom-text-buttons): Fixed email regexp to combat very slow
+	matching of long words.
+
 2000-08-17  David Byers  <davby@ida.liu.se>
 
 	Reimplement kom-bug-report:

src/review.el

@@ -1172,22 +1172,27 @@ end."
 (def-kom-command kom-review-clear ()
   "Deletes all review-types from the lyskom-reading-list and lyskom-to-do-list."
   (interactive)
-  (if (not (read-list-isempty lyskom-reading-list))
-      (while (or (eq (read-info->type (read-list->first lyskom-reading-list))
-		     'REVIEW)
-		 (eq (read-info->type (read-list->first lyskom-reading-list))
-		     'REVIEW-TREE)
-		 (eq (read-info->type (read-list->first lyskom-reading-list))
-		     'REVIEW-MARK))
-	(set-read-list-del-first lyskom-reading-list)))
-  (if (not (read-list-isempty lyskom-to-do-list))
-      (while (or (eq (read-info->type (read-list->first lyskom-to-do-list))
-		     'REVIEW)
-		 (eq (read-info->type (read-list->first lyskom-to-do-list))
-		     'REVIEW-TREE)
-		 (eq (read-info->type (read-list->first lyskom-to-do-list))
-		     'REVIEW-MARK))
-	(set-read-list-del-first lyskom-to-do-list))))
+  (let ((found nil))
+    (if (not (read-list-isempty lyskom-reading-list))
+        (while (or (eq (read-info->type (read-list->first lyskom-reading-list))
+                       'REVIEW)
+                   (eq (read-info->type (read-list->first lyskom-reading-list))
+                       'REVIEW-TREE)
+                   (eq (read-info->type (read-list->first lyskom-reading-list))
+                       'REVIEW-MARK))
+          (set-read-list-del-first lyskom-reading-list)
+          (setq found t)))
+    (if (not (read-list-isempty lyskom-to-do-list))
+        (while (or (eq (read-info->type (read-list->first lyskom-to-do-list))
+                       'REVIEW)
+                   (eq (read-info->type (read-list->first lyskom-to-do-list))
+                       'REVIEW-TREE)
+                   (eq (read-info->type (read-list->first lyskom-to-do-list))
+                       'REVIEW-MARK))
+          (set-read-list-del-first lyskom-to-do-list)
+          (setq found t)))
+
+    (unless found (lyskom-insert 'not-reviewing))))
 
 
 ;;; ================================================================

src/swedish-strings.el

@@ -726,6 +726,7 @@ M
 
     ;; From review.el:
     (no-review-done . "Du mste terse innan du kan terse mer.\n")
+    (not-reviewing . "Du mste hller inte p att terse ngot nu.\n")
     (review-how-many . "terse hur mnga?")
     (review-how-many-more . "terse ytterligare hur mnga?")
     (latest-n . "senaste %#1d")

src/vars.el.in

@@ -727,7 +727,7 @@ conference and person buttons are not expected.")
 
     ;; Email
 
-    ("[^()<>@,;:\"\\\\\000- ]+@[^\000- <>;,.'\"!:?) \t\012\014]+\\(\\.[^\000- <>;,.'\"!:?)]+\\)+"
+    ("\\(\\b\\|^\\)[^()<>@,;:\"\\\\\000- ]+@[^\000- <>;,.'\"!:?) \t\012\014]+\\(\\.[^\000- <>;,.'\"!:?)]+\\)+"
      email 0 0 kom-url-face)
 
     ;; URLs
@@ -1136,7 +1136,7 @@ at random and used. This element may be a string, function or list."
      ((lyskom-button-goto-info-node-action . lyskom-button-goto-info-node))
      nil)
     (email
-     generig-popup-title
+     generic-popup-title
      lyskom-button-open-email
      ((lyskom-button-open-email-action . lyskom-button-open-email)
       (lyskom-button-copy-email-action . lyskom-button-copy-email))