← Back to branch summary

~reddyuday/vm/virtual

« back to all changes in this revision

Viewing changes to lisp/vm-message-history.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-message-history.el
126
126
With prefix ARG, select the ARG'th previous message."
127
127
  (interactive "p")
128
128
  (or arg (setq arg 1))
129
 
  (vm-select-folder-buffer-and-validate 0 (interactive-p))
 
129
  (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
130
130
  (or vm-message-history
131
131
      (error "No message history"))
132
132
  (cond ((> arg 0)
172
172
  "Select the message below the cursor."
173
173
  (interactive)
174
174
  (let ((mp (get-text-property (point) 'vm-message-pointer)))
175
 
    (vm-select-folder-buffer-and-validate 0 (interactive-p))
 
175
    (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
176
176
    (vm-record-and-change-message-pointer vm-message-pointer mp)
177
177
    (vm-present-current-message)
178
178
    (vm-display nil nil '(vm-goto-message-last-seen)
192
192
(defun vm-message-history-browse ()
193
193
  "Select a message from a popup menu of the current folder's history."
194
194
  (interactive)
195
 
  (vm-select-folder-buffer-and-validate 0 (interactive-p))
 
195
  (vm-select-folder-buffer-and-validate 0 (vm-interactive-p))
196
196
  (or vm-message-history
197
197
      (error "No message history"))
198
198
  (let ((history vm-message-history)