Re: Header dependant headers?

[Hans de Graaff <graaff@xs4all.nl>]

Edvard Majakari <ed@a41a.otanner.ton.tut.fi> writes:

> Works fine, yep; but that won't allow me to include custom Reply-To
> header when answering mails in that group. I'd need one for my work,
> so I think I just have to write a hook for that, and call it from
> Group Parameters?

I use the following, which kinda works but also has some problems. I
originally got something like it from the newsgroup, but I forgot to
save the name. Since then I've ripped it apart myself to better suit
what I wanted.

Comments, etc, are welcome. I'm not a lisp hacker by any standard, but 
I would like to see some kind of customization of all headers
based on characteristics. (In my case below the group I'm in).

Which reminds me: Lars, there is only an nnml-current-group, but there 
is no such thing for nntp groups. Shouldn't there be a
gnus-current-group variable?

Hans





;; JJDG: Got this off of gnu.emacs.gnus, not sure who wrote it...
;; Hacked it so that naming is more safe, ripped out signature stuff, 
;; since I don't need it, and also allow outgoing mail to be customized 
;; based on To: header.

(setq jjdg-postspecs
      '(("mail.forum" .
	 ((headers . "Reply-To: forum@graaff.xs4all.nl\nOrganization: Forum Distribution, Main Branch\n"))
         )
	("\\(list\\.\\(chi\\.\\|ui-patterns\\).*\\|mail\\.acm\\..*\\)" .
	 ((headers . "From: Hans de Graaff <j.j.degraaff@acm.org>\n")))
	(t .
           ((headers . "From: Hans de Graaff <graaff@xs4all.nl>\n")))
	))

(defun jjdg-find-postspec (speclist groups)
  (cond ((null speclist) nil)
        ((null groups) (cdr-safe (assq t speclist)))
        (t (let ((spec (car speclist)))
	     (if (or (eq t (car spec)) (string-match (car spec) groups))
                 (cdr spec)
               (jjdg-find-postspec (cdr speclist) groups))))
        ))


(defun jjdg-electric-from (header-alist)
;  (let* ((groups        (or (cdr-safe (assq 'Newsgroups header-alist))
;			    (cdr-safe (assq 'To header-alist))))
  (let* ((groups        nnml-current-group)
         (postspec      (jjdg-find-postspec jjdg-postspecs groups))
         (headers       (cdr-safe (assq 'headers postspec))))
    (if headers
        (save-excursion
          (goto-char (point-min))
          (insert headers)))
  ))


(add-hook 'message-signature-setup-hook 
          (lambda () (jjdg-electric-from headers)))