[mew-dist 21006] Re: 全文引用対策 revised

[KOIE Hidetaka ( 鯉江英隆 )]

  Message-Id: <20020531.215731.74518807.hide at example.com>
  Date:       Fri, 31 May 2002 21:57:31 +0900 (JST)
  From:       KOIE Hidetaka (鯉江英隆) <hide at example.com>
  Subject:    [mew-dist 20998] 全文引用対策 revised

修正内容:

* やまのさんから
  emacs-20.7のbuffer-size()は引数をとらないとの情報をいただきました。
* uuencode用の正規表現を改善しました。

━━━━━━━━━━━━━━ここから━━━━━━━━━━━━━━
--- clearup.el-20020531	Mon Jun  3 12:46:03 2002
+++ clearup.el	Mon Jun  3 12:44:50 2002
@@ -1,7 +1,7 @@
 ;; clearup.el -- 全文引用をすっきりさせる
 
 (defvar clearup-regex-cite
-  "^\\(\\([ \t]*\\w*[a-zA-Z0-9'-.]*[>|]+\\)+\\).*\\|^[!-M`][!-`]+$"
+  "^\\(\\([ \t]*\\w*[a-zA-Z0-9'-.]*[>|]+\\)+\\).*\\|^M[!-`]\\{60\\}[ \t]*$"
   "不可視対象の行の正規表現
 初期設定ではメイルの引用とuuencode形式の行に一致する")
 
@@ -24,6 +24,8 @@ (defvar clearup-bottom-margin 3
 (defvar clearup-key "H"
   "不可視化のトグルにつかうキー")
 
+(defvar clearup-debug nil)
+
 ;; mapc
 (when (not (functionp 'mapc))
   (defsubst mapc (func seq)
@@ -155,14 +157,20 @@ (when (boundp 'mew-version)
         (if (clearup-donep)
             (progn
               (clearup-undo-buffer)
-              (message "reset"))
+              (if clearup-debug
+                  (message "reset")))
           (let ((n (clearup-do-buffer)))
-            (message "%d" n))))))
+            (if clearup-debug 
+                (message "%d" n)))))))
   (define-key mew-summary-mode-map clearup-key 'mew-clearup)
   (define-key mew-message-mode-map clearup-key 'mew-clearup)
   (defun mew-call-clearup ()
-    (when (< (buffer-size (get-buffer (mew-buffer-message))) mew-clearup-limit)
-      (mew-clearup)))
+    (let ((size
+	   (save-excursion
+	     (set-buffer (mew-buffer-message))
+	     (buffer-size))))
+      (when (< size mew-clearup-limit)
+	(mew-clearup))))
   (add-to-list 'mew-message-hook 'mew-call-clearup))
 
 (provide 'clearup)
━━━━━━━━━━━━━━ここまで━━━━━━━━━━━━━━

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>