From: teranisi <teranisi>
Date: Wed, 29 Sep 2004 13:52:07 +0000 (+0000)
Subject: * elmo.el (elmo-folder-append-buffer): Fix docstring.
X-Git-Tag: wl-2_12-root~71
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b380b5ecc1978182a21fbe7c3d5c6ebc848b5008;p=elisp%2Fwanderlust.git

* elmo.el (elmo-folder-append-buffer): Fix docstring.
(elmo-folder-append-msgdb): Don't treat `read'.

* elmo-dop.el (elmo-folder-set-read-delayed): Don't treat `read'.
(elmo-folder-unset-read-delayed): Ditto.

* elmo-imap4.el (elmo-imap4-flags-to-imap): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 2ffde2e..c7deacd 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,13 @@
+2004-09-29  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo.el (elmo-folder-append-buffer): Fix docstring.
+	(elmo-folder-append-msgdb): Don't treat `read'.
+
+	* elmo-dop.el (elmo-folder-set-read-delayed): Don't treat `read'.
+	(elmo-folder-unset-read-delayed): Ditto.
+
+	* elmo-imap4.el (elmo-imap4-flags-to-imap): Ditto.
+
 2004-09-26  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* elmo-imap4.el (elmo-folder-delete): Clear current-mailbox after
diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el
index 6565f94..1aa8215 100644
--- a/elmo/elmo-dop.el
+++ b/elmo/elmo-dop.el
@@ -382,10 +382,10 @@ FOLDER is the folder structure."
   (elmo-folder-unset-flag folder numbers 'important))
 
 (defun elmo-folder-set-read-delayed (folder numbers)
-  (elmo-folder-set-flag folder numbers 'read))
+  (elmo-folder-unset-flag folder numbers 'unread))
 
 (defun elmo-folder-unset-read-delayed (folder numbers)
-  (elmo-folder-unset-flag folder numbers 'read))
+  (elmo-folder-set-flag folder numbers 'unread))
 
 (defun elmo-folder-set-answered-delayed (folder numbers)
   (elmo-folder-set-flag folder numbers 'answered))
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 6c60bb4..cd9afec 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2592,7 +2592,7 @@ If optional argument REMOVE is non-nil, remove FLAG."
 (defun elmo-imap4-flags-to-imap (flags)
   "Convert FLAGS to the IMAP flag string."
   (let ((imap-flag (if (not (memq 'unread flags)) "\\Seen"))
-	(flags (delq 'cached (delq 'unread flags)))
+	(flags (delq 'read (delq 'cached (delq 'unread flags))))
 	spec)
     (dolist (flag flags)
       (setq imap-flag (concat imap-flag (if imap-flag " ")
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 10325ae..b30c930 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -381,7 +381,7 @@ FOLDER is the ELMO folder structure.")
 						       number)
   "Append current buffer as a new message.
 FOLDER is the destination folder (ELMO folder structure).
-FLAGS is the status of appended message (list of symbols).
+FLAGS is the flag list for the appended message (list of symbols).
 If it is nil, it is not that there is no flag and what is not defined is meant.
 If optional argument NUMBER is specified, the new message number is set
 \(if possible\).
@@ -1341,11 +1341,11 @@ If Optional LOCAL is non-nil, don't update server flag."
 	       ;; Let duplicates be a temporary killed message.
 	       (elmo-folder-kill-messages folder duplicates)
 	       ;; Should be flag as read.
-	       (elmo-folder-set-flag folder duplicates 'read))
+	       (elmo-folder-unset-flag folder duplicates 'unread))
 	      ((eq (elmo-folder-process-duplicates-internal folder)
 		   'read)
 	       ;; Flag as read duplicates.
-	       (elmo-folder-set-flag folder duplicates 'read))
+	       (elmo-folder-unset-flag folder duplicates 'unread))
 	      (t
 	       ;; Do nothing.
 	       (setq duplicates nil)))