[mew-dist 24106] mew-highlight-body-max-size

Kazumi HARA hara at example.com
2003年 10月 24日 (金) 11:30:07 JST


こんにちは、はら@リコー と申します。

mew-highlight-body-max-size にて、url の色付けサイズを決めてま
すが、何も気にせず Body 全てを highlight して欲しい設定をした
いなぁ、と思って、

(setq mew-highlight-body-max-size 0)

で、no limitation って言うのは如何なものでしょうか?

いつだったか記憶が定かじゃないんですけど、以前の version で
(setq mew-hoge-hoge t) みたいな感じで、全部を highlight してい
た頃があった気がするんですけど...

# 大きな数字入れたら、ええんちゃう?って言われてしまえば、その
# 通りなんですけど、「ナンボがええんやろ?」とか悩まなくて済む
# かな?って (^o^;;;

max-size なのに「ゼロ」って入れるのも変な感じ ;-p なので、なん
となく、こんなことがしたい奴がいるんだと言うことを、わかってい
ただけたら幸いです m(__)m

--
はらかずみ < hara at example.com >



$ diff -u mew-highlight.el~ mew-highlight.el
--- mew-highlight.el~   Wed Jul 16 11:07:20 2003
+++ mew-highlight.el    Fri Oct 24 10:23:56 2003
@@ -117,9 +117,12 @@

 (defun mew-highlight-body-region (BEG END &optional draft rehighlight)
   (when (and (or mew-use-highlight-body mew-use-highlight-url)
-            (<= BEG mew-highlight-body-max-size))
-    (if (> END mew-highlight-body-max-size)
-       (setq END mew-highlight-body-max-size))
+            (or (= 0 mew-highlight-body-max-size)
+                (<= BEG mew-highlight-body-max-size)))
+    (if (or (= 0 mew-highlight-body-max-size)
+           (< END mew-highlight-body-max-size))
+       ()
+      (setq END mew-highlight-body-max-size))
     (let* ((inhibit-point-motion-hooks t)
           (cite-regex mew-highlight-body-regex-cite)
           (cmt-regex mew-highlight-body-regex-comment)


$ diff -u mew-vars.el~ mew-vars.el
--- mew-vars.el~        Wed Sep 24 22:25:06 2003
+++ mew-vars.el Fri Oct 24 10:56:37 2003
@@ -1219,7 +1219,7 @@
   :type 'integer)

 (defcustom mew-highlight-body-max-size 10000
-  "A limit for highlighting a body."
+  "A limit for highlighting a body. '0' means No-Limitation"
   :group 'mew-highlight
   :type 'integer)



Mew-dist メーリングリストの案内