From fec7eb7ccc897be11c012e2f1a866dfec8e2dc09 Mon Sep 17 00:00:00 2001
From: hmurata <hmurata>
Date: Sun, 18 Apr 2004 12:26:05 +0000
Subject: [PATCH] Fix typo (falgs => flags).

---
 elmo/ChangeLog        |    6 +++---
 elmo/elmo-archive.el  |    2 +-
 elmo/elmo-cache.el    |    2 +-
 elmo/elmo-imap4.el    |    2 +-
 elmo/elmo-localdir.el |    2 +-
 elmo/elmo-maildir.el  |    2 +-
 elmo/elmo.el          |    2 +-
 7 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 24527ae..33cf690 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -3,20 +3,20 @@
 	* elmo.el (elmo-folder): Add new slot `flag-table'.
 	(elmo-folder-flag-table): New API.
 	(elmo-folder-close-flag-table): Ditto.
-	(elmo-folder-preserve-falgs): New function.
+	(elmo-folder-preserve-flags): New function.
 	(elmo-generic-folder-append-messages): Use
 	`elmo-folder-flag-table' and `elmo-folder-close-flag-table'.
 	Flag of a non-registered message, it sets to nil.
 	Does not set flag to flag-table.
 
 	* elmo-maildir.el (elmo-folder-append-buffer): Use
-	`elmo-folder-preserve-falgs'.
+	`elmo-folder-preserve-flags'.
 	(elmo-folder-append-messages): Use `elmo-folder-flag-table' and
 	`elmo-folder-close-flag-table'.
 
 	* elmo-archive.el (elmo-folder-append-buffer): Fix interface.
 	(elmo-archive-folder-append-buffer): Use
-	`elmo-folder-preserve-falgs'.
+	`elmo-folder-preserve-flags'.
 
 	* elmo-cache.el (elmo-folder-append-buffer): Ditto.
 
diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index 2156f3f..1b908d2 100644
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -617,7 +617,7 @@ TYPE specifies the archiver's symbol."
 		 (as-binary-output-file
 		  (write-region (point-min) (point-max) newfile nil 'no-msg))
 		 (elmo-archive-call-method method (list arc newfile))
-		 (elmo-folder-preserve-falgs
+		 (elmo-folder-preserve-flags
 		  folder
 		  (with-current-buffer src-buffer
 		    (elmo-msgdb-get-message-id-from-buffer))
diff --git a/elmo/elmo-cache.el b/elmo/elmo-cache.el
index aeaf6d0..01df925 100644
--- a/elmo/elmo-cache.el
+++ b/elmo/elmo-cache.el
@@ -127,7 +127,7 @@
 		   (not (file-exists-p file)))
 	  (write-region-as-binary
 	   (point-min) (point-max) file nil 'no-msg)
-	  (elmo-folder-preserve-falgs folder msgid flags)
+	  (elmo-folder-preserve-flags folder msgid flags)
 	  t)))))
 
 (luna-define-method elmo-map-folder-delete-messages ((folder elmo-cache-folder)
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 93c520c..e1b7e39 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2596,7 +2596,7 @@ If optional argument REMOVE is non-nil, remove FLAG."
 		    (elmo-imap4-buffer-literal send-buffer))))
 	  (kill-buffer send-buffer))
 	(when result
-	  (elmo-folder-preserve-falgs
+	  (elmo-folder-preserve-flags
 	   folder (elmo-msgdb-get-message-id-from-buffer) flags))
 	result)
     ;; Unplugged
diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 1077733..4ddf9ec 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -206,7 +206,7 @@
 	       (not (file-exists-p filename)))
       (write-region-as-binary
        (point-min) (point-max) filename nil 'no-msg)
-      (elmo-folder-preserve-falgs
+      (elmo-folder-preserve-flags
        folder (elmo-msgdb-get-message-id-from-buffer) flags)
       t)))
 
diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 0c73c9e..6372aed 100644
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -411,7 +411,7 @@ file name for maildir directories."
 	   (expand-file-name
 	    (concat "new/" (file-name-nondirectory filename))
 	    basedir))
-	  (elmo-folder-preserve-falgs
+	  (elmo-folder-preserve-flags
 	   folder (elmo-msgdb-get-message-id-from-buffer) flags)
 	  t)
       ;; If an error occured, return nil.
diff --git a/elmo/elmo.el b/elmo/elmo.el
index c56eddd..3d01020 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -851,7 +851,7 @@ If optional argument IF-EXISTS is nil, load on demand.
 			(elmo-folder-flag-table folder))
   (elmo-folder-set-flag-table-internal folder nil))
 
-(defun elmo-folder-preserve-falgs (folder msgid flags)
+(defun elmo-folder-preserve-flags (folder msgid flags)
   "Preserve FLAGS into FOLDER for a message that has MSGID."
   (when (and msgid flags)
     (let ((flag-table (elmo-folder-flag-table folder 'if-exists))
-- 
1.7.10.4