2002-12-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * flow-fill.el (fill-flowed): Don't infloop on too long fill
+ prefixes.
+
* dns.el (query-dns): Protect against errors.
* gnus-msg.el (gnus-article-yanked-articles): New variable.
(when (save-excursion
(beginning-of-line)
(looking-at "^\\(>*\\)\\( ?\\)"))
- (let ((quote (match-string 1)) sig)
+ (let ((quote (match-string 1))
+ sig)
(if (string= quote "")
(setq quote nil))
(when (and quote (string= (match-string 2) ""))
(save-excursion
(unless (eobp)
(forward-char 1)
- (looking-at (format "^\\(%s\\)\\([^>]\\)" (or quote " ?"))))))
+ (looking-at (format "^\\(%s\\)\\([^>]\\)"
+ (or quote " ?"))))))
(save-excursion
(replace-match (if (string= (match-string 2) " ")
"" "\\2")))
(fill-column (eval fill-flowed-display-column))
filladapt-mode)
(fill-region (fill-flowed-point-at-bol)
- (min (1+ (fill-flowed-point-at-eol)) (point-max))
+ (min (1+ (fill-flowed-point-at-eol))
+ (point-max))
'left 'nosqueeze))
- (error nil))))))))
+ (error
+ (forward-line 1)
+ nil))))))))
(provide 'flow-fill)