[mew-int 00602] Re: Mail-Followup-To and Mail-Reply-To support?

[Tatsuya Kinoshita]

In message [mew-int 00599], on Sun, 25 Nov 2001,
sen_ml at example.com wrote:

> Is there support for this in Mew?  If so, please tell me how to enable
> it (or where to look to learn).  If not, is there any interest in
> supporting it?

An ad hoc solution:

---- 
;; This work is written by Tatsuya Kinoshita.  Copyright is disclaimed.
;; You can add this to your ~/.mew.el, but there is NO WARRANTY.

;; Reply to all.  If arg, reply only to `From:'.
(setq mew-noreplyto-to-list '("Mail-Followup-To:" "Mail-Reply-To:" "From:"))
(setq mew-noreplyto-cc-list '("Cc:" "To:" "Apparently-To:"))
(setq mew-replyto-to-list '("Mail-Followup-To:" "Reply-To:"))
(setq mew-replyto-cc-list '("Cc:" "To:" "Apparently-To:"
			    "Mail-Reply-To:" "From:"))

(define-key mew-summary-mode-map "\C-ca" 'my-mew-summary-reply)
(define-key mew-summary-mode-map "\C-cA" 'my-mew-summary-reply-with-citation)
(defun my-mew-summary-reply (&optional arg cite)
  "Wide reply.  If arg, personal reply.
  `Mail-Followup-To:' and `Mail-Reply-To:' are supported."
  (interactive "P")
  (let ((fld (mew-summary-folder-name))
	(msg (mew-summary-message-number2))
	(buf (current-buffer))
	mew-noreplyto-to-list mew-replyto-to-list
	mew-noreplyto-cc-list mew-replyto-cc-list
	to cc)
    (let ((mew-use-full-window nil))
      (mew-summary-display nil));; create cache
    (set-buffer (or (save-excursion
		      (set-buffer (mew-buffer-message))
		      (if (mew-header-p) (current-buffer)))
		    (mew-cache-hit fld msg)))
    (widen);; for ^L
    (cond
     (arg;; personal reply
      (if (mew-header-get-value "Mail-Reply-To:")
	  (setq to '("Mail-Reply-To:"))
	(setq to '("Reply-To:" "From:")))
      (setq cc nil))
     (t;; wide reply
      (if (mew-header-get-value "Mail-Followup-To:")
	  (setq to '("Mail-Followup-To:"))
	(setq to '("Reply-To:" "From:")))
      (setq cc '("Cc:" "To:" "Apparently-To:"))))
    (setq mew-noreplyto-to-list to)
    (setq mew-replyto-to-list to)
    (setq mew-noreplyto-cc-list cc)
    (setq mew-replyto-cc-list cc)
    (set-buffer buf)
    (if cite
	(mew-summary-reply-with-citation)
      (mew-summary-reply))))
(defun my-mew-summary-reply-with-citation (&optional arg)
  (interactive "P")
  (my-mew-summary-reply arg 'cite))
---- 

-- 
Tatsuya Kinoshita