Mercurial > emacs
diff lisp/mail/pmailout.el @ 97967:cc9bb337ef7c
Fix the expunge command so that the current message index is correct.
* pmail.el (pmail-expunge-counter): New variable
(pmail-set-attribute): Canonicalize the calling sequence to index, attribute, state.
(pmail-show-message, pmail-delete-message, pmail-undelete-previous-message,
pmail-delete-forward, pmail-mark-message): Use the new canonical calling sequence.
(pmail-only-expunge): Use the expunge counter to update the current message index.
(pmail-expunge-callback): Simplify. Just count the expunged messages with a lower
index than the current message index.
* pmaildesc.el (pmail-desc-get-previous): Fix an "off by one" issue.
(pmail-desc-set-attribute): Canonicalize the calling sequence to index, attribute, state.
* pmailout.el (pmail-output-body-to-file): Use the canonical calling sequence.
author | Paul Reilly <pmr@pajato.com> |
---|---|
date | Wed, 03 Sep 2008 15:33:38 +0000 |
parents | ec1125c7ac26 |
children | 72564311fb7b |
line wrap: on
line diff
--- a/lisp/mail/pmailout.el Wed Sep 03 14:09:49 2008 +0000 +++ b/lisp/mail/pmailout.el Wed Sep 03 15:33:38 2008 +0000 @@ -244,8 +244,7 @@ (error "Operation aborted")) (write-region (point) (point-max) file-name) (when (equal major-mode 'pmail-mode) - (pmail-desc-set-attribute pmail-desc-stored-index - t pmail-current-message))) + (pmail-desc-set-attribute pmail-current-message pmail-desc-stored-index t))) (when pmail-delete-after-output (pmail-delete-forward)))