From f84adcfe54f0cd83aad75f770d364f66f7c01dc7 Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Tue, 14 Sep 2004 06:21:07 +0000
Subject: [PATCH] Removed trailing whitespaces.

---
 wl/wl-action.el    |    4 ++--
 wl/wl-address.el   |    2 +-
 wl/wl-draft.el     |    2 +-
 wl/wl-expire.el    |    2 +-
 wl/wl-fldmgr.el    |    4 ++--
 wl/wl-highlight.el |    2 +-
 wl/wl-mime.el      |    2 +-
 wl/wl-thread.el    |    4 ++--
 8 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/wl/wl-action.el b/wl/wl-action.el
index 5a21d1c..31c6f4c 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -512,7 +512,7 @@ Return number if put mark succeed"
 	      ;; update buffer.
 	      (wl-summary-delete-copy-marks-on-buffer (cdr (car dst-msgs)))
 	      (setq wl-summary-buffer-temp-mark-list
-		    (wl-delete-associations 
+		    (wl-delete-associations
 		     (cdr (car dst-msgs))
 		     wl-summary-buffer-temp-mark-list)))
 	  (setq failures
@@ -660,7 +660,7 @@ Return number if put mark succeed"
   (let ((failures 0)
 	collected pair action modified)
     (dolist (action wl-summary-mark-action-list)
-      (setq collected (cons (cons 
+      (setq collected (cons (cons
 			     (wl-summary-action-mark action)
 			     nil) collected)))
     (dolist (mark-info wl-summary-buffer-temp-mark-list)
diff --git a/wl/wl-address.el b/wl/wl-address.el
index 439b737..8029568 100644
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -37,7 +37,7 @@
 (require 'wl-vars)
 (require 'std11)
 
-(defvar wl-address-complete-header-list 
+(defvar wl-address-complete-header-list
   '("To:" "From:" "Cc:" "Bcc:" "Mail-Followup-To:" "Reply-To:"
     "Return-Receipt-To:"))
 (defvar wl-address-complete-header-regexp nil) ; auto-generated.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index cbd36f1..0515122 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1170,7 +1170,7 @@ If FORCE-MSGID, insert message-id regardless of `wl-insert-message-id'."
 		  (re-search-forward "\n[ \t]*\n\n*" nil t))
       (replace-match "\n"))
     (goto-char (point-min))
-    (while (re-search-forward 
+    (while (re-search-forward
 	    "^[^ \t\n:]+:[ \t]*\\(.*\\(\n[ \t].*\\)*\\)\n"
 	    nil t)
       (when (string= "" (match-string 1))
diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index bf32cf1..b705c38 100644
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -198,7 +198,7 @@ If REFILE-LIST includes reserve mark message, so copy."
 		;; reserve mark message already refiled or expired
 		(setq refile-list (delq msg refile-list))
 	      ;; reserve mark message not refiled
-	      (wl-append wl-expired-alist (list 
+	      (wl-append wl-expired-alist (list
 					   (cons msg-id
 						 (elmo-folder-name-internal
 						  dst-folder))))
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index f457aac..77f8c6e 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -243,7 +243,7 @@ return value is diffs '(-new -unread -all)."
 
 ;; (defun wl-fldmgr-get-previous-entity (entity key-id)
 ;;   (cdr (wl-fldmgr-get-previous-entity-internal '(nil . nil) entity key-id)))
-;; 
+;;
 ;; (defun wl-fldmgr-get-previous-entity-internal (result entity key-id)
 ;;   (cond
 ;;    ((stringp entity)
@@ -766,7 +766,7 @@ return value is diffs '(-new -unread -all)."
 		   (throw 'found (symbol-value atom)))))
 	    wl-fldmgr-add-completion-hashtb)))
 	(pattern
-	 (if (string-match "\\.$" 
+	 (if (string-match "\\.$"
 			   (elmo-folder-prefix-internal
 			    (wl-folder-get-elmo-folder string)))
 	     (substring string 0 (match-beginning 0))
diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index da9c23c..7a58149 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -325,7 +325,7 @@
   :group 'wl-summary-faces
   :group 'wl-faces)
 
-;; answered 
+;; answered
 (wl-defface wl-highlight-summary-answered-face
   '((((type tty)
       (background dark))
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 5dd9480..78cb6fa 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -658,7 +658,7 @@ With ARG, ask destination folder."
     (mime-decrypt-application/pgp-encrypted entity situation)
     (setq wl-message-buffer-cur-summary-buffer summary-buffer)
     (setq wl-message-buffer-original-buffer original-buffer)))
-   
+
 
 ;;; Setup methods.
 (defun wl-mime-setup ()
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 6555283..2b72c67 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -515,7 +515,7 @@ ENTITY is returned."
     (let ((entity (wl-thread-get-entity msg))
 	  top-child top-entity update-msgs invisible-top)
       (setq wl-summary-buffer-number-list
-	    (delq msg wl-summary-buffer-number-list))	      
+	    (delq msg wl-summary-buffer-number-list))
       (when entity
 	(let ((parent (wl-thread-entity-get-parent-entity entity)))
 	  (if parent
@@ -1073,7 +1073,7 @@ Message is inserted to the summary buffer."
       (incf depth)
       (setq entity (wl-thread-get-entity number)))
     depth))
-  
+
 (defun wl-thread-update-indent-string-region (beg end)
   (interactive "r")
   (save-excursion
-- 
1.7.10.4