--- 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)