From: okazaki <okazaki>
Date: Thu, 31 Aug 2000 07:02:35 +0000 (+0000)
Subject: Trim trailing whitespaces.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b05da51e08485667c01ee47c7d06d0500bf4d50d;p=elisp%2Fwanderlust.git

Trim trailing whitespaces.
---

diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el
index a1b7cdb..2d14a9e 100644
--- a/utils/bbdb-wl.el
+++ b/utils/bbdb-wl.el
@@ -61,8 +61,8 @@
 (defun bbdb-wl-show-bbdb-buffer ()
   (save-selected-window
     (if (get-buffer-window bbdb-buffer-name)
-	nil  
-      (let ((mes-win (get-buffer-window 
+	nil
+      (let ((mes-win (get-buffer-window
 		      (save-excursion
 			(if (buffer-live-p  wl-current-summary-buffer)
 			    (set-buffer wl-current-summary-buffer))
@@ -75,7 +75,7 @@
 			window-min-height 1)
 		     (- (window-height mes-win)
 			(max window-min-height
-			     (1+ bbdb-pop-up-target-lines))))))    
+			     (1+ bbdb-pop-up-target-lines))))))
 	  (split-window mes-win (if (> size 0) size window-min-height)))
 	;; goto the bottom of the two...
 	(select-window (next-window))
@@ -88,7 +88,7 @@
   (let ((hit (bbdb-search-simple nil (wl-address-header-extract-address
 				      string)))
 	first-name last-name from-str)
-    (if hit 
+    (if hit
 	(progn
 	  (setq first-name (aref hit 0))
 	  (setq last-name (aref hit 1))
@@ -103,16 +103,16 @@
       string)))
 
 (defun bbdb-wl-update-record (&optional offer-to-create)
-  "Returns the record corresponding to the current WL message, 
-creating or modifying it as necessary.  A record will be created if 
+  "Returns the record corresponding to the current WL message,
+creating or modifying it as necessary.  A record will be created if
 bbdb/mail-auto-create-p is non-nil, or if OFFER-TO-CREATE is true and
 the user confirms the creation."
   (save-excursion
     (if bbdb-use-pop-up
 	(bbdb-wl-pop-up-bbdb-buffer offer-to-create)
-      (let ((key 
+      (let ((key
 	     (save-excursion
-	       (set-buffer 
+	       (set-buffer
 		(save-excursion
 		  (if (buffer-live-p wl-current-summary-buffer)
 		      (set-buffer wl-current-summary-buffer))
@@ -149,7 +149,7 @@ the user confirms the creation."
 			 offer-to-create))))))))))
 
 (defun bbdb-wl-annotate-sender (string)
-  "Add a line to the end of the Notes field of the BBDB record 
+  "Add a line to the end of the Notes field of the BBDB record
 corresponding to the sender of this message."
   (interactive (list (if bbdb-readonly-p
 			 (error "The Insidious Big Brother Database is read-only.")
@@ -191,8 +191,8 @@ This buffer will be in bbdb-mode, with associated keybindings."
   "Make the *BBDB* buffer be displayed along with the WL window(s),
 displaying the record corresponding to the sender of the current message."
   (if (get-buffer-window bbdb-buffer-name)
-      nil  
-    (let ((mes-win (get-buffer-window 
+      nil
+    (let ((mes-win (get-buffer-window
 		    (save-excursion
 		      (if (buffer-live-p  wl-current-summary-buffer)
 			  (set-buffer wl-current-summary-buffer))
@@ -206,7 +206,7 @@ displaying the record corresponding to the sender of the current message."
 		      window-min-height 1)
 		   (- (window-height mes-win)
 		      (max window-min-height
-			   (1+ bbdb-pop-up-target-lines))))))    
+			   (1+ bbdb-pop-up-target-lines))))))
 	(split-window mes-win (if (> size 0) size window-min-height)))
       ;; goto the bottom of the two...
       (select-window (next-window))
@@ -242,7 +242,7 @@ displaying the record corresponding to the sender of the current message."
       (or (fboundp 'bbdb-header-start)
           (load "bbdb-hooks"))
       (fset 'bbdb-extract-field-value-internal
-	    (cond 
+	    (cond
 	     ((fboundp 'tm:bbdb-extract-field-value)
 	      (symbol-function 'tm:bbdb-extract-field-value))
 	     (t (symbol-function 'bbdb-extract-field-value))))
diff --git a/utils/im-wl.el b/utils/im-wl.el
index 947646c..053bcb0 100644
--- a/utils/im-wl.el
+++ b/utils/im-wl.el
@@ -116,7 +116,7 @@ This is most commonly `imput(impost)' or `inews-nifty4u'.")
 	(while (and (re-search-forward "\n\n\n*" delimline t)
 		    (< (point) delimline))
 	  (replace-match "\n"))
-	;; Find and handle any FCC fields. 
+	;; Find and handle any FCC fields.
 	;; 'cause imput can NOT handle `Fcc: %IMAP'.
 	(goto-char (point-min))
 	(if (re-search-forward "^FCC:" delimline t)
diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el
index 84372a9..22df1cf 100644
--- a/utils/ptexinfmt.el
+++ b/utils/ptexinfmt.el
@@ -1,6 +1,6 @@
 ;;; ptexinfmt.el -- portable Texinfo formatter.
 
-;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, 
+;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993,
 ;;               1994, 1995, 1996, 1997 Free Software Foundation, Inc.
 ;; Copyright (C) 1999 Yoshiki Hayashi <yoshiki@xemacs.org>
 ;; Copyright (C) 2000 TAKAHASHI Kaoru <kaoru@kaisei.org>
@@ -415,7 +415,7 @@ Insert ` ... ' around URL if no URL-TITLE argument;
 otherwise, insert URL-TITLE followed by URL in parentheses."
   (let ((args (texinfo-format-parse-args)))
     (texinfo-discard-command)
-    ;; if url-title 
+    ;; if url-title
     (if (nth 1 args)
         (insert  (nth 1 args) " (" (nth 0 args) ")")
       (insert "`" (nth 0 args) "'"))))
@@ -512,7 +512,7 @@ otherwise, insert URL-TITLE followed by URL in parentheses."
     ;;  @multitable {Column 1 template} {Column 2} {Column 3 example}
     ;; Place point before first argument
     (skip-chars-forward " \t")
-    (cond 
+    (cond
      ;; Check for common misspelling
      ((looking-at "@columnfraction ")
       (error "In @multitable, @columnfractions misspelled"))