From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Eric Schulte" Subject: compose and send html email using orgmode Date: Fri, 11 Jan 2008 11:44:38 -0800 Message-ID: <18311.50982.47190.136076@erics-mac.local> Reply-To: Eric Schulte Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="sBmg1sBQc9" Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JDPpD-0006Q7-4h for emacs-orgmode@gnu.org; Fri, 11 Jan 2008 14:45:55 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JDPpC-0006PY-Bi for emacs-orgmode@gnu.org; Fri, 11 Jan 2008 14:45:54 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JDPpC-0006PO-6P for emacs-orgmode@gnu.org; Fri, 11 Jan 2008 14:45:54 -0500 Received: from mxout2.cac.washington.edu ([140.142.33.4]) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1JDPpB-00013T-Lt for emacs-orgmode@gnu.org; Fri, 11 Jan 2008 14:45:53 -0500 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: emacs-orgmode@gnu.org --sBmg1sBQc9 Content-Type: text/plain; charset=us-ascii Content-Description: message body text Content-Transfer-Encoding: 7bit Hi, Using the attached file it is possible to compose mail using org-mode (orgstruct, and orgtbl modes to be specific), and then send the mail as a "text/html" mime message. In effect WYSWYG html email composition. I find this very useful for sending lists and tables to co-workers who use non-fixed-width-font email clients. I put this together with the help of Rob form the gnu.emacs.vm.info newsgroup, and I use it with VM, but it no-where mentions VM, and it *should* work with any emacs email composition buffer. To use place the attached file in your path, and add the following to you .emacs file ;; org-mode in my mail (setq mail-turn-on-full-org-mailing-first-time t) (defun turn-on-full-org-mailing () (if mail-turn-on-full-org-mailing-first-time (progn (org-publish (car (car org-publish-project-alist))) (setq mail-turn-on-full-org-mailing-first-time nil))) ;;(turn-on-orgstruct) (turn-on-orgstruct++) (turn-on-orgtbl) (load "org-html-mail.el")) (add-hook 'mail-mode-hook 'turn-on-full-org-mailing) Then when composing mail send as an html message by using a prefix argument on the send command, so "\C-u\C-c\C-c". Your mail will be converted to html using org's export command, the appropriate mime headers will be attached, and then your normal send command will be executed. Note: This is still very young, so here are some issues, and ideas for improvement that the list may be able to help with. :) 1. it seems that for the org-export-as-html command to work, the buffer must be associated with a file, this adds some complexity to the process, is it possible to export-as-html without associating the buffer with a path? 2. if org-export-as-html has not yet been called since turning emacs on, then the following error occurs in org-export-as-html ------*Messages*------- Exporting... [2 times] byte-code: Wrong type argument: stringp, nil ------*Messages*------- Hence they hacky turn-on-full-org-mailing function, and mail-turn-on-full-org-mailing-first-time variable 3. I would like to add the feature of automatically attaching, and linking to images from the html, but I haven't really started this, and I'm not sure how it would work, so any thoughts would be appreciated. Thanks, Eric --sBmg1sBQc9 Content-Type: text/plain; name="org-html-mail.el" Content-Disposition: inline; filename="org-html-mail.el" Content-Transfer-Encoding: 7bit ;; Eric Schulte ;; 2008-01-10 ;; ;; WYSWYG, html mail composition using orgmode ;; ;; For mail composed using the orgstruct-mode minor mode, this ;; provides the option of sending the mail in html format using ;; org-export-as-html. ;; ;; To use place this file in your path, and add the following to you ;; .emacs file ;; ;; ;; org-mode in my mail ;; (setq mail-turn-on-full-org-mailing-first-time t) ;; (defun turn-on-full-org-mailing () ;; (if mail-turn-on-full-org-mailing-first-time ;; (progn ;; (org-publish (car (car org-publish-project-alist))) ;; (setq mail-turn-on-full-org-mailing-first-time nil))) ;; ;;(turn-on-orgstruct) ;; (turn-on-orgstruct++) ;; (turn-on-orgtbl) ;; (load "org-html-mail.el")) ;; (add-hook 'mail-mode-hook 'turn-on-full-org-mailing) ;; ;; Then when composing mail send as an html message by using a prefix ;; argument on the send command, so "\C-u\C-c\C-c". Your mail will be ;; converted to html using org's export command, the appropriate mime ;; headers will be attached, and then your normal send command will be ;; executed. ;; (defun orgstruct-hijacker-command-11 (arg) "In Structure, run `org-ctrl-c-ctrl-c'. Outside of Structure check for a prefix argument and if buffer name contains `mail', and run orgstruct-send-as-html, or run the binding of `\C-c\C-c'." (interactive "p") (if (org-context-p (quote headline) (quote item)) (org-run-like-in-org-mode (quote org-ctrl-c-ctrl-c)) (if (orgstruct-send-as-html-should-i-p arg) (orgstruct-send-as-html) (let (orgstruct-mode) (call-interactively (key-binding "\C-c\C-c")))))) (defun orgstruct-send-as-html-should-i-p (arg) "lets be pretty sure we have a prefix argument and are actually in a mail buffer" (goto-char (point-min)) (if (and arg (> arg 1) (string-match "mail" (buffer-name (current-buffer))) (search-forward mail-header-separator)) t)) ;; TODO something needs to load when org exports to html, it works ;; when I have already exported an org file, but not if I haven't ;; since turning on emacs (defun orgstruct-send-as-html () "Export the body of the mail message to html using `org-export-as-html' then send the results as a text/html Content-Type message" ;; adjust mime type (goto-char (point-min)) (insert "MIME-Version: 1.0\n") (insert "Content-Type: text/html\n") (search-forward mail-header-separator) (let* ((mail-text-point (point)) (mail-buffer (current-buffer)) ;; have to write the file because org needs a path to export (tmp-file (make-temp-name (expand-file-name "schulte" "/tmp/"))) ;; because we probably don't want to skip part of our mail (org-export-skip-text-before-1st-heading nil) (html (progn (write-file tmp-file) ;; convert to html (org-export-region-as-html mail-text-point (point-max) t 'string)))) (switch-to-buffer mail-buffer) (set-visited-file-name nil) (delete-file tmp-file) ;; replace text with html (goto-char mail-text-point) (delete-region (point) (point-max)) (insert "\n") (insert html) ;; send the mail (let (orgstruct-mode) (call-interactively (key-binding "\C-c\C-c"))))) --sBmg1sBQc9 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --sBmg1sBQc9--