created and maintained by tokd

(defun wl-ask-tocc ()
  (let ((list-addrs (wl-parse-addresses
		     (wl-concat-list
		      (elmo-multiple-fields-body-list (list "To" "Cc"))
		      ","))))
    (cond ((eq (length list-addrs) 0) nil)
	  ((and (eq (length list-addrs) 1)
		(wl-address-user-mail-address-p (car list-addrs))) nil)
	  (t (if (y-or-n-p "Reply to all?") list-addrs)))))
(setq wl-draft-reply-without-argument-list
      '(("Followup-To" . (("Mail-Followup-To" "Mail-Reply-To" "Reply-To") nil ("Followup-To")))
	("Mail-Followup-To" . (("Mail-Followup-To") nil nil))
	("Newsgroups" . (("Mail-Reply-To" "Reply-To" "To") ("Cc") ("Newsgroups")))
	("Mail-Reply-To" . (("Mail-Reply-To" "Reply-To") wl-ask-tocc nil))
	("Reply-To" . (("Reply-To") wl-ask-tocc nil))
	(wl-draft-self-reply-p . (("To") ("Cc") nil))
	("From" . (("From") wl-ask-tocc nil))))

(require 'lsdb)
(defun lsdb-wl-update-record ()
  (save-excursion
    (set-buffer (wl-message-get-original-buffer))
    (goto-char (point-min))
    (if (search-forward "X-Bogosity: No" nil t)
	(let ((lsdb-temp-buffer-show-function
	       #'lsdb-wl-temp-buffer-show-function))
	  (lsdb-update-records-and-display)))))
(lsdb-wl-insinuate)

(add-hook 'kill-emacs-hook
	  (lambda ()
	    (lsdb-mode-save t)))