From 38155843a347f913327a786e6de866fcded5dbf5 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Tue, 20 Jul 1999 04:57:06 +0000
Subject: [PATCH] (compress-cited-prefix): Use `if' instead of `when'.

---
 mu-cite.el |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/mu-cite.el b/mu-cite.el
index 87ec6ed..ce7d9fa 100644
--- a/mu-cite.el
+++ b/mu-cite.el
@@ -454,8 +454,9 @@ TABLE defaults to the current buffer's category table."
 	     (prefix (buffer-substring b e))
 	     ps pe (s 0)
 	     (nest (let ((i 0))
-		     (when (string-match "<[^<>]+>" prefix)
-		       (setq prefix (substring prefix 0 (match-beginning 0))))
+		     (if (string-match "<[^<>]+>" prefix)
+			 (setq prefix
+			       (substring prefix 0 (match-beginning 0))))
 		     (while (string-match
 			     (concat "\\([" citation-mark-chars "]+\\)[ \t]*")
 			     prefix s)
-- 
1.7.10.4