# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1348164374 -10800
# Node ID d063544b9199360c712babee047fc502c9df55a5
# Parent  8f8987262795eaf81fc76047c0cb71498e51b599
Add Organization header for 'C-x m'.

diff -r 8f8987262795 -r d063544b9199 .emacs-my
--- a/.emacs-my	Thu Sep 20 20:52:53 2012 +0300
+++ b/.emacs-my	Thu Sep 20 21:06:14 2012 +0300
@@ -1272,6 +1272,11 @@
 
 (setq mail-user-agent 'message-user-agent)
 
+(defun my-compose-mail ()
+  (interactive)
+  (compose-mail nil nil `(("Organization" . ,(getenv "ORGANIZATION")))))
+(global-set-key (kbd "C-x m") #'my-compose-mail)
+
 (setq message-citation-line-format "On %Y-%m-%d, %N wrote:
 ")
 (setq message-citation-line-function 'message-insert-formatted-citation-line)