--- emacs-wiki.el.orig	2003-09-02 11:06:23.000000000 +0800
+++ emacs-wiki.el	2003-09-02 11:05:40.000000000 +0800
@@ -3120,24 +3120,29 @@
   ;; avoid marking up urls that appear to be inside existing HTML
   (when (and (not (eq (char-after (point)) ?\"))
              (not (eq (char-after (point)) ?\>)))
-    (let* ((wiki-link (match-string 0))
+    (let* (string
+           (wiki-link (match-string 0))
            (url (emacs-wiki-escape-html-string
                  (emacs-wiki-link-url wiki-link)))
            (name (emacs-wiki-escape-html-string
                   (emacs-wiki-wiki-visible-name wiki-link))))
-      (if (null url)
-          (if (and emacs-wiki-serving-p
-                   (emacs-wiki-editable-p (emacs-wiki-wiki-base wiki-link)))
-              (concat "<a class=\"nonexistent\" href=\"editwiki?"
-                      (emacs-wiki-wiki-base wiki-link) "\">" name "</a>")
-            (concat "<a class=\"nonexistent\" href=\""
-                    emacs-wiki-maintainer "\">" name "</a>"))
-        (if (save-match-data
-              (string-match emacs-wiki-image-regexp name))
-             (if (string-equal url name)
-            (concat "<img src=\"" url "\" alt=\"" name "\">")
-               (concat "<a href=\"" url "\"><img src=\"" name "\"></a>"))
-          (concat "<a href=\"" url "\">" name "</a>"))))))
+      (setq string
+            (if (null url)
+                (if (and emacs-wiki-serving-p
+                         (emacs-wiki-editable-p (emacs-wiki-wiki-base wiki-link)))
+                    (concat "<a class=\"nonexistent\" href=\"editwiki?"
+                            (emacs-wiki-wiki-base wiki-link) "\">" name "</a>")
+                  (concat "<a class=\"nonexistent\" href=\""
+                          emacs-wiki-maintainer "\">" name "</a>"))
+              (if (save-match-data
+                    (string-match emacs-wiki-image-regexp name))
+                  (if (string-equal url name)
+                      (concat "<img src=\"" url "\" alt=\"" name "\">")
+                    (concat "<a href=\"" url "\"><img src=\"" name "\"></a>"))
+                (concat "<a href=\"" url "\">" name "</a>"))))
+      (add-text-properties 0 (1- (length string)) '(rear-nonsticky (read-only) read-only
+                                                                   t) string)
+      string)))
 
 (defun emacs-wiki-markup-word ()
   (let* ((beg (match-beginning 2))