]> git.eshelyaron.com Git - emacs.git/commit
Fix the expunge command so that the current message index is correct.
authorPaul Reilly <pmr@pajato.com>
Wed, 3 Sep 2008 15:33:38 +0000 (15:33 +0000)
committerPaul Reilly <pmr@pajato.com>
Wed, 3 Sep 2008 15:33:38 +0000 (15:33 +0000)
commit73ead349fce932acd50b4cc8af8e333bc81729aa
tree36e749c744de6101e9f57ff3c8dc3bcd07001284
parent15c72e1d4a26582d5d0efa85fc3f0e0e403ea760
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.
lisp/mail/pmail.el
lisp/mail/pmaildesc.el
lisp/mail/pmailout.el