Welcome to the CHICKEN Scheme pasting service

Beanstandeter Ausdruck added by _1126 on Tue Nov 13 14:30:31 2012

(add-hook 'mu4e-compose-pre-hook
          (defun my-set-from-address ()
            "Set the From address based on the To address of the original."
            (let ((msg mu4e-compose-parent-message) ;; msg is shorter...
                  (setq user-mail-address
                        (cond
                         ((mu4e-contact-field-matches msg :to "mail@christianlask.de")
                          "mail@christianlask.de")
                         ((mu4e-contact-field-matches msg :to "laskc@smail.uni-koeln.de")
                          "laskc@smail.uni-koeln.de")
                         ((mu4e-contact-field-matches msg :to "business@christianlask.de")
                          "business@christianlask.de")
                         (t "mail@elfsechsundzwanzig.de")))))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which module provides `string-intersperse'?
Visually impaired? Let me spell it for you (wav file) download WAV