Mercurial > emacs
comparison lisp/gnus/nnimap.el @ 96024:be43dd7afc91
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1244
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 17 Jun 2008 02:32:59 +0000 |
| parents | 645fb33380d6 |
| children | a30459da1bd7 |
comparison
equal
deleted
inserted
replaced
| 96023:936483adbab6 | 96024:be43dd7afc91 |
|---|---|
| 1606 (cons group (nth 1 uid)) | 1606 (cons group (nth 1 uid)) |
| 1607 (nnheader-report 'nnimap (imap-error-text nnimap-server-buffer)))))) | 1607 (nnheader-report 'nnimap (imap-error-text nnimap-server-buffer)))))) |
| 1608 | 1608 |
| 1609 (deffoo nnimap-request-delete-group (group force &optional server) | 1609 (deffoo nnimap-request-delete-group (group force &optional server) |
| 1610 (when (nnimap-possibly-change-server server) | 1610 (when (nnimap-possibly-change-server server) |
| 1611 (when (string= group (imap-current-mailbox nnimap-server-buffer)) | |
| 1612 (imap-mailbox-unselect nnimap-server-buffer)) | |
| 1611 (with-current-buffer nnimap-server-buffer | 1613 (with-current-buffer nnimap-server-buffer |
| 1612 (if force | 1614 (if force |
| 1613 (or (null (imap-mailbox-status group 'uidvalidity)) | 1615 (or (null (imap-mailbox-status group 'uidvalidity)) |
| 1614 (imap-mailbox-delete group)) | 1616 (imap-mailbox-delete group)) |
| 1615 ;; UNSUBSCRIBE? | 1617 ;; UNSUBSCRIBE? |