X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mu-cite.el;h=87ec6edcd67f7deda0f94e9bb00f1ad471b8c799;hb=c040c4fcc903028101a5806832bc75fd11e2222a;hp=ec059be15c8816b8669559a0c864007dc08ba4ed;hpb=9489fee19a3cdbff272535654ca022cfd9b814dd;p=elisp%2Fmu-cite.git

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))))))