;;; wl-mime.el -- tm implementations of MIME processing on Wanderlust.
-;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;; Author: Yuuichi Teranishi <teranisi@gohome.org>
;; Keywords: mail, net news
(defun wl-draft-preview-message ()
(interactive)
- (let ((mime-viewer/content-header-filter-hook 'wl-highlight-headers)
- (mime-viewer/ignored-field-regexp "^:$")
- (mime-editor/translate-buffer-hook
- (append
- (list 'wl-draft-config-exec)
- mime-editor/translate-buffer-hook)))
+ (let* (recipients-message
+ (config-exec-flag wl-draft-config-exec-flag)
+ (mime-viewer/content-header-filter-hook 'wl-highlight-headers)
+ (mime-viewer/ignored-field-regexp "^:$")
+ (mime-editor/translate-buffer-hook
+ (append
+ (list
+ (function
+ (lambda ()
+ (let ((wl-draft-config-exec-flag config-exec-flag))
+ (run-hooks 'wl-draft-send-hook)
+ (setq recipients-message
+ (concat "Recipients: "
+ (mapconcat
+ 'identity
+ (wl-draft-deduce-address-list
+ (current-buffer)
+ (point-min)
+ (save-excursion
+ (goto-char (point-min))
+ (re-search-forward
+ (concat "^"
+ (regexp-quote mail-header-separator)
+ "$")
+ nil t)
+ (point)))
+ ", ")))))))
+ mime-editor/translate-buffer-hook)))
(mime-editor/preview-message)
(let ((buffer-read-only nil))
- (let ((buffer-read-only nil))
(when wl-highlight-body-too
(wl-highlight-body))
- (run-hooks 'wl-draft-preview-message-hook)))))
+ (run-hooks 'wl-draft-preview-message-hook))
+ (message recipients-message)))
(defmacro wl-draft-caesar-region (beg end)
(` (tm:caesar-region)))
(setq root-dir (concat root-dir "/" (replace-as-filename id)))
(setq full-file (concat root-dir "/FULL"))
(if (null target)
- (error "%s is not supported. Sorry." target))
+ (error "%s is not supported" target))
(if (or (file-exists-p full-file)
(not (y-or-n-p "Merge partials?")))
(mime-article/decode-message/partial beg end cal)
mime-viewer/code-converter-alist))
(defvar-maybe mime::preview/mother-buffer nil))
-(provide 'tm-wl)
+(require 'product)
+(product-provide (provide 'tm-wl) (require 'wl-version))
;;; tm-wl.el ends here