From 09e868c904b318f7fbfc6b011ec98e31d3d7de0c Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Thu, 8 Jan 2009 20:51:29 +0000 Subject: [PATCH] (imap-message-appenduid-1): Fix typo in imap-fetch-safe call. --- lisp/ChangeLog | 4 ++++ lisp/imap.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 47ccc0dbb..bfd769354 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,6 +5,10 @@ * message.el (message-fix-before-sending): Amend comment. +2009-01-08 Dave Love + + * imap.el (imap-message-appenduid-1): Fix typo in imap-fetch-safe call. + 2009-01-07 David Engster * gnus-msg.el (gnus-inews-do-gcc): Fix last patch to deal with diff --git a/lisp/imap.el b/lisp/imap.el index 871ea334b..12ab4887e 100644 --- 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)))) -- 2.25.1