From: morioka <morioka>
Date: Tue, 20 Jul 1999 04:56:03 +0000 (+0000)
Subject: (fill-cited-region): Use `if' instead of `when'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c040c4fcc903028101a5806832bc75fd11e2222a;p=elisp%2Fmu-cite.git

(fill-cited-region): Use `if' instead of `when'.
---

diff --git a/mu-cite.el b/mu-cite.el
index ec059be..87ec6ed 100644
--- a/mu-cite.el
+++ b/mu-cite.el
@@ -429,12 +429,12 @@ TABLE defaults to the current buffer's category table."
 	  (let ((b (match-beginning 0))
 		(e (match-end 0)))
 	    (delete-region b e)
-	    (when (and (> b (point-min))
-		       (let ((cat (char-category
-				   (char-before b))))
-			 (or (string-match "a" cat)
-			     (string-match "l" cat))))
-	      (insert " "))))
+	    (if (and (> b (point-min))
+		     (let ((cat (char-category
+				 (char-before b))))
+		       (or (string-match "a" cat)
+			   (string-match "l" cat))))
+		(insert " "))))
 	(goto-char (point-min))
 	(fill-region (point-min) (point-max))))))