← Back to branch summary

~reddyuday/vm/virtual

« back to all changes in this revision

Viewing changes to lisp/vm-summary.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-summary.el
152
152
one line per message is most pleasing to the eye but this is not
153
153
mandatory."
154
154
  (interactive "p\np")
155
 
  (vm-select-folder-buffer-and-validate 0 (interactive-p))
 
155
  (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
156
156
  (if (null vm-summary-buffer)
157
157
      (let ((b (current-buffer))
158
158
            (read-only vm-folder-read-only)
315
315
  (interactive)
316
316
  (unless vm-summary-enable-thread-folding 
317
317
    (error "Thread folding not enabled"))
318
 
  (when (interactive-p)
319
 
    (vm-select-folder-buffer-and-validate 1 (interactive-p))
 
318
  (when (vm-interactive-p)
 
319
    (vm-select-folder-buffer-and-validate 1 (vm-interactive-p))
320
320
    (unless vm-summary-show-threads
321
321
      (error "Summary is not sorted by threads"))
322
322
    (vm-follow-summary-cursor)
332
332
         (put-text-property 
333
333
          (vm-su-start-of m) (vm-su-end-of m) 'invisible nil))
334
334
       (vm-thread-subtree (vm-thread-symbol root)))
335
 
      (when (interactive-p)
 
335
      (when (vm-interactive-p)
336
336
        (vm-update-summary-and-mode-line)))))
337
337
 
338
338
(defun vm-collapse-thread (&optional nomove root)
348
348
  (interactive "P")
349
349
  (unless vm-summary-enable-thread-folding 
350
350
    (error "Thread folding not enabled"))
351
 
  (when (interactive-p)
352
 
    (vm-select-folder-buffer-and-validate 1 (interactive-p))
 
351
  (when (vm-interactive-p)
 
352
    (vm-select-folder-buffer-and-validate 1 (vm-interactive-p))
353
353
    (unless vm-summary-show-threads
354
354
      (error "Summary is not sorted by threads"))
355
355
    (vm-follow-summary-cursor)
371
371
      ;; move to the parent thread only when not
372
372
      ;; instructed not to, AND when the currently
373
373
      ;; selected message will become invisible
374
 
      (when (interactive-p)
 
374
      (when (vm-interactive-p)
375
375
        (unless nomove
376
376
          (when (get-text-property (+ (vm-su-start-of msg) 3) 'invisible)
377
377
            (goto-char (vm-su-start-of root))))
381
381
  "Expand all threads in the folder, which might have been collapsed
382
382
 (folded) earlier."
383
383
  (interactive)
384
 
  (vm-select-folder-buffer-and-validate 0 (interactive-p))
385
 
  (if (interactive-p)
 
384
  (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
 
385
  (if (vm-interactive-p)
386
386
      (vm-follow-summary-cursor))
387
387
  (unless vm-summary-show-threads
388
388
    (error "Summary is not sorted by threads"))
395
395
                  (vm-expand-thread m)))
396
396
              ml))))
397
397
  (setq vm-summary-threads-collapsed nil)
398
 
  (when (interactive-p)
 
398
  (when (vm-interactive-p)
399
399
    (vm-update-summary-and-mode-line)))
400
400
 
401
401
(defun vm-collapse-all-threads ()
402
402
  "Collapse (fold) all threads in the folder so that only the roots of
403
403
the threads are shown in the Summary window."
404
404
  (interactive)
405
 
  (vm-select-folder-buffer-and-validate 0 (interactive-p))
406
 
  (if (interactive-p)
 
405
  (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
 
406
  (if (vm-interactive-p)
407
407
      (vm-follow-summary-cursor))
408
408
  (unless vm-summary-show-threads
409
409
    (error "Summary is not sorted by threads"))
418
418
                           (> (vm-thread-count m) 1))
419
419
                  (vm-collapse-thread t m)))
420
420
              ml))
421
 
      (when (interactive-p)
 
421
      (when (vm-interactive-p)
422
422
        (when (get-text-property (+ (vm-su-start-of msg) 3) 'invisible)
423
423
          (goto-char (vm-su-start-of root))))))
424
424
  (setq vm-summary-threads-collapsed t)
425
 
  (when (interactive-p)
 
425
  (when (vm-interactive-p)
426
426
    (vm-update-summary-and-mode-line)))
427
427
      
428
428
(defun vm-toggle-thread ()
431
431
of action."
432
432
  (interactive)
433
433
  (when (and vm-summary-enable-thread-folding vm-summary-show-threads)
434
 
    (vm-select-folder-buffer-and-validate 1 (interactive-p))
435
 
    (if (interactive-p)
 
434
    (vm-select-folder-buffer-and-validate 1 (vm-interactive-p))
 
435
    (if (vm-interactive-p)
436
436
        (vm-follow-summary-cursor))
437
437
    (when vm-summary-buffer
438
438
      (set-buffer vm-summary-buffer)
1659
1659
  "Rebuild the summary.
1660
1660
Call this function if you made changes to `vm-summary-format'."
1661
1661
  (interactive "P")
1662
 
  (vm-select-folder-buffer-and-validate 1 (interactive-p))
 
1662
  (vm-select-folder-buffer-and-validate 1 (vm-interactive-p))
1663
1663
  (if kill-local-summary
1664
1664
      (kill-local-variable 'vm-summary-format))
1665
1665
  (vm-inform 5 "Fixing your summary... %s" vm-summary-format)