← Back to branch summary

~reddyuday/vm/virtual

« back to all changes in this revision

Viewing changes to lisp/vm-edit.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-edit.el
50
50
replace the original, use C-c C-] and the edit will be aborted."
51
51
  (interactive "P")
52
52
  (vm-follow-summary-cursor)
53
 
  (vm-select-folder-buffer-and-validate 1 (interactive-p))
 
53
  (vm-select-folder-buffer-and-validate 1 (vm-interactive-p))
54
54
  (vm-error-if-folder-read-only)
55
55
  (if (and (vm-virtual-message-p (car vm-message-pointer))
56
56
           (null (vm-virtual-messages-of (car vm-message-pointer))))
153
153
  (interactive "p")
154
154
  (or count (setq count 1))
155
155
  (vm-follow-summary-cursor)
156
 
  (vm-select-folder-buffer-and-validate 1 (interactive-p))
 
156
  (vm-select-folder-buffer-and-validate 1 (vm-interactive-p))
157
157
  (let ((mlist (vm-select-operable-messages
158
 
                count (interactive-p) "Discard data of")))
159
 
    (vm-discard-cached-data-internal mlist (interactive-p) ))
 
158
                count (vm-interactive-p) "Discard data of")))
 
159
    (vm-discard-cached-data-internal mlist (vm-interactive-p) ))
160
160
  (vm-display nil nil '(vm-discard-cached-data) '(vm-discard-cached-data))
161
161
  (vm-update-summary-and-mode-line))
162
162