Posting profiles

[David Kagedal <davidk@lysator.liu.se>]

john s jacobs anderson <jacobs@genehack.org> writes:

> * "posting profiles" ideally accessible from a popup menu; allowing
>   choice between predefined profiles of
>   from,name,organization,etc. Example: I'm at home, but need to reply
>   to a work mail; i can hit 'R', then use this command to switch to my
>   'work' profile for purposes of this one reply. (This might already
>   be possible with current Gnus, but I don't think so.)

I use the following.  I read mail at work using to IMAP servers and
constantly send mail from different addresses.  When replying it
guesses the profile, but otherwise it asks who who I want to be this
time.

(defconst message-profiles
  '((idasys
     (user-mail-address . "david.kagedal@idasys.se")
     (message-signature . "David Kågedal, Ida Systems\n"))
    (lysator
     (user-mail-address . "davidk@lysator.liu.se")
     (message-signature . "David Kågedal"))))

(defvar message-profile nil)
    
(defun set-message-profile (profile)
  (let ((profile (cdr (assq profile message-profiles))))
    (if profile
	(progn
	  (mapcar (function (lambda (v)
			      (let ((var (car v))
				    (val (cdr v)))
				(make-local-variable var)
				(set var val))))
		  profile)
	  (make-local-variable 'message-profile)
	  (setq message-profile profile))
      (error "unknown profile: %S" profile))))

(defun read-message-profile (prompt &optional default)
  (let ((table (mapcar (function (lambda (x)
				   (list (symbol-name (car x)))))
		       message-profiles)))
    (intern (completing-read prompt table nil t default))))
					 

(defun dk-select-message-profile ()
  (unless message-profile
    (let ((to (message-fetch-reply-field "to"))
	  profile)
      (set-message-profile (cond ((null to)
				  (read-message-profile "Profile: "))
				 ((string-match "@idasys.se" to)
				  'idasys)
				 ((string-match "@lysator.liu.se" to)
				  'lysator)
				 (t
				  (read-message-profile "Profile: ")))))))

(add-hook 'message-signature-setup-hook 'dk-select-message-profile)


I also use this to add a BCC:

(defun dk-add-bcc ()
  (goto-char (point-max))
  (insert "Bcc: " user-mail-address "\n"))

(add-hook 'message-header-setup-hook 'dk-add-bcc)


-- 
David Kågedal