projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* wl-summary.el (wl-summary-set-message-buffer-or-redisplay): Call
[elisp/wanderlust.git]
/
wl
/
wl-mime.el
diff --git
a/wl/wl-mime.el
b/wl/wl-mime.el
index
3dcfed6
..
4bc9670
100644
(file)
--- a/
wl/wl-mime.el
+++ b/
wl/wl-mime.el
@@
-74,6
+74,11
@@
By setting following-method as yank-content."
(let* (recipients-message
(config-exec-flag wl-draft-config-exec-flag)
(mime-display-header-hook 'wl-highlight-headers)
(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
mime-view-ignored-field-list ; all header.
(mime-edit-translate-buffer-hook
(append
@@
-169,7
+174,7
@@
By setting following-method as yank-content."
number))))
((and (eq (cdr (assq 'type content-type)) 'message)
(eq (cdr (assq 'subtype content-type)) 'rfc822))
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
(setq entity
(car (mime-entity-children message-entity)))
(with-temp-buffer
@@
-217,7
+222,7
@@
By setting following-method as yank-content."
filename)))
(if (file-exists-p filename)
(or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
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)))
(setq wl-mime-save-directory (file-name-directory filename))
(mime-write-entity-content entity filename)))