[Emacs-commit] emacs/lisp/mail pmail.el pmaildesc.el pmailout.el

[Paul Michael Reilly]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Paul Michael Reilly <pmr>       08/09/03 15:33:38

Modified files:
        lisp/mail      : pmail.el pmaildesc.el pmailout.el 

Log message:
        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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmail.el?cvsroot=emacs&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmaildesc.el?cvsroot=emacs&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmailout.el?cvsroot=emacs&r1=1.3&r2=1.4