(let* (recipients-message
(config-exec-flag wl-draft-config-exec-flag)
(mime-display-header-hook 'wl-highlight-headers)
+ (mime-header-encode-method-alist
+ (append
+ '((wl-draft-eword-encode-address-list
+ . (To Cc Bcc Resent-To Resent-Cc Bcc Resent-Bcc)))
+ mime-header-encode-method-alist))
mime-view-ignored-field-list ; all header.
(mime-edit-translate-buffer-hook
(append
number))))
((and (eq (cdr (assq 'type content-type)) 'message)
(eq (cdr (assq 'subtype content-type)) 'rfc822))
- (message (format "Bursting...%s" (setq number (+ 1 number))))
+ (message "Bursting...%s" (setq number (+ 1 number)))
(setq entity
(car (mime-entity-children message-entity)))
(with-temp-buffer
filename)))
(if (file-exists-p filename)
(or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
- (error "Not saved")))
+ (message "Not saved")))
(setq wl-mime-save-directory (file-name-directory filename))
(mime-write-entity-content entity filename)))