Mercurial > emacs
comparison lisp/gnus/nnimap.el @ 110479:437c7aaf08fd
nnimap.el (nnimap-delete-article): Tell user if expunge won't happen.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 22 Sep 2010 13:34:37 +0000 |
| parents | b7b7e970d807 |
| children | 1ad1adb298a3 |
comparison
equal
deleted
inserted
replaced
| 110478:1167c781dfa2 | 110479:437c7aaf08fd |
|---|---|
| 578 (nnimap-command "UID EXPUNGE %s" | 578 (nnimap-command "UID EXPUNGE %s" |
| 579 (nnimap-article-ranges articles)) | 579 (nnimap-article-ranges articles)) |
| 580 t) | 580 t) |
| 581 (nnimap-expunge | 581 (nnimap-expunge |
| 582 (nnimap-command "EXPUNGE") | 582 (nnimap-command "EXPUNGE") |
| 583 t)))) | 583 t) |
| 584 (t (gnus-message 7 (concat "nnimap: nnimap-expunge is not set and the " | |
| 585 "server doesn't support UIDPLUS, so we won't " | |
| 586 "delete this article now")))))) | |
| 584 | 587 |
| 585 (deffoo nnimap-request-scan (&optional group server) | 588 (deffoo nnimap-request-scan (&optional group server) |
| 586 (when (and (nnimap-possibly-change-group nil server) | 589 (when (and (nnimap-possibly-change-group nil server) |
| 587 (equal group nnimap-inbox) | 590 (equal group nnimap-inbox) |
| 588 nnimap-inbox | 591 nnimap-inbox |