Fix typo (falgs => flags).

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 24527ae..33cf690 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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))