;; 連続した改行を削除
(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)
2003-08-13 / navi2ch - 連続した改行を削除
tag: [Emacs]