From mboxrd@z Thu Jan 1 00:00:00 1970 From: Dan Davison Subject: Re: using orgmode to send html mail? Date: Wed, 24 Mar 2010 13:50:53 -0400 Message-ID: <87sk7pzk02.fsf@stats.ox.ac.uk> References: <878w9krtyn.wl%dmaus@ictsoc.de> <871vfa24qo.fsf@gmail.com> <87pr2uww2d.fsf@columbia.edu> <87tys5zrwm.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NuUjO-0003ws-DI for emacs-orgmode@gnu.org; Wed, 24 Mar 2010 13:51:02 -0400 Received: from [140.186.70.92] (port=46214 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NuUjM-0003wk-U1 for emacs-orgmode@gnu.org; Wed, 24 Mar 2010 13:51:02 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1NuUjK-0003sN-Pd for emacs-orgmode@gnu.org; Wed, 24 Mar 2010 13:51:00 -0400 Received: from markov.stats.ox.ac.uk ([163.1.210.1]:57852) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NuUjK-0003sH-Hd for emacs-orgmode@gnu.org; Wed, 24 Mar 2010 13:50:58 -0400 In-Reply-To: <87tys5zrwm.fsf@gmail.com> (Eric Schulte's message of "Wed, 24 Mar 2010 09:00:09 -0600") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Eric Schulte Cc: emacs-orgmode@gnu.org "Eric Schulte" writes: > Xiao-Yong Jin writes: > >> On Tue, 23 Mar 2010 13:54:39 -0600, Eric Schulte wrote: >> >>> Nice to see this topic has come back to life. >>> I've been playing with my old org-html-mail.el file, and come up with a >>> much simpler solution, which takes advantage of the mml message mode >>> functionality with is used in gnus (and I would imagine in some other >>> Emacs mail clients, but I can't be sure). >> >>> Just call this function and either the active region of your message >>> buffer or the entire body (if no region is active) will be exported to >>> html using org-mode, and will be wrapped in the appropriate mml wrapper >>> to be sent as the appropriate mime type. >> > > I've cleaned up the function somewhat, I'll include it immediately > below by inserting it in a org-mode src_block and then exporting it to > html, so those with html mail readers should see a nicely fontified > version of the source code. This is really nice. I already sent my first HTML-formatted tables to colleagues with it yesterday. And yes, the email comes up with nicely formatted elisp in my web browser after hitting 'K H' in gnus. Dan > > (defun org-mml-htmlize (arg) > "Export a portion of an email body composed using `mml-mode' to > html using `org-mode'. If called with an active region only > export that region, otherwise export the entire body." > (interactive "P") > (let* ((region-p (org-region-active-p)) > (html-start (or (and region-p (region-beginning)) > (save-excursion > (goto-char (point-min)) > (search-forward mail-header-separator) > (point)))) > (html-end (or (and region-p (region-end)) > ;; TODO: should catch signature... > (point-max))) > (body (buffer-substring html-start html-end)) > (tmp-file (make-temp-name (expand-file-name "mail" "/tmp/"))) > ;; because we probably don't want to skip part of our mail > (org-export-skip-text-before-1st-heading nil) > ;; because we probably don't want to export a huge style file > (org-export-htmlize-output-type 'inline-css) > ;; makes the replies with ">"s look nicer > (org-export-preserve-breaks t) > (html (if arg > (format "
\n%s
\n" body) > (save-excursion > (with-temp-buffer > (insert body) > (write-file tmp-file) > ;; convert to html -- mimicing `org-run-like-in-org-= mode' > (eval (list 'let org-local-vars > (list 'org-export-as-html nil nil nil ''= string t)))))))) > (delete-region html-start html-end) > (save-excursion > (goto-char html-start) > (insert > (format > "\n<#multipart type=3Dalternative>\n<#part type=3Dtext/html>%s<#/= multipart>\n" > html))))) > > >> >> Thumbs up for this one. It should be included in >> org-contrib, probably after taken care of other mail client >> in emacs? >> > > I have looked somewhat at both VM and Wanderlust, but they appear to use > their own mime encoding schemes other than mml, so this won't work as-is > in those mail clients. That said, assuming they also use simple mime > encoding strings it should be hard to replace the mml specific mime > delimiters presented as strings in the above functions with string > delimiters appropriate for the other mail agents. > > also, I have to say I feel bad about publishing code which promotes the > use of HTML mail. Generally I feel that everyone would be better off if > they just used fixed width text email clients. As a concession to that > intuition, if this function is called with a prefix argument, it will > wrap the region (or entire email) as html in 
 tags ensuring
> that it will be rendered in a fixed-with font no-matter the receivers
> email client, so the following table should actually look like a
> table...
>
> | this table   |   | n | fibb(n) |
> |--------------+---+---+---------|
> | is           |   | 0 |       0 |
> | inside       |   | 1 |       1 |
> | of a pre box |   | 2 |       1 |
> |              |   | 3 |       2 |
>
>
> Best -- Eric
>
>>
>>> So for example this
>>>> 1 |      2 |     3 |
>>>> --------------+--------+-------|
>>>> first column | second | third |
>>
>>> will be exported as this
>>> =E2=94=81=E2=94=81=E2=94=81=E2=94=81=E2=94=81=E2=94=81=E2=94=81=E2=94=
=81=E2=94=81=E2=94=81=E2=94=81=E2=94=81=E2=94=81=E2=94=81
>>>        1          2       3=20=20=20
>>> =E2=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=
=80=E2=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=80
>>>  first column   second  third=20
>>> =E2=94=81=E2=94=81=E2=94=81=E2=94=81=E2=94=81=E2=94=81=E2=94=81=E2=94=
=81=E2=94=81=E2=94=81=E2=94=81=E2=94=81=E2=94=81=E2=94=81
>>
>> I use emacs-w3m in gnus, and the table looks great.
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode