Prev / Next

2003-08-13 / navi2ch - 連続した改行を削除

;; 連続した改行を削除
(defun my-navi2ch-article-collect-newlines ()
  (point-min)
  (while (re-search-forward "\n\n\n+" nil t)
    (replace-match "\n\n" nil nil)))

(add-hook 'navi2ch-article-arrange-message-hook
  'my-navi2ch-article-collect-newlines)

comments powered by Disqus