From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sun, 12 Jan 2003 17:58:38 +0000 (+0000)
Subject: (gnus-cite-delete-overlays): Protect against more
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=333c76aee244e4f227935647cb7736db0712419d

(gnus-cite-delete-overlays): Protect against more
errors.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f8f0beab..932431e2d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-cite.el (gnus-cite-delete-overlays): Protect against more
+	errors.
 2003-01-12  Simon Josefsson  <jas@extundo.com>
 
 	* sieve.el (sieve-upload-and-bury): New.  Suggested by
diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index a5ab85476..529535cef 100644
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -667,12 +667,13 @@ See also the documentation for `gnus-article-highlight-citation'."
 
 (defun gnus-cite-delete-overlays ()
   (dolist (overlay gnus-cite-overlay-list)
-    (when (or (not (gnus-overlay-end overlay))
-	      (and (>= (gnus-overlay-end overlay) (point-min))
-		   (<= (gnus-overlay-end overlay) (point-max))))
-      (setq gnus-cite-overlay-list (delete overlay gnus-cite-overlay-list))
-      (ignore-errors
-	(gnus-delete-overlay overlay)))))
+    (ignore-errors
+      (when (or (not (gnus-overlay-end overlay))
+		(and (>= (gnus-overlay-end overlay) (point-min))
+		     (<= (gnus-overlay-end overlay) (point-max))))
+	(setq gnus-cite-overlay-list (delete overlay gnus-cite-overlay-list))
+	(ignore-errors
+	  (gnus-delete-overlay overlay))))))
 
 (defun gnus-cite-parse-wrapper ()
   ;; Wrap chopped gnus-cite-parse.