← Back to branch summary

~reddyuday/vm/virtual

« back to all changes in this revision

Viewing changes to lisp/vm-virtual.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-virtual.el
325
325
     (nconc (vm-read-virtual-selector "Create virtual folder of messages: ")
326
326
            (list prefix)))))
327
327
 
328
 
  (vm-select-folder-buffer-and-validate 1 (interactive-p))
 
328
  (vm-select-folder-buffer-and-validate 1 (vm-interactive-p))
329
329
  (let ((use-marks (eq last-command 'vm-next-command-uses-marks))
330
330
        (parent-summary-format vm-summary-format)
331
331
        vm-virtual-folder-alist ; shadow the global variable
365
365
      (completing-read "Apply this virtual folder's selectors: "
366
366
                       vm-virtual-folder-alist nil t)
367
367
      current-prefix-arg)))
368
 
  (vm-select-folder-buffer-and-validate 1 (interactive-p))
 
368
  (vm-select-folder-buffer-and-validate 1 (vm-interactive-p))
369
369
  (let ((vfolder (assoc name vm-virtual-folder-alist))
370
370
        (use-marks (eq last-command 'vm-next-command-uses-marks))
371
371
        clauses vm-virtual-folder-alist)
392
392
(defun vm-create-virtual-folder-same-subject ()
393
393
  (interactive)
394
394
  (vm-follow-summary-cursor)
395
 
  (vm-select-folder-buffer-and-validate 1 (interactive-p))
 
395
  (vm-select-folder-buffer-and-validate 1 (vm-interactive-p))
396
396
  (let* ((subject (vm-so-sortable-subject (car vm-message-pointer)))
397
397
         (displayed-subject subject)
398
398
         (bookmark (if (vm-virtual-message-p (car vm-message-pointer))
410
410
(defun vm-create-virtual-folder-same-author ()
411
411
  (interactive)
412
412
  (vm-follow-summary-cursor)
413
 
  (vm-select-folder-buffer-and-validate 1 (interactive-p))
 
413
  (vm-select-folder-buffer-and-validate 1 (vm-interactive-p))
414
414
  (let* ((author (vm-su-from (car vm-message-pointer)))
415
415
         (displayed-author author)
416
416
         (bookmark (if (vm-virtual-message-p (car vm-message-pointer))
426
426
 
427
427
(defun vm-toggle-virtual-mirror ()
428
428
  (interactive)
429
 
  (vm-select-folder-buffer-and-validate 0 (interactive-p))
 
429
  (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
430
430
  (if (not (eq major-mode 'vm-virtual-mode))
431
431
      (error "This is not a virtual folder."))
432
432
  (let ((mp vm-message-list)