Bugfix in lyskom-format-image: let->let*.

src/ChangeLog

+2004-10-29  Pontus Freyhult  <pont@soua.net>
+
+	* lyskom-rest.el (lyskom-format-image): Bugix: Used let instead
+	of let*.
+
 2004-10-28  David Byers  <byers@lysator.liu.se>
 
 	* vars.el.in: Updated some documentation strings.

src/lyskom-rest.el

@@ -2235,14 +2235,14 @@ in lyskom-messages."
 
 (defun lyskom-format-image (text text-stat)
   (if kom-format-show-images
-      (let ((cti (lyskom-get-aux-item (text-stat->aux-items text-stat) 1))
-	    (content-type (and cti (aux-item->data (car cti))))
-	    (msg "")
-	    (imagetype (intern 
-			; FIXME: Can the media type contain more than letters and -?
-			(string-replace-match "^.*/\\([-a-zA-Z]*\\)\\(.\\|\n\\)*" 
-					      content-type "\\1")))
-	    (imagedata text))
+      (let* ((cti (lyskom-get-aux-item (text-stat->aux-items text-stat) 1))
+	     (content-type (and cti (aux-item->data (car cti))))
+	     (msg "")
+	     (imagetype (intern 
+			 ; FIXME: Can the media type contain more than letters and -?
+			 (string-replace-match "^.*/\\([-a-zA-Z]*\\)\\(.\\|\n\\)*" 
+					       content-type "\\1")))
+	     (imagedata text))
 	(condition-case nil
 	    (lyskom-xemacs-or-gnu
 	     (set-extent-end-glyph ; XEmacs