Mercurial > emacs

comparison lisp/net/imap.el @ 87097:781256628613

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--devo--0 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-941
author Miles Bader <miles@gnu.org>
date Thu, 06 Dec 2007 00:21:00 +0000
parents be7be23ea4b9
children b37f01064ecf
comparison
equal deleted inserted replaced
87096:a99a2e8bc21e 87097:781256628613
1531 or 'unseen. The IMAP command tag is returned." 1531 or 'unseen. The IMAP command tag is returned."
1532 (with-current-buffer (or buffer (current-buffer)) 1532 (with-current-buffer (or buffer (current-buffer))
1533 (imap-send-command (list "STATUS \"" 1533 (imap-send-command (list "STATUS \""
1534 (imap-utf7-encode mailbox) 1534 (imap-utf7-encode mailbox)
1535 "\" " 1535 "\" "
1536 (format "%s" 1536 (upcase
1537 (if (listp items) 1537 (format "%s"
1538 items 1538 (if (listp items)
1539 (list items))))))) 1539 items
1540 (list items))))))))
1540 1541
1541 (defun imap-mailbox-acl-get (&optional mailbox buffer) 1542 (defun imap-mailbox-acl-get (&optional mailbox buffer)
1542 "Get ACL on mailbox from server in BUFFER." 1543 "Get ACL on mailbox from server in BUFFER."
1543 (let ((mailbox (imap-utf7-encode mailbox))) 1544 (let ((mailbox (imap-utf7-encode mailbox)))
1544 (with-current-buffer (or buffer (current-buffer)) 1545 (with-current-buffer (or buffer (current-buffer))
2522 (forward-char)) 2523 (forward-char))
2523 (when (and mailbox (eq (char-after) ?\()) 2524 (when (and mailbox (eq (char-after) ?\())
2524 (while (and (not (eq (char-after) ?\))) 2525 (while (and (not (eq (char-after) ?\)))
2525 (or (forward-char) t) 2526 (or (forward-char) t)
2526 (looking-at "\\([A-Za-z]+\\) ")) 2527 (looking-at "\\([A-Za-z]+\\) "))
2527 (let ((token (match-string 1))) 2528 (let ((token (upcase (match-string 1))))
2528 (goto-char (match-end 0)) 2529 (goto-char (match-end 0))
2529 (cond ((string= token "MESSAGES") 2530 (cond ((string= token "MESSAGES")
2530 (imap-mailbox-put 'messages (read (current-buffer)) mailbox)) 2531 (imap-mailbox-put 'messages (read (current-buffer)) mailbox))
2531 ((string= token "RECENT") 2532 ((string= token "RECENT")
2532 (imap-mailbox-put 'recent (read (current-buffer)) mailbox)) 2533 (imap-mailbox-put 'recent (read (current-buffer)) mailbox))