Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
97966:52f84cb577bb | 97967:cc9bb337ef7c |
---|---|
242 (and (file-exists-p file-name) | 242 (and (file-exists-p file-name) |
243 (not (y-or-n-p (message "File %s exists; overwrite? " file-name))) | 243 (not (y-or-n-p (message "File %s exists; overwrite? " file-name))) |
244 (error "Operation aborted")) | 244 (error "Operation aborted")) |
245 (write-region (point) (point-max) file-name) | 245 (write-region (point) (point-max) file-name) |
246 (when (equal major-mode 'pmail-mode) | 246 (when (equal major-mode 'pmail-mode) |
247 (pmail-desc-set-attribute pmail-desc-stored-index | 247 (pmail-desc-set-attribute pmail-current-message pmail-desc-stored-index t))) |
248 t pmail-current-message))) | |
249 (when pmail-delete-after-output | 248 (when pmail-delete-after-output |
250 (pmail-delete-forward))) | 249 (pmail-delete-forward))) |
251 | 250 |
252 ;; arch-tag: 4059abf0-f249-4be4-8e0d-602d370d01d1 | 251 ;; arch-tag: 4059abf0-f249-4be4-8e0d-602d370d01d1 |
253 ;;; pmailout.el ends here | 252 ;;; pmailout.el ends here |