Synched strings.

Copied thing-at-point-looking-at from thingatpt.el so we don't rely
on internal functions in other packages.

src/ChangeLog

+2000-05-04  David Byers  <davby@ida.liu.se>
+
+	* edit-text.el (lyskom-edit-insert-buglist): Use our copy of
+	thing-at-point-looking-at instead of the one in thingatpt.
+
+	* utilities.el (lyskom-thing-at-point-looking-at): Copied from
+	thing-at-point-looking-at in thingatpt.el
+
+	* english-strings.el (lyskom-en-edit-mode-map): Added binding for
+	kom-edit-insert-buglist.
+
 2000-05-01  David Byers  <davby@ida.liu.se>
 
 	* async.el (lyskom-parse-async): Expanded comment for

src/edit-text.el

@@ -1789,7 +1789,7 @@ buglist style, automating the removal of closed subjects and change-marks."
 		    (goto-char delete-to)
 		    (beginning-of-line)
 		    ;; Are we looking at a headline?
-		    (if (thing-at-point-looking-at "^\\s-\\{0,2\\}[^ \t(*![]")
+		    (if (lyskom-thing-at-point-looking-at "^\\s-\\{0,2\\}[^ \t(*![]")
 			;; yes -- hence we need to move point somewhat
 			(progn
 			  (beginning-of-line)

src/english-strings.el

@@ -89,6 +89,7 @@
   (define-key lyskom-en-edit-prefix (kbd "C-i ?") 'lyskom-help)
   (define-key lyskom-en-edit-prefix (kbd "C-i C-c") 'kom-edit-insert-commented)
   (define-key lyskom-en-edit-prefix (kbd "C-i C-y") 'kom-edit-insert-commented)
+  (define-key lyskom-sv-edit-prefix (kbd "C-b")     'kom-edit-insert-buglist)
   (define-key lyskom-en-edit-prefix (kbd "C-i 1") 'kom-edit-insert-digit-text)
   (define-key lyskom-en-edit-prefix (kbd "C-i 2") 'kom-edit-insert-digit-text)
   (define-key lyskom-en-edit-prefix (kbd "C-i 3") 'kom-edit-insert-digit-text)
@@ -1040,7 +1041,7 @@ You should set it to a better value.\n")
 
     (process-signal . "Signal from the process.")
     (dead-session . "No active LysKOM session.")
-    (not-lyskom-buffer . "This is not an active LysKOM session")
+    (not-lyskom-buffer . "This is not an active LysKOM session.")
     (closed-connection . "
 **************************************************
 %#2s
@@ -1389,6 +1390,9 @@ You must become an active member of the conference to enter it.\n")
 
     (start-keep-alive . "Sending data at %#1d second intervals to keep the connection active.")
     (stop-keep-alive . "No longer keeping connection active by sending extra data.")
+
+    (review-noconversion-q . "Review which text unconverted?")
+    (review-commented-q . "Review the commented for which text?")
     ))
 
 
@@ -1714,6 +1718,7 @@ You must become an active member of the conference to enter it.\n")
     (kom-edit-add-copy . "Add carbon copy")
     (kom-edit-show-commented . "Review commented")
     (kom-edit-insert-commented . "Cite commented")
+    (kom-edit-insert-buglist . "Paste commented bug list")
     (kom-edit-add-bcc . "Add blind carbon copy")
     (kom-edit-add-cross-reference . "Add cross reference")
     (kom-edit-add-no-comments . "Request no comments")

src/mship-edit.el

@@ -108,6 +108,7 @@ access this variable directly.")
 (defvar lp--list-start-marker nil)
 (defvar lp--list-end-marker nil)
 (defvar lp--selected-entry-list nil)
+(defvar lp--buffer-done nil)
 
 
 ;;; ============================================================

src/utilities.el

@@ -323,6 +323,37 @@ of \(current-time\)."
    (error nil)))
 
 
+;; Stolen from thingatpt.el
+;; FIXME: We may not really need this function. Check the callers.
+
+(defun lyskom-thing-at-point-looking-at (regexp)
+  "Return non-nil if point is in or just after a match for REGEXP.
+Set the match data from the earliest such match ending at or after
+point."
+  (save-excursion
+    (let ((old-point (point)) match)
+      (and (looking-at regexp)
+	   (>= (match-end 0) old-point)
+	   (setq match (point)))
+      ;; Search back repeatedly from end of next match.
+      ;; This may fail if next match ends before this match does.
+      (re-search-forward regexp nil 'limit)
+      (while (and (re-search-backward regexp nil t)
+		  (or (> (match-beginning 0) old-point)
+		      (and (looking-at regexp) ; Extend match-end past search start
+			   (>= (match-end 0) old-point)
+			   (setq match (point))))))
+      (if (not match) nil
+	(goto-char match)
+	;; Back up a char at a time in case search skipped
+	;; intermediate match straddling search start pos.
+	(while (and (not (bobp))
+		    (progn (backward-char 1) (looking-at regexp))
+		    (>= (match-end 0) old-point)
+		    (setq match (point))))
+	(goto-char match)
+	(looking-at regexp)))))
+
 
 ;; Stolen from Gnu Emacs