From 0595712fc5fcb8d7c142b98327a26b1398ba8b3d Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 12 Sep 2002 14:15:58 +0000 Subject: [PATCH] Add description for wl-draft-preview-message. Remove spaces at the end of lines. --- wl/wl-mime.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/wl/wl-mime.el b/wl/wl-mime.el index 7984588..1847b6f 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -69,7 +69,7 @@ By setting following-method as yank-content." (defalias 'wl-draft-enclose-digest-region 'mime-edit-enclose-digest-region) (defun wl-draft-preview-message () - "" + "Preview editing message." (interactive) (let* (recipients-message (config-exec-flag wl-draft-config-exec-flag) @@ -77,7 +77,7 @@ By setting following-method as yank-content." (mime-display-header-hook 'wl-highlight-headers) (mime-header-encode-method-alist (append - '((wl-draft-eword-encode-address-list + '((wl-draft-eword-encode-address-list . (To Cc Bcc Resent-To Resent-Cc Bcc Resent-Bcc))) (if (boundp 'mime-header-encode-method-alist) (symbol-value 'mime-header-encode-method-alist)))) @@ -224,7 +224,7 @@ By setting following-method as yank-content." (setq filename (read-file-name "Please set filename (not directory): " filename))) (if (and (file-exists-p filename) - (not (yes-or-no-p (format "File %s exists. Save anyway? " + (not (yes-or-no-p (format "File %s exists. Save anyway? " filename)))) (message "Not saved") (setq wl-mime-save-directory (file-name-directory filename)) -- 1.7.10.4