[Mew-dist 07807] mew-fib-flush-input

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

mew-fib.el を user meeting の申し込みで初めて使ったのですが、
mew-fib-flush-input() は今のままじゃ動かないのではないでしょうか？
というわけで、パッチです。

# それまで mew-fib ってソースをみても使い方が良くわからなかった ^^;;;

--- mew-fib.el.orig	Mon Mar  1 12:18:17 1999
+++ mew-fib.el	Mon Mar  1 12:18:24 1999
@@ -84,9 +84,12 @@
   "Flush input from .mew-fib."
   (interactive)
   (save-excursion
-    (let ((ptr (point)))
-      (goto-char (point-min))
-      (if (and (looking-at "^.*|>\\([^<]+\\)<|")
+    (let ((ptr (point)) begline)
+      (save-excursion
+	(beginning-of-line)
+	(setq begline (point)))
+      (if (and (re-search-backward "|>" begline t)
+	       (looking-at "|>\\([^<]+\\)<|")
 	       (>= ptr (match-beginning 1))
 	       (<= ptr (match-end 1)))
 	  (delete-region (match-beginning 1)