Removed trailing whitespaces.
authorkaoru <kaoru>
Tue, 14 Sep 2004 06:21:07 +0000 (06:21 +0000)
committerkaoru <kaoru>
Tue, 14 Sep 2004 06:21:07 +0000 (06:21 +0000)
wl/wl-action.el
wl/wl-address.el
wl/wl-draft.el
wl/wl-expire.el
wl/wl-fldmgr.el
wl/wl-highlight.el
wl/wl-mime.el
wl/wl-thread.el

index 5a21d1c..31c6f4c 100644 (file)
@@ -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)
index 439b737..8029568 100644 (file)
@@ -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.
index cbd36f1..0515122 100644 (file)
@@ -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))
index bf32cf1..b705c38 100644 (file)
@@ -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))))
index f457aac..77f8c6e 100644 (file)
@@ -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))
index da9c23c..7a58149 100644 (file)
   :group 'wl-summary-faces
   :group 'wl-faces)
 
-;; answered 
+;; answered
 (wl-defface wl-highlight-summary-answered-face
   '((((type tty)
       (background dark))
index 5dd9480..78cb6fa 100644 (file)
@@ -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 ()
index 6555283..2b72c67 100644 (file)
@@ -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