← Back to branch summary

~reddyuday/vm/virtual

« back to all changes in this revision

Viewing changes to lisp/vm-imap.el

  • Committer: Uday S Reddy
  • Date: 2011-11-12 23:26:19 UTC
  • Revision ID: u.s.reddy@cs.bham.ac.uk-20111112232619-wexop79lcotba89s
Added function vm-interactive-p to avoid Emacs24 compiler warnings.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/vm-imap.el
675
675
on all the relevant IMAP servers and then immediately expunges."
676
676
  (interactive)
677
677
  (vm-follow-summary-cursor)
678
 
  (vm-select-folder-buffer-and-validate 0 (interactive-p))
 
678
  (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
679
679
  (vm-error-if-virtual-folder)
680
680
  (let ((process nil)
681
681
        (source nil)
849
849
       (list (vm-read-imap-folder-name 
850
850
              "Prune messages from IMAP folder: " t nil nil)))))
851
851
  (vm-follow-summary-cursor)
852
 
  (vm-select-folder-buffer-and-validate 0 (interactive-p))
 
852
  (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
853
853
  (vm-display nil nil '(vm-prune-imap-retrieved-list) 
854
854
              '(vm-prune-imap-retrieved-list))
855
855
  ;;--------------------------
3656
3656
even if those changes were not made in the current VM session.
3657
3657
This is useful for saving offline work on the cache folder."
3658
3658
  (interactive "P")
3659
 
  (vm-select-folder-buffer-and-validate 0 (interactive-p))
 
3659
  (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
3660
3660
  ;;--------------------------
3661
3661
  (vm-buffer-type:set 'folder)
3662
3662
  ;;--------------------------
4455
4455
  "Begin to compose a bug report for IMAP support functionality."
4456
4456
  (interactive)
4457
4457
  (vm-follow-summary-cursor)
4458
 
  (vm-select-folder-buffer-and-validate 0 (interactive-p))
 
4458
  (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
4459
4459
  (setq vm-kept-imap-buffers nil)
4460
4460
  (setq vm-imap-keep-trace-buffer 20))
4461
4461
 
4466
4466
order to capture the trace of IMAP sessions during the occurrence."
4467
4467
  (interactive)
4468
4468
  (vm-follow-summary-cursor)
4469
 
  (vm-select-folder-buffer-and-validate 0 (interactive-p))
 
4469
  (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
4470
4470
  (if (or vm-imap-keep-trace-buffer
4471
4471
          (y-or-n-p "Did you run vm-imap-start-bug-report earlier? "))
4472
4472
      (vm-inform 5 "Thank you. Preparing the bug report... ")
4504
4504
  be needed if the folder has become corrupted somehow."
4505
4505
  (interactive)
4506
4506
  (save-current-buffer
4507
 
   (vm-select-folder-buffer-and-validate 0 (interactive-p))
 
4507
   (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
4508
4508
   (let ((mp vm-message-list))
4509
4509
     (while mp
4510
4510
       (vm-set-body-to-be-retrieved-of (car mp) nil)
4519
4519
downloaded bodies will be displayed."
4520
4520
  (interactive)
4521
4521
  (save-current-buffer
4522
 
   (vm-select-folder-buffer-and-validate 0 (interactive-p))
 
4522
   (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
4523
4523
   (let ((mp vm-message-list))
4524
4524
     (while mp
4525
4525
       (vm-set-byte-count-of (car mp) nil)