← Back to branch summary

~vm/vm/vmpc-prompt

« back to all changes in this revision

Viewing changes to lisp/vm-save.el

  • Committer: Uday S Reddy
  • Date: 2011-06-25 18:11:39 UTC
  • mfrom: (835.1.37 8.2.x)
  • Revision ID: u.s.reddy@cs.bham.ac.uk-20110625181139-oo55o090llr6bkim
Merged 8.2.x branch, revision 873.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/vm-save.el
456
456
      (when m
457
457
        (if folder-buffer
458
458
            (with-current-buffer folder-buffer
459
 
              (if (eq major-mode 'vm-mode)
460
 
                  (progn
461
 
                    (vm-check-for-killed-summary)
462
 
                    (vm-assimilate-new-messages)
463
 
                    (if (null vm-message-pointer)
464
 
                        (progn (setq vm-message-pointer vm-message-list
465
 
                                     vm-need-summary-pointer-update t)
466
 
                               (intern (buffer-name)
467
 
                                       vm-buffers-needing-display-update)
468
 
                               (vm-present-current-message))
469
 
                      (vm-update-summary-and-mode-line))))
 
459
              (when (eq major-mode 'vm-mode)
 
460
                (vm-check-for-killed-summary)
 
461
                (vm-assimilate-new-messages)
 
462
                (if (null vm-message-pointer)
 
463
                    (progn (setq vm-message-pointer vm-message-list
 
464
                                 vm-need-summary-pointer-update t)
 
465
                           (intern (buffer-name)
 
466
                                   vm-buffers-needing-display-update)
 
467
                           (vm-present-current-message))
 
468
                  (vm-update-summary-and-mode-line)))
470
469
              (unless quiet
471
470
                (vm-inform 7 "%d message%s saved to buffer %s"
472
471
                           save-count
1005
1004
              (if (null process)
1006
1005
                  (error "Could not connect to the IMAP server"))
1007
1006
              (vm-imap-save-message process m mailbox))
1008
 
            (vm-run-message-hook-with-args m 'vm-save-message-hook folder)
 
1007
            (vm-run-hook-on-message-with-args 'vm-save-message-hook m folder)
1009
1008
            (unless (vm-filed-flag m)
1010
1009
              (vm-set-filed-flag m t))
1011
1010
            ;; we set the deleted flag so that the user is not