レス数が1000を超えています。残念ながら全部は表示しません。

navi2ch for emacs (part 4)

705 ：287 ：02/01/27 14:35

>>693 はまだ何もやってないです…。ごめんなさい。

レスの最後の空白行を取り除くパッチです。
navi2ch-vars.el では、ついでに、boolean なはずの :type が
integer になってるバグを取りました。

diff -u2 -rbN navi2ch.orig/navi2ch-article.el navi2ch/navi2ch-article.el
--- navi2ch.orig/navi2ch-article.el Sun Jan 27 13:39:24 2002
+++ navi2ch/navi2ch-article.el Sun Jan 27 14:19:20 2002
@@ -249,4 +249,8 @@

(defsubst navi2ch-article-cleanup-message ()
+ (when navi2ch-article-cleanup-trailing-newline ; レス末尾の空白を取り除く
+ (goto-char (point-min))
+ (when (re-search-forward "\\(<br> *\\)+<>" nil t)
+ (replace-match "<>")))
(let (re str)
(when navi2ch-article-cleanup-white-space-after-old-br
diff -u2 -rbN navi2ch.orig/navi2ch-vars.el navi2ch/navi2ch-vars.el
--- navi2ch.orig/navi2ch-vars.el Sun Jan 27 13:39:25 2002
+++ navi2ch/navi2ch-vars.el Sun Jan 27 14:20:10 2002
@@ -469,10 +469,15 @@
"*`non-nil' の場合、<br> の後にある空白を取り除く。
ただし、すべての <br> の直後に空白がある場合のみ。"
- :type 'integer
+ :type 'boolean
:group 'navi2ch-article)

(defcustom navi2ch-article-cleanup-trailing-whitespace t
"*`non-nil' の場合、各行の末尾の空白を取り除く。"
- :type 'integer
+ :type 'boolean
+ :group 'navi2ch-article)
+
+(defcustom navi2ch-article-cleanup-trailing-newline t
+ "*`non-nil' の場合、各レスの末尾から改行と空白を取り除く。"
+ :type 'boolean
:group 'navi2ch-article)

read.cgi ver5.26+ (01/10/21-)