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
, 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 "")
+ (end-of-buffer)
+ (insert ""))
+ (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)