+ (replace-match "\\2"))
+
+ ;; Insert a blank line before a citation if there isn't one.
+ (goto-char (point-min))
+ (while (re-search-forward "\\(^[^>]+\\)\n>" nil t)
+ (replace-match "\\1\n\n>"))
+
+ ;; Insert a blank line after a citation if there isn't one.
+ (goto-char (point-min))
+ (while (re-search-forward "\\(^>.+\\)\n\\([^>]\\)" nil t)
+ (replace-match "\\1\n\n\\2")))