Index: lisp/lj-post.el
===================================================================
RCS file: /cvsroot/ljupdate/ljupdate/lisp/lj-post.el,v
retrieving revision 1.4
diff -u -r1.4 lj-post.el
--- lisp/lj-post.el	5 Oct 2002 06:59:36 -0000	1.4
+++ lisp/lj-post.el	14 Feb 2004 12:58:25 -0000
@@ -158,14 +158,23 @@
              ;; Reformat the paragraphs so that they are on a
              ;; single line; LJ will convert newlines to <BR>, so
              ;; we want to get rid of them before that happens.
-
-             (let ((fill-column 65536)
-                   (sentence-end-double-space t))
-               (fill-region
-                (progn (goto-char (ljc-mail-header-end))
-                       (forward-line 1)
-                       (point))
-                (point-max) 'left t))
+	     (let ((is-html 
+		    (string-match "[Yy][Ee][Ss]" (lj--fetch-header "X-LJ-Is-HTML"))))
+	       (lj--message 6 "is-html is %s" is-html)
+	       (if is-html
+		   (progn
+		     (goto-char (ljc-mail-header-end))
+		     (forward-line 1)
+		     (insert "<lj-raw>")
+		     (end-of-buffer)
+		     (insert "</lj-raw>"))
+		 (let ((fill-column 65536)
+		       (sentence-end-double-space t))
+		   (fill-region
+		    (progn (goto-char (ljc-mail-header-end))
+			   (forward-line 1)
+			   (point))
+		    (point-max) 'left t))))
 
              (let* ((subject (lj--fetch-header "Subject"))
                     (profiles
Index: lisp/lj-write.el
===================================================================
RCS file: /cvsroot/ljupdate/ljupdate/lisp/lj-write.el,v
retrieving revision 1.5
diff -u -r1.5 lj-write.el
--- lisp/lj-write.el	20 Dec 2002 02:26:36 -0000	1.5
+++ lisp/lj-write.el	14 Feb 2004 12:58:27 -0000
@@ -379,7 +379,8 @@
 				"yes") "\n"
     "X-LJ-Access: " (or (cdr (assoc 'access defaults-alist))
 			lj-default-access-level
-			"public") "\n"))
+			"public") "\n"
+    "X-LJ-Is-HTML: no\n"))
 
   (set (make-local-variable 'lj-composition) t)