From 208752ff0259c0c62d6c17237e13a03b9961d877 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Tue, 4 Sep 2001 17:29:43 +0000 Subject: [PATCH] Sigh, fix another typo in last commit: 2001-09-04 Simon Josefsson * imap.el (imap-search): Don't error if server is broken. --- lisp/imap.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/imap.el b/lisp/imap.el index c76f3a46f..dce291f0b 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -1422,7 +1422,9 @@ is non-nil return theese properties." (imap-mailbox-put 'search 'dummy) (when (imap-ok-p (imap-send-command-wait (concat "UID SEARCH " predicate))) (if (eq (imap-mailbox-get-1 'search imap-current-mailbox) 'dummy) - (message "Missing SEARCH response to a SEARCH command (server not RFC compliant)...") + (progn + (message "Missing SEARCH response to a SEARCH command (server not RFC compliant)...") + nil) (imap-mailbox-get-1 'search imap-current-mailbox))))) (defun imap-message-flag-permanent-p (flag &optional mailbox buffer) -- 2.25.1