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

(compress-cited-prefix): Use `if' instead of `when'.
---

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)