From fcec8fc2bf9aa367f7ebbdb96282d31c2a2c681e Mon Sep 17 00:00:00 2001 From: okada Date: Thu, 24 Jan 2002 18:52:56 +0000 Subject: [PATCH] remove surplus space --- wl/wl-draft.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 7852e1e..347f514 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1684,7 +1684,7 @@ Derived from `message-save-drafts' in T-gnus." (setq file-name (elmo-message-file-name draft-folder number)) (unless (file-exists-p file-name) (error "File %s does not exist" file-name)) - (if (setq buffer (get-buffer + (if (setq buffer (get-buffer (concat wl-draft-folder "/" (number-to-string number)))) (progn @@ -1714,8 +1714,8 @@ Derived from `message-save-drafts' in T-gnus." ;; Don't care about supersession. (make-local-variable 'truncate-partial-width-windows) (setq truncate-partial-width-windows nil) - (setq truncate-lines wl-draft-truncate-lines) - (setq buffer-file-name nil) + (setq truncate-lines wl-draft-truncate-lines) + (setq buffer-file-name nil) (setq wl-sent-message-via nil) (setq wl-sent-message-queued nil) (setq wl-draft-buffer-file-name file-name) -- 1.7.10.4