(imap-message-appenduid-1): Fix typo in imap-fetch-safe call.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47ccc0d..bfd7693 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,10 @@
 
        * message.el (message-fix-before-sending): Amend comment.
 
+2009-01-08  Dave Love  <fx@gnu.org>
+
+       * imap.el (imap-message-appenduid-1): Fix typo in imap-fetch-safe call.
+
 2009-01-07  David Engster  <dengste@eml.cc>
 
        * gnus-msg.el (gnus-inews-do-gcc): Fix last patch to deal with

diff --git a/lisp/imap.el b/lisp/imap.el
index 871ea33..12ab488 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -1876,7 +1876,7 @@ first element.  The rest of list contains the saved articles' UIDs."
          (imap-message-data (make-vector 2 0)))
       (when (imap-mailbox-examine-1 mailbox)
        (prog1
-           (and (imap-fetch-safe '("*" "*:*") "UID")
+           (and (imap-fetch-safe '("*" . "*:*") "UID")
                 (list (imap-mailbox-get-1 'uidvalidity mailbox)
                       (apply 'max (imap-message-map
                                    (lambda (uid prop) uid) 'UID))))