From: okada <okada>
Date: Thu, 24 Jan 2002 18:52:56 +0000 (+0000)
Subject: remove surplus space
X-Git-Tag: wl-2_9_7~35
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fcec8fc2bf9aa367f7ebbdb96282d31c2a2c681e;p=elisp%2Fwanderlust.git

remove surplus space
---

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)