← Back to branch summary

~reddyuday/vm/virtual

« back to all changes in this revision

Viewing changes to lisp/vm-ps-print.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-ps-print.el
258
258
for customization of the output."
259
259
  (interactive "p")
260
260
  (vm-follow-summary-cursor)
261
 
  (vm-select-folder-buffer-and-validate 1 (interactive-p))
 
261
  (vm-select-folder-buffer-and-validate 1 (vm-interactive-p))
262
262
  (or count (setq count 1))
263
263
 
264
264
  (let* ((vm-summary-enable-faces nil)
266
266
         (mstart nil)
267
267
         (m nil)
268
268
         (mlist (vm-select-operable-messages
269
 
                 count (interactive-p) "Print"))
 
269
                 count (vm-interactive-p) "Print"))
270
270
         (mcount (length mlist))
271
271
         (tmpbuf (get-buffer-create "*vm-ps-print*")))
272
272
    (vm-retrieve-operable-messages count mlist)
359
359
    (interactive (list (ps-print-preprint current-prefix-arg)))
360
360
    (save-excursion
361
361
      (vm-follow-summary-cursor)
362
 
      (vm-select-folder-buffer-and-validate 1 (interactive-p))
 
362
      (vm-select-folder-buffer-and-validate 1 (vm-interactive-p))
363
363
      
364
364
      (let ((folder-name (vm-ps-print-message-folder-name))
365
365
            (mcount 1)