- ;; fcc handler
- (defun maildir-deliver-region(destdir)
- (shell-command-on-region
- (point-min) (point-max)
- (concat "/usr/local/bin/mddeliver.py -c -s -d " destdir)))
- (setq message-fcc-handler-function 'maildir-deliver-region)
- (defun my-message-header-setup ()
- (message-add-header "Fcc: ~/mail/INBOX.Sent"))
- (add-hook 'message-send-hook 'my-message-header-setup)
+ ;; fcc handler
+ (defun maildir-deliver-region(destdir)
+ (shell-command-on-region
+ (point-min) (point-max)
+ (concat "/usr/local/bin/mddeliver.py -c -s -d " destdir)))
+ (setq message-fcc-handler-function 'maildir-deliver-region)
+ (defun my-message-header-setup ()
+ (message-add-header "Fcc: ~/mail/INBOX.Sent"))
+ (add-hook 'message-send-hook 'my-message-header-setup)