Re: get header value when replying

[Denis Dzyubenko <shad@mail.kubtelecom.ru>]

On Mon, 06 Oct 2003 01:49:33 +0400,
 Denis Dzyubenko(DD) wrote to ding:

DD> Hello,
DD> Is it possible to get value of To: header in message-setup-hook ? In
DD> the internet I found an example that uses message-reply-buffer
DD> variable, but it is not documented, so I think it is not a good idea
DD> to use it.

I found a solution - using message-narrow-to-headers and string-match functions:
=+==
(defun my-message-get-header (header)
  "Return header value from current message"
  (let (my-match-start header-value)
    (save-excursion
      (save-restriction
	(message-narrow-to-headers)
	(if (string-match (concat "^" (regexp-quote header) ":") (buffer-string))
	    (progn
	      (setq my-match-start (+ (match-end 0) 1))
	      (goto-char my-match-start)
	      (end-of-line)
	      (setq header-value (buffer-substring my-match-start (point)))))))
    header-value))
=+==


Please tell me - how can I check if current message is reply (or
followup) in message-setup-hook? Is it "correct" to check value of
message-reply-headers:

(if message-reply-headers
    (progn
; this is a followup
      (dosomething))
  (progn
; this is new message
    (dosomethingelse)))


-- 
Denis.