errors when deleting overlays.
2003-01-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
2003-01-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * gnus-cite.el (gnus-cite-delete-overlays): Protect against
+ errors when deleting overlays.
+
* gnus-score.el (gnus-score-followup): Allow tracing.
* gnus-art.el (gnus-treat-display-face): New variable.
* gnus-score.el (gnus-score-followup): Allow tracing.
* gnus-art.el (gnus-treat-display-face): New variable.
(and (>= (gnus-overlay-end overlay) (point-min))
(<= (gnus-overlay-end overlay) (point-max))))
(setq gnus-cite-overlay-list (delete overlay gnus-cite-overlay-list))
(and (>= (gnus-overlay-end overlay) (point-min))
(<= (gnus-overlay-end overlay) (point-max))))
(setq gnus-cite-overlay-list (delete overlay gnus-cite-overlay-list))
- (gnus-delete-overlay overlay))))
+ (ignore-errors
+ (gnus-delete-overlay overlay)))))
(defun gnus-cite-parse-wrapper ()
;; Wrap chopped gnus-cite-parse.
(defun gnus-cite-parse-wrapper ()
;; Wrap chopped gnus-cite-parse.
(when (file-exists-p file)
(let ((done nil)
(attempt "")
(when (file-exists-p file)
(let ((done nil)
(attempt "")
(while (and (not done)
(> quant 1))
(setq attempt
(while (and (not done)
(> quant 1))
(setq attempt
(shell-quote-argument file)
quant)))
(if (> (length attempt) 740)
(shell-quote-argument file)
quant)))
(if (> (length attempt) 740)
- (setq quant (/ quant 2))
+ (progn
+ (setq quant (- quant 2))
+ (message "Length %d; trying quant %d"
+ (length attempt) quant))
(setq done t)))
(if done
(mm-with-unibyte-buffer
(setq done t)))
(if done
(mm-with-unibyte-buffer